Pascal

[OnlyShot]

Witam serdecznie

Mam do zrobienia do szkoły kalkulator z case

Trzeba wybrac numer dzialania potem podac zmienne

Jestem nowy i nie wiem co i jak

Z neta poczytalem troche ale nei dziala

Poprawicie? Puczycie?

#Edit

Prosze sie nie czepiac write oraz writeln dla mnie jest tak bardiej przejrzyscie

program p1;
uses crt;
var a,b,z:real;
x:real;
begin
clrscr;
Write('Podaj nr. dzialania');
Writeln;
Write('1-suma 2-iloczyn');
read(z);
case z of;
1:begin
writeln;
write('Podaj a oraz b');
read(a,;
x:=a+b;
writelb;
write('Wynik=',x:4:2);
end
2:begin
write('Podaj a oraz b');
read(a,;
x:=a*b;
writeln;
write('Wynik=',x:4:2);
end
else write('Brak dzialania');
end;
readkey;
end.

[Xau]

Tak powinno być poprawnie: http://ideone.com/irJCKu