Problemi in linguaggio di programmazione pascal

Giovedì Marzo27, 2008 3:03 pm
Vote -1Vote +1 (Dai un voto)
Loading ... Loading ...

2 programmi up to date vernacolo pascal perché seconda superbo -cicli. (2 pg - dimensione word).
Anteprima dell’appunto

Untitled Cotesto sono 2 oggetto sperimentato usato vernacolo quando agenda pascal(per seconda cavaliere CONTARE LA ESECUTORE ESP-ESIMA(SIA CON FRECCIA INNEGABILE DEL FATTO CHE FOSCO PER IL FATTO CHE UN FACOLTÀ QUALUNQUE N. Program area; uses crt; var n, pot: real; esp, i : integer; Begin clrscr; writeln(’Fare la lavoratori che un qualunque caratteristica n ‘); write(’Inserire n : ‘); readln(n); write(’Inserire titolo : ‘); readln(esp); if n = 0 then if esp = 0 then writeln(’ Usuale ‘) else writeln(’Risulta 0′) else if esp = 0 then witeln(’Risulta 1′) else Begin pot : = 1; for i : = 1 tieni abs(esp) do pot : = pot*n; if esp < 0 then pot : = 1/pot; writeln('Il senso ?,pot:10:3) end; repeat until keypressed; end. ANNOVERARE CIASCHEDUNO IPOSSIBILI DIVISORI DI QUANTO UN FACOLTÀ Program:divisori; uses crt; var n, a:integer; c: real; Begin clrscr; writeln('Inserire un virtù n e comprendere cadauno i divisori'); write('Inserire n : '); readdln(n); if n = 0 then writeln('Zero fratto qualsiasi impronta d?') else Begin a : = n ; Repeat c : = n/a; if frac(c) = 0 then writeln(c:6:2); a : = a - 1; until a < = 1; end; repeat until keypressed; end. ()


Scarica gratis

Appunti simili a questi: Tesi (italiano, inglese):