6.4.. Napisati program koji generiše trocifren broj, ispiše ga. Zatim ispiše cifre u jednu ispod druge. Opis rješenja: Dvocifren broj se dobija izrazom: trunc((100-10) * random + 10);.(Vidi >>) Funkcija TRUNC vraca cio dio realnog broja. MOD kreira ostatak cjelobrojnog dijeljenja. Opis programa: Listing programa: PROGRAM P06421159; VAR broj, s, d, j: Integer; BEGIN RANDOMIZE; broj := TRUNC((1000-100) * RANDOM) + 100; { trocifren broj } s:= broj div 100; { cifra stotica } d:= broj div 10 mod 10; { cifra desetica } j:= broj mod 10; { cifra jedinicia } WRITELN('Broj ', broj); WRITELN('cifra stotica ', s); WRITELN('cifra desetica ', d); WRITELN('cifra jedinica ', j); READLN; END. Ispis na ekranu:
|
|||||||
|