6.4.. Napisati program koji generiše dvocifren broj, ispiše ga. Zatim ispiše cifre u obrnutom redoslijedu. 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 P06421117; VAR broj, desetica, jedinica : Integer; BEGIN RANDOMIZE; broj := TRUNC((100-10) * RANDOM + 10); { dvocifren broj } desetica := trunc(broj/10); jedinica := broj mod 10; WRITELN('broj ', broj, ' cifra desetica ', desetica, ' cifra jedinica ', jedinica); READLN; END. Ispis na ekranu:
|
|||||||
|