Forum programmazione

[Criphox]

ho ricominciato da capo col Pascal, dopo parecchio che nn lo uso ho provato a fare un prog e devo dire che ho dimenticato quasi tutto LOL

ecco il sorgente:

Code: Select all

program Untitled;
var n:integer;
var risultato:integer;
begin
writeln ('Questo programma calcola il cubo di un numero');
writeln;
writeln ('Inserisci la base');
writeln;
readln (n);
risultato:= n*n*n;
writeln ('Il risultato è: ',risultato);
writeln;
writeln ('Premi enter per chiudere');
readln;
end.

[Fabriz]

ok, allora te lo faccio con una funzione.

Code: Select all

program Funz_Untitled;
var n:integer;
var ris:integer;
function cubo:integer;
begin
        cubo:=n*n*n;
end;
begin
writeln ('Questo programma calcola il cubo di un numero');
writeln;
write('Inserisci la base: ');
readln (n);
ris:= cubo;
writeln ('Il risultato e'': ',ris);
writeln;
readln
end.


[Fabriz]

E anche con una procedure con passaggio per valore:

Code: Select all

program Funz_Untitled;
var n:integer;
var ris:integer;
procedure cubo(x:integer);
begin
        ris:=x*x*x;
end;
begin
writeln ('Questo programma calcola il cubo di un numero');
writeln;
write('Inserisci la base: ');
readln (n);
cubo(n);
writeln ('Il risultato e'': ',ris);
writeln;
readln
end.