21-09-2011, 08:29 PM
(Questo messaggio è stato modificato l'ultima volta il: 21-09-2011, 08:38 PM da XErnestoX.)
allora, questa volta ho seguito il tuo "schema":
Program RadiceQuadrata;
Uses Crt;
Var x:real;
begin
write(inserisci un numero: );
read(x);
if x<0 then
write(non è possibile effettuare l' operazione);
else x:=sqrt(x);
end.
probabilemnte ho sbagliato qualcosa ma credo che mi ci sto avvicinando xd...
Program RadiceQuadrata;
Uses Crt;
Var x:real;
begin
write(inserisci un numero: );
read(x);
if x<0 then
write(non è possibile effettuare l' operazione);
else x:=sqrt(x);
end.
probabilemnte ho sbagliato qualcosa ma credo che mi ci sto avvicinando xd...