Question

Va rog mult ajutatima la informatica punctul d. Ofer 100pct

Answer 1

program ex4dpag22;

type Data = record

         Ziua : 1..31;

         Luna : 1..12;

         Anul : integer;

     end;

     Persoana = record

              NumePrenume : string;

              DataNasterii : Data;

     end;

     ListaPersoane = array [1..50] of Persoana;

var LP:ListaPersoane;

   datasol: Data;

   n, i, gasit:integer;

BEGIN

  write ('n='); readln (n);

  for i:=1 to n do

    begin

       writeln ('Dati datele persoanei ', i);

       write ('Nume Prenume:: '); readln(LP[i] .NumePrenume);

       writeln(' datele nasterii: ');

       write(' ziua: '); read(LP[i].DataNasterii.ziua);

       write(' luna: '); read(LP[i].DataNasterii.Luna);

       write(' anul: '); read(LP[i].DataNasterii.Anul);

    end;

  writeln; writeln(' introdu data calendaristaca solicitata: ');

   write(' ziua: '); read(datasol.ziua);

   write(' luna: '); read(datasol.Luna);

   write(' anul: '); read(datasol.Anul);

  writeln('Lista persoanelor nascute pe data de ',datasol.ziua,'.',datasol.luna,'.',datasol.anul,': ');

  gasit:=0;

  for i:=1 to n do

    if (LP[i].DataNasterii.ziua=datasol.ziua)and

        (LP[i].DataNasterii.luna=datasol.luna)and

        (LP[i].DataNasterii.anul=datasol.anul)  then

        begin writeln(LP[i].NumePrenume); gasit:=1; end;

  if gasit=0 then Writeln(' NU EXISTA...');

END.