WriteLn, Write e ReadLn: questi sconosciuti
{$APPTYPE CONSOLE}
Program Area;
Const
Pgreco = 3.1415926535897932385;
Var R,
L,
V : Real;
begin
WriteLn;
WriteLn;
WriteLn;
WriteLn;
WriteLn;
WriteLn;
WriteLn;
WriteLn ('CALCOLO DEL VOLUME DI UN CILIDRO');
WriteLn;
Write('Inserire la lunghezza del cilidro ->');
ReadLn(L);
Write('Inserire il raggio del cilindro ->');
ReadLn(R);
V:= PGreco*R*R*L;
WriteLn;
WriteLn;
WriteLn('Il volume del cilidro è: ', V:0:0);
WriteLn;
WriteLn('premere INVIO per continuare');
ReadLn;
end.
Corso interamente creato da VB.