Autor |
Wiadomość |
Karachi |
|
|
Gość |
|
|
Karachi |
|
|
Gość |
|
|
Karachi |
|
|
twutya |
|
|
Karachi |
|
|
PiotrekDudkiewicz |
Wysłany: Nie 17:41, 02 Paź 2005 Temat postu: Pascal - Wybór |
|
DO CELÓW EDUKACYJNYCH
Kod: |
program wybor;
{Iza Rojczyk i Piotrek Dudkiewicz}
uses crt;
var x,y:integer;
klawisz:char;
begin
clrscr;
writeln('Wprowadz x i y');
readln(x,y);
writeln('Wybierz dzialanie');
writeln('+ klawisz s');
writeln('- klawisz r');
writeln('* klawisz m');
writeln('/ klawisz d');
readln(klawisz);
case klawisz of
'S','s':writeln(x+y);
'R','r':writeln(x-y);
'M','m':writeln(x*y);
'D','d':writeln(x/y:0:2);
else writeln('Zly klawisz');
end;
repeat until keypressed;
end.
|
|
|
|