----------------------------// gotowe dzialania z case i if

program Untitled;
Uses CRT,DOS;

var
a,b,wynik:real;
var
dzialanie:char;

begin

write('T3H DZ1ALAN1A 4 N00BZ');

writeln;
writeln;

writeln('liczba a: ');
readln(a);

writeln('znak dzialania: ');
readln(dzialanie);

writeln('liczba b: ');
readln(b);

CASE dzialanie OF
'+':
begin
wynik:=a+b;
write('wynik dzialania ', a:5:2, ' +', b:5:2, ' = ', wynik:5:2);
end;

'-': begin
wynik:=a-b;
write('wynik dzialania ', a:5:2, ' -', b:5:2, ' = ', wynik:5:2);
end;

'*': begin
wynik:=a*b;
write('wynik dzialania ', a:5:2, ' *', b:5:2, ' = ', wynik:5:2);
end;

'/': begin
wynik:=a/b;
IF b=0 THEN
begin
writeln('Nie dzieli sie przez 0 nup');
end
ELSE
begin
writeln('wynik dzialania ', a:5:2, ' /', b:5:2, ' = ', wynik:5:2);
end;
end;

else
writeln('znak dzialania musi byc +, -, * lub /.');
end;
readln;
end.



------------------------------// dzialania + pytanie

program Untitled;
Uses CRT,DOS;

var
a,b,wynik:real;
var
dzialanie,pytanie:char;

begin

write('T3H DZ1ALAN1A 4 N00BZ');

REPEAT

writeln;
writeln;

writeln('Liczba a: ');
readln(a);

writeln('Znak dzialania: ');
readln(dzialanie);

writeln('Liczba b: ');
readln(b);

CASE dzialanie OF
'+':
begin
wynik:=a+b;
write('Wynik dzialania ', a:5:1, ' +', b:5:1, ' = ', wynik:5:1);
end;

'-': begin
wynik:=a-b;
write('Wynik dzialania ', a:5:1, ' -', b:5:1, ' = ', wynik:5:1);
end;

'*': begin
wynik:=a*b;
write('wynik dzialania ', a:5:2, ' *', b:5:2, ' = ', wynik:5:2);
end;

'/': begin
IF b=0 THEN
begin
writeln('Nie dzieli sie przez 0 nup');
end
ELSE
begin

wynik:=a/b;

writeln('wynik dzialania ', a:5:2, ' /', b:5:2, ' = ', wynik:5:2);
end;
end;

else
writeln('znak dzialania musi byc +, -, * lub /.');
end;

writeln;
writeln;
writeln('Czy chcesz jeszcze cos policzyc?');
writeln;
writeln('t albo n:');
readln(pytanie);

UNTIL pytanie<>'t';
end.