23010010.. Učitati 2 cijela broja i izračunati im zbir, razliku, proizvod i količnik.
Listing programa:
PROGRAM p23010010;
VAR { deklarisanje promjenljivih }
a, b, s, r, p, k : REAL; { cjelobrojne promjenljive }
BEGIN
WRITE('a '); { ulazne promjenljive }
READLN( a ); { ulaz - ucitavanje promjenljive }
WRITE('b '); { ulazne promjenljive }
READLN( b ); { ulaz - ucitavanje promjenljive }
s := a + b;
r := a - b;
p := a * b;
Writeln(' a ', a, ' b ', b, ' s ', s, ' r ', r, ' p ',p );
IF b <> 0 THEN { ako je b razlicito do 0 izracunaj kolicnik }
BEGIN
k := a / b; { izraz1 }
Writeln(' k ', k );
END
ELSE
Writeln(' dijeljenje sa nulom ' );
READLN;
END.
Ispis na ekranu:
Index
|
|