03.08 Jednoduchý celočíselný kalkulátor
Zadání:
Sestavte jednoduchý celočíselný kalkulátor.
Sestavte jednoduchý celočíselný kalkulátor.
Řešení:
Náš kalkulátor bude umět pouze operace součtu, rozdílu, součinu a podílu.
Na začátku programu si načteme dvě celočíselné hodnoty do proměnných a, b a znakovou proměnnou op.
Na základě hodnoty proměnné op vypočteme pomocí příkazu case hodnotu výsledku a výsledek zobrazíme.
Pokud bude zadán jiný znak, než +, -, * nebo /, zobrazíme chybové hlášení.
Náš kalkulátor bude umět pouze operace součtu, rozdílu, součinu a podílu.
Na začátku programu si načteme dvě celočíselné hodnoty do proměnných a, b a znakovou proměnnou op.
Na základě hodnoty proměnné op vypočteme pomocí příkazu case hodnotu výsledku a výsledek zobrazíme.
Pokud bude zadán jiný znak, než +, -, * nebo /, zobrazíme chybové hlášení.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,v,zb: integer;
op: char;
begin
write('Zadejte prvni cislo: ');
readln(a);
write('Zadejte operaci: ');
readln(op);
write('Zadejte druhe cislo: ');
readln(b);
case op of
'+': begin
v:=a+b;
writeln(a,op,b,'=',v);
end;
'-': begin
v:=a-b;
writeln(a,op,b,'=',v);
end;
'*': begin
v:=a*b;
writeln(a,op,b,'=',v);
end;
'/': begin
v:=a div b;
zb:=a mod b;
writeln(a,op,b,'=',v,' zbyde ',zb);
end;
else writeln('Neznama operace');
end;
readln;
end.
program ke stažení
Pro učitele:
Kalkulátor lze doplnit o další funkce, nastane ovšem problém s funkcemi, které vyžadují pouze jednu hodnotu (goniometrické funkce, absolutní hodnota, atd.).
Kalkulátor lze doplnit o další funkce, nastane ovšem problém s funkcemi, které vyžadují pouze jednu hodnotu (goniometrické funkce, absolutní hodnota, atd.).