Forum programmazione

[Criphox]

nn capisco che errori ci sono!! quando compilo mi dà 4 errori ma io davvero nn li vedo...

bho mi affido a te, nel frattempo me lo riguardo di nuovo, è la 20esima volta uff...

Code: Select all


program Untitled;
var raggio:real;
function diametro:real;
begin
diametro = raggio * 2;
end;
function circonferenza:real;
begin
circonferenza = diametro * 3.14;
end;
function area:real;
begin
area = (raggio * raggio) * 3.14;
end;
begin
writeln ('Questo programma calcola l''area, la circonferenza e il diametro di un cerchio inserendo la misura del raggio!');
writeln;
writeln;
writeln ('Inserisci la misura del raggio: ');
readln (raggio);
if (raggio=0 or raggio<0 ) then
begin
writeln('Non calcolo valori pari a 0 o negativi');
writeln;
readln;
end;
else
begin
writeln;
writeln ('Il Diametro del cerchio e'': ', diametro:4:2);
writeln;
writeln ('La Circonferenza del cerchio e'': ', circonferenza:4:2);
writeln;
writeln ('L''Area del cerchio e'': ', area:4:2);
writeln;
writeln;
writeln ('Semplice programma creato da Criphox!');
writeln;
readln;
end;
end.     

[Fabriz]

Code: Select all

program criptox;
var raggio:real;
function diametro:real;
begin
diametro:=raggio*2;//:=!!!micca siamo in c!
end;
function circonferenza:real;
begin
circonferenza:=2*raggio*PI;//esiste in pascal il pi greco: PI;
end;
function area:real;
begin
area:=raggio*raggio * PI;
end;
begin
writeln ('Questo programma calcola l''area, la circonferenza e il diametro di un cerchio inserendo la misura del raggio!');
writeln;
writeln;
writeln ('Inserisci la misura del raggio: ');
readln (raggio);
if raggio<=0 then
begin
writeln('...');
writeln;
readln
end
else
begin
writeln;
writeln ('Il Diametro del cerchio e'': ', diametro:4:2);{*non importa sempre mettere 4 e 2. Quei numeri dicono al compilatore di scrivere quel reale in 4 spazi, con due cifre decimali, puoi ache dirgli 2:0, e ti scriverà in 2 spazi senza cifre decimali, understood?*}
writeln;
writeln ('La Circonferenza del cerchio e'': ', circonferenza:4:2);
writeln;
writeln ('L''Area del cerchio e'': ', area:4:2);
writeln;
writeln;
writeln ('Semplice programma creato da Criphox e aggiustato da s3raph ;)!');
writeln;
readln;
end;
end.


[Criphox]

porca miseria mi sò confusooooo!!! noo questa è una bestialità ca**o mi sono dimenticato di mettere i : prima di = cavolaccio...mi confondo sempre col c che demente...linciatemiiiiiii!!!T_T

il fatto del PI nn lo sapevo eheh grazie dell'informazione!!

cmq ora ho capito perfettamente qui numeri (es. :4:2) grazie ancora!!

me sa che mi devo rileggere la guida sul pascal azz azz stò n'guaiato davvero ci vuole un intervento