6.4.. Napisati program koji generiše trocifren broj, ispiše ga. Zatim ispiše cifre generisanog trocifrenog broja.

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.
Pri pretvaranju se koristi osobina pozicionog sistema. Trocifren broj:
broj = x*10² + y*10¹ + z*10⁰
Ostatak dijeljenja dvocifrenog broja sa 10 broj MOD 10 dobijamo jedinice broja (u ovom slućaju trocifrenog). Cjelobrojnim dijeljenom sa 100 (broj DIV 10) trocifrenog broja se dobija cifra stotica. Za cifru desetica prvo se broj podijeli sa 10 (odbacuje se cifra sa desna - cifra jedinica) pa se izvodi MOD 10. Vidi primjere >>. Ispisati prvi cifru desetica pa cifru jedinica.

Opis programa:

Listing programa:

PROGRAM P06421158;
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);
  WRITELN('cifra stotica ', s, '  cifra desetica ', d, '  cifra jedinica ', j);
  READLN;
END.

Ispis na ekranu:

Index