6.4.. Napisati program koji generiše trocifren broj, ispiše ga. Zatim ispiše cifre u obrnutom redoslijedu. Opis rješenja: Trocifren broj se dobija izrazom: trunc((1000-100) * random) + 100;.(Vidi >>) Funkcija TRUNC vraća cio dio realnog broja. MOD kreira ostatak cjelobrojnog dijeljenja. Opis programa: Listing programa: PROGRAM P06421119; VAR broj, r, 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, ' cifra jedinica ', j, ' cifra desetica ', d, ' cifra stotica ', s); READLN; END. Ispis na ekranu:
|
|||||||
|