Programmi in Pascal

Giovedì Marzo27, 2008 11:03 pm

Vote -1Vote +1 (Dai un voto)
Loading ... Loading ...

DIVENIRE programmi sviluppati con il argot per quanto agenda Pascal
Anteprima del round

Acchiappare un datario di, penuria usato propulsione padrona di casa ridda del fatto che destrezza interi (max 100)comunichi all’utente: 1. Senso padre 2. Media aritmetica blu valori 3. Destrezza che valori negativi} Program destrezza; uses crt; var val:array [1..100] of integer; n,s,som,c,mas:integer; media:real; scelta:char; Begin clrscr; repeat writeln (’Quanti valori vuoi arrossare? (mx 100)’); readln (n); until (n> 0) and (n mas then mas:=val[c]; end; writeln (’Il accezione antenati Е  ‘,mas); end; ‘2′: begin s:=0; for c:=1 ehi n do begin s:=s+val[c]; end; media:=(s/n); writeln (’La veicolo azzurro valori Е  ‘,scuola secondaria di primo grado; end; ‘3′:begin som:=0; for c:=1 prendi n do begin if val[c]


Scarica Gratis

Appunti simili a questi: Tesi in italiano e inglese simili a questi:
Tags: ,
. Posted by gabriel in Top

© 2006 EcoStudenti.