Home page

Teacher

On

line

Il sito

Competenze da acquisire

Regole didattiche

 Contatore visite
 (dal 18-10-07) N°		 Hit Counter
  Esercitazion PON / TIC Album Fotografico ricreazione_e_video Forum didattico Progetti Alunni Corsi per docenti Download    

IIS: Ragioneria

1°Anno  CAT

2°Anno AFM

3° Anno AFM

3° Anno  SIA

4°Anno AFM

4°Anno SIA

5°Anno SIA

Algoritmi fondamentali

Flow Chart

Codice

Ricordi

Statistiche

Programmi svolti in PASCAL

{scrive i numeri naturali pari da 10 a 30}

program iterative;
var I:integer;
begin
	I:=8;
	while I<30 do
	begin
    		I:=I+2;
		writeln(I)
	end;

end.

 

{somma di una serie di numeri interi, termina se immetto 0}

 

Prima soluzione: facciamo uso del ciclo REPEAT, ma attenti .... (a te le dovute considerazioni!)




program serie;



var X,S:integer;



begin



    S:=0;



    repeat



        writeln('introduci un numero intero');



        writeln('se vuoi terminare introduci 0');



        readln(X);



        S:=S+X;



    until X=0;



    writeln ('la somma e''',S);



end.



       




Seconda soluzione: uso del ciclo WHILE, come si vede....(a te le dovute 
considerazioni!)






program serie;



var X,S:integer;



begin



    S:=0;



    writeln('introduci un numero intero');



    readln (X);



    while X <> 0 do



    begin



        S:=S+X;



        writeln('puoi introdurre un altro numero intero');



        writeln ('se vuoi terminare introduci 0');



        readln(X);



    end;



    writeln ('la somma e''',S);



end.