7.3.. Učitati dva broja i jedno slovo koje predstavlja izbor aritmetičke operacije. s - sabiranje o - oduzimanje m - množenje d - dijeljenje.
Listing programa:
PROGRAM p07311026;
VAR
op : CHAR;
a, b: INTEGER;
BEGIN
Writeln('Simulator kalkulatora');
Writeln('s - sabiranje');
Writeln('o - oduzimanje');
Writeln('m - mnozenje');
Writeln('d - dijeljenje');
Write('unesi operaciju ');
Readln(op);
Write('1. broj ');
Readln(a);
Write('2. broj ');
Readln(b);
CASE op OF
's' : Writeln(a, ' + ', b, ' = ', a + b);
'o' : Writeln(a, ' - ', b, ' = ', a - b);
'm' : Writeln(a, ' * ', b, ' = ', a * b);
'd' : BEGIN
IF b <>0 THEN
Writeln(a, ' / ', b, ' = ', a / b)
ELSE
Writeln('Dijeljenje sa nulom')
END;
ELSE
Writeln('pogresan operator');
END;
READLN;
END.
Ispis na ekranu:
Index
|
|