Wikipedysta:KrejZii/brudnopis
Z Wikipedii
[edytuj] Kalkulator
program kalkulator;
var
liczba1,liczba2,wynik:real;
dzialanie:char; //symbol dzialania
blad:boolean;
begin
writeln('Podaj pierwsza liczbe');
readln(liczba1);
writeln('Podaj druga liczbe');
readln(liczba2);
writeln('Podaj rodzaj dzialania: + - * /');
readln(dzialanie);
blad:=false;
case dzialanie of
'+' : wynik:=liczba1+liczba2;
'-' : wynik:=liczba1-liczba2;
'*' : wynik:=liczba1*liczba2;
'/' :
if liczba2<>0 then wynik:=liczba1/liczba2
else blad:=true //else dotyczy instrukcji if
else blad:=true //else dotyczy instrukcji case
end;
if not blad then
writeln(liczba1,dzialanie,liczba2,'=',wynik)
else writeln(wystapil blad);
readln;
end.
[edytuj] Podpis
[[Wikipedysta:KrejZii|KrejZii ([[Dyskusja_Wikipedysty:KrejZii|dyskusja]])]] 19:55, 20 gru 2006 (CET)
