Forum programmazione

[[c]occoBilL]

Salve , per questa board ho un particolare interesse perchè lo sto studiando a scuola e inizio con postarvi un esercizio che mi è stato assegnato a scuola.

Code: Select all

program vecchio_e_giovane;

var old,teen,cont,n,year:integer;
    name,name1,name2:string[15];

Begin

{incrementanzioni variabili}
cont:=1;
old:=0;
teen:=0;
n:=0;
year:=0;

writeln('Questo programma controlla il piu'' giovane e il piu'' vecchio');
writeln;
writeln('inserisci il numero delle persone:');
readln(n);
writeln('inserisci il nome:');
readln(name);
writeln('inserisci l''eta'':');
readln(year);

old:=year;
teen:=year;
name1:=name;
name2:=name;


{ciclo iterativo}

Repeat
cont:=cont+1;

writeln('inserisci il nome:');
readln(name);
writeln('inserisci l''eta'':');
readln(year);

  if year < teen
   then
   begin
   name1:=name;
   teen:=year;
   end;

  if year > old
   then
   begin
   name2:=name;
   old:=year;
   end;

until cont=n;

writeln('il piu'' giovane e'' ',name1,' con ',teen,' anni');
writeln;
writeln('mentre il piu'' vecchio e'' ',name2,' con ',old,' anni');
writeln;
writeln('premi un tasto per terminare...');
readln;
End.