23010010.. Učitati 2 cijela broja i izračunati im zbir, razliku, proizvod i količnik.
Listing programa:
PROGRAM p23010010;
USES
WinCrt;
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 ' );
END.
Ispis na ekranu:
![](../../../cpp/n/230CPP/230_izvedi/23010010.gif)
Index
|
![](../epp/000/Asistent.jpg) |