Sel piὃf!

Salve cari..

Mattinata segnata dalla consegna dei compiti di informatica e di matematica.

Di info il prof. ci ha spiegato e mostrato come doveva essere il programma dell' esercizio n°5 (vedi post precedente).

program frequenza;

var eta,i: integer; f:array[1..6] of integer;

begin

for i= to 6 do f[i]:0;

repeat

write(‘età (0 per finire) :’); read(eta);

if (eta)0)and(eta=trunc(eta)) then

case eta of

1..19: inc(f[1]);

20..29: inc(f[2]);

30..39: inc(f[3]);

40..49: inc(f[4]);

50..59: inc(f[5]);

else inc(f[6]);

end; (*case*)

until eta=0;

writeln(‘ 0..19:’ ,f[1]);

for i:=2 to 5 do writeln(i*102,’..’,9+i*10:2,’:’,f[i]);

writeln(’60.. :’,f[6]);

end.

Per quanto riguarda le altre materie abbiamo fatto un'ora di mate, una di eco, due di ragio e nel pomeriggio una di ita.

Vi saluto. A domani!