Ciao a tutti,
con questa procedura calcolo l'area di un cerchio dato il raggio:
PROGRAM area_cerchio;
USES crt;
const p=3.14;
VAR a,r:real;
BEGIN
clrscr;
WRITELN ('Inserisci il raggio e questo programma ti restituisce l''area');
READLN(r);
a:=r*r*p;
WRITELN('Area è ',a);
READLN;
END.
Vengo al problema, il risultato è un numero decimale lunghissimo, si può ottenere un numero con solo due decimali?
Portate pazienza per l'ignoranza...grazie
|