Elettronica

Risultati 391 - 391 di 391
Filtra per:   Tutti (398)   Appunti (312)   Riassunti (6)   Tesine (20)   
Ordina per:   Data   Nome ↑   Download   Voto   Dimensione ↑   
Download: 104Cat: Elettronica    Materie: Appunti    Dim: 2 kb    Pag: 1    Data: 09.05.2000

else writeln('Risulta 0')
else if esp = 0 then witeln('Risulta 1')
else Begin
pot : = 1;
for i : = 1 to abs(esp) do
pot : = pot*n;
if esp < 0 then pot : = 1/pot;
writeln('Il risultato и ',pot:10:3)
end;
repeat until keypressed;
end.
~


Come usare