Le variabili e i calcoli matematici
{$APPTYPE CONSOLE}
Program Volume;
Const
Pgreco = 3.1415926535897932385;
Var
R,
L,
Sup : Real;
V : Integer;
begin
L:= 5;
R:= 7;
Sup:= PGreco*R*R;
V:= Round(Sup*L);
WriteLn(V);
ReadLn;
end.
{$APPTYPE CONSOLE}
Program Area;
Const
Pgreco = 3.1415926535897932385;
Var
R,
L,
V: Real;
begin
L:= 5;
R:= 7;
V:= PGreco*R*R*L;
WriteLn(V:0:0);
ReadLn;
end.
Corso interamente creato da VB.