21-09-2011, 07:56 PM
x lorenz: già ci avevo pensato ma non ho editato xd...
x steve. ora "cerco" di capire xd..
allora, ho fatto cosi, ma so che è sbagliato:
Program esercizio;
uses crt; (*richiama libreria*)
Var x:real; (* imposta x come una variabile*)
begin
if x>=0 then (*se x è maggiore o uguale a 0 allora*)
writeln(x:=sqrt(x)) (* fai radice quadrata di x*)
end.
P.S Ho scritto sottoforma di commento una mia "traduzione" per farti capire come leggo io questo programma... non so se mi sono spiegato bene... xd
Comunque ho un problema...perchè quando clicco su Run mi esce per pochi millesimi di secondo uan finestra nera dove (credo) dovrebbe uscire il programma ma poi scompare?
x steve. ora "cerco" di capire xd..
allora, ho fatto cosi, ma so che è sbagliato:
Program esercizio;
uses crt; (*richiama libreria*)
Var x:real; (* imposta x come una variabile*)
begin
if x>=0 then (*se x è maggiore o uguale a 0 allora*)
writeln(x:=sqrt(x)) (* fai radice quadrata di x*)
end.
P.S Ho scritto sottoforma di commento una mia "traduzione" per farti capire come leggo io questo programma... non so se mi sono spiegato bene... xd
Comunque ho un problema...perchè quando clicco su Run mi esce per pochi millesimi di secondo uan finestra nera dove (credo) dovrebbe uscire il programma ma poi scompare?