24-02-2008.txt

----------------------------// 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.