Odpowiedzi

2010-01-13T16:45:54+01:00
Program calc;

uses crt;

var
a,b,c:real;
x:char;

label menu;

begin
menu:
clrscr;
writeln('Kalkulator');
writeln;
writeln('Co chcesz zrobic?:');
writeln;
writeln('1. Dodawac');
writeln('2. Ojejmowac');
writeln('3. Mnozyc');
writeln('4. Dzielic');
writeln;
writeln('k. Koniec');
x:=readkey;
clrscr;
case x of

'1':
begin
writeln('a+b=c');
writeln;
write('Podaj a: '); readln(a);
clrscr;
writeln(a,'+b=c');
writeln;
write('Podaj b: '); readln(b);
clrscr;
c:=a+b;
writeln(a,'+',b,'=',c);
readln;
end;

'2':
begin
writeln('a-b=c');
writeln;
write('Podaj a: '); readln(a);
clrscr;
writeln(a,'-b=c');
writeln;
write('Podaj b: '); readln(b);
clrscr;
c:=a-b;
writeln(a,'-',b,'=',c);
readln;
end;

'3':
begin
writeln('a*b=c');
writeln;
write('Podaj a: '); readln(a);
clrscr;
writeln(a,'*b=c');
writeln;
write('Podaj b: '); readln(b);
clrscr;
c:=a*b;
writeln(a,'*',b,'=',c);
readln;
end;

'4':
begin
writeln('a/b=c');
writeln;
write('Podaj a: '); readln(a);
clrscr;
writeln(a,'/b=c');
writeln;
repeat
write('Podaj b: '); readln(b);
until b<>0;
clrscr;
c:=a/b;
writeln(a,'/',b,'=',c);
readln;
end;

'k': halt;

end;
goto menu;
end.
2010-01-13T17:00:00+01:00
Program kalkulator;

USES
crt;

var
x,y,a,b,c,d:integer;

begin
clrscr;

Writeln('Kalkulator...');
Write('Podaj pierwsza liczbe: ');
readln(x);
Write('Podaj drugą liczbe: ');
readln(y);

a := x+y;
b := x-y;
c := x*y;
d := x div y;

clrscr;

Writeln('Suma liczb : ',a);
Writeln('Roznica liczb : ',b);
Writeln('Iloczyn liczb : ',c);
Writeln('Iloraz liczb : ',d);

readln;
end.


lub jak wolisz:

program procedurka;
USES crt;
var
wynik:integer;
a,b,n:integer;

begin
clrscr;
writeln('Podaj A');
readln(a);
writeln('Podaj B');
readln(b);
Writeln;
writeln('1- dodawanie, 2-odejmowanie, 3-mnozenie');
readln(n);

case n of
1:begin
wynik := a+b;
write('wynik wynosi ',wynik);
end;

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

3:begin
readln(b);
wynik := a*b;
write('wynik wynosi ',wynik);
end;

else writeln('wybrales zly numer');

end;

readln;
end.