Hej musze napisać w Pascalu kalkulator i opisać różnice pomiędzy pascalem a C++
C++ już zrobiłem więc jeszcze pascal ale nie umiem tego Pliss pomocy!!
aha zadanie jest na jutro proszę o pomoc jak coś to pisze swój nr gg 13032247
z góry dzięki

1

Odpowiedzi

2009-04-16T17:55:56+02:00
Uses crt;
var l1,l2,decyzja:integer;

procedure dziel;
begin
writeln(l1,':',l2,'=',l1/l2);
end;

procedure mnoz;
begin
writeln(l1,'*',l2,'=',l1*l2);
end;

procedure dodaj;
begin
writeln(l1,'+',l2,'=',l1+l2);
end;

procedure odejmij;
begin
writeln(l1,'-',l2,'=',l1-l2);
end;

begin
clrscr;

writeln('Podaj 1 liczbe i Enter:');
readln(l1);
writeln('Podaj 2 liczbe i Enter:');
readln(l2);

writeln('Co chcesz zrobić ?');
writeln('1-dzielenie');
writeln('2-dodawanie');
writeln('3-mnożenie');
writeln('4-odejmowanie');
writeln('Numer zadania i Enter:');
readln(decyzja);
if decyzja=1 then dziel;
if decyzja=2 then dodaj;
if decyzja=3 then mnoz;
if decyzja=4 then odejmij;
end.
1 1 1