Prosty kalkulator w Turbo Pascalu

Programowanie Odsłon: 765
Program kalkulator;
uses crt;
var a,b,wynik:real;
znak:char;
begin
clrscr;
Write('Podaj pierwsza liczbe: '); {Podajemy pierwsza liczbe}
Readln(a);
Write('Podaj druga liczbe: '); {Podajemy druga liczbe}
Readln(b);
Write('Podaj znak dzialania (+, -, *, /): '); {Podajemy znak dzialania}
Readln(znak);

CASE znak OF {Instrukcja wyboru znaku dzialania}
'+':wynik:=a+b;
'-':wynik:=a-b;
'*':wynik:=a*b;
'/':wynik:=a/b

ELSE
Write('Nie ma takiego dzialania!'); {Ten komunikat wyswietla sie jesli podamy znak inny niz 1 z tych 4}
end;
if wynik=a then
Write('Wynik dzialania wynosi: ',wynik:2:2);
readkey;
end.

Related Articles