Question

PASCAL
proszę o wprowadzenie do projektu poprawek:

1) menu wyboru (które pole ma wyliczyć najpierw)
2) żeby wynik obliczeń były z dwoma miejscami po przecinku
3) wprowadzenie pytania o kontynuację pracy (żeby po przeliczeniu program się nie wyłączył,tylko pokazało się pytanie: 'czy chcesz kontynuować'. Jeżeli tak -> powrót do menu)

proszę o pomoc, to jest zaliczenie na 3!
muszę mieć to na poniedziałek

daję NAJ!

Answer 1

Program pola_figur;
uses CRT;

const pi=3.14;

var
a,b,h,r: real;
imie: string;
znak:char;
figura:char;

begin

clrscr;

write('imie: ');
readln(imie);
writeln('witaj ',imie,' w programie!');

writeln('widzisz właśnie program');
writeln('obliczający pola figur');

readkey;

reapeat

writeln('Wybierz figure ktorej pole chcesz obliczyc: 1- trojkat
2- kwadrat
3- prostokat
4- trapez
5- kolo ');
readln(figura);

CASE figura of

1:
begin
write('Długość podstawy a: ');
read(a);
write('Wysokość h: ');
read(h);
writeln('Pole trójkąta');
write('wynosi: ',a*h/2:0:2);
readln;
end;
2:
begin
writeln('Pole kwadratu');
write('Długość boku a: ');
read(a);
writeln('Pole kwadratu');
write('wynosi:',a*a:0:2);
readln;
end;
3:
begin
writeln('Pole prostokąta');
write('Długość boku a: ');
read(a);
write('Długość boku b: ');
read(b);
writeln('Pole prostokąta wynosi',a*b:0:2);

readln;
end;
4:
begin
writeln('Pole trapezu');
write('Długość podstawy a: ');
read(a);
write('Długość podstawy b: ');
read(b);
write('Wysokość h: ');
read(h);
writeln('Pole trapezu wynosi:',(a+b)/2*h:0:2);
readln;
end;
5:
begin
writeln('Pole koła');
write('Długość promienia r: ');
read(r);
writeln('Pole koła wynosi',(pi*r*r):0:2);
readln;
end;


writeln('Jesli chcesz zakonczyc program kliknij T w przeciwnym wypadku kliknij dowolny przycisk');
znak:readkey;
until upcase(znak)='T';
end.




Chyba teraz ok, skompiluj bo ja tego nie robiłam mogą by drobne błędy Pozdrawiam.