23010020.. Učitati 2 cijela broja i izračunati im zbir, razliku, proizvod i količnik. Ispisati one rezultate koji su trocifreni.
Listing programa:
PROGRAM p23010020;
VAR { deklarisanje promjenljivih }
a, b : INTEGER; { cjelobrojne promjenljive }
s, r, p, k : REAL; { realsne promjenljive }
BEGIN
WRITE('1. broj '); { ulazne promjenljive }
READLN(a); { ulaz - ucitavanje promjenljive }
WRITE('2. broj '); { ulazne promjenljive }
READLN(b); { ulaz - ucitavanje promjenljive }
Writeln('a = ', a, ' b = ', b);
s:= a + b; { suma }
r:= a - b; { razlika }
p:= a * b; { proizvod }
IF (s > 99) AND (s < 1000) THEN { da li je trocifren? }
Writeln('Suma = ',s );
IF (r > 99) AND (r < 1000) THEN { da li je trocifren? }
Writeln('Razlika ',r );
IF (p > 99) AND (p < 1000) THEN { da li je trocifren? }
Writeln('Proizvod = ',p );
IF b <> 0 THEN { da li je b razlicito od nule? }
BEGIN
k:= a / b;
IF (k > 99) AND (k < 1000) THEN { da li je trocifren? }
Writeln('Kolicnik = ',k );
END
ELSE
Writeln('Dijeljenje sa nulom ' );
READLN;
END.
Ispis na ekranu:
Index
|
|