program SuperGeometria;
uses crt;
var nlppr,lppr,risppr,areadppr: real;
ind1,compr: byte;
a: text;
begin
repeat
clrscr;
TextColor(14);
writeln('1-PROBLEMI SU I POLIGONI REGOLARI');
writeln('2-PROBLEMI SU I POLIGONI');
writeln('3-PROBLEMI SUL CERCHIO');
writeln('4-PROBLEMI RELATIVI AL TEOREMA DI PITAGORA');
writeln('5-FINE');
writeln('');
writeln('');
writeln('INSERISCI IL COMANDO DA ESEGUIRE');
readln(ind1);
if ind1=1 then
begin
clrscr;
writeln('1-PERIMETRO');
writeln('2-AREA');
writeln('3-LATO');
writeln('');
writeln('');
writeln('INSERISCI IL COMANDO DA ESEGUIRE');
readln(compr);
if compr=1 then
begin;
clrscr;
write('INSERISCI NUMERO LATI: ');
readln(nlppr);
clrscr;
write('INSERISCI LATO: ');
readln(lppr);
clrscr;
risppr:=nlppr*lppr;
writeln('IL RISULTATO E^',risppr:10:2);
writeln('');
writeln('PREMI INVIO PER TORNARE AL MENU');
end;
readln;
end;
until ind1=5;
end.
|