Question

Exercițiul 2 și 3 punctul a voi fi foarte recunoscător​

Answer 1

Răspuns:

2. 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 n, i, z, l, a, nrzi, nrluna, nranul, nrzla: integer;  

  T: ListaPersoane;  

begin  

write('introdu nr de persoane: n= '); read(n);  

writeln(' introdu date despre ',n,' persoane:');  

for i:=1 to n do  

  begin  

    writeln('Dati datele persoanei ', i);  

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

    writeln('Dati datele nasterii: ');  

    write('ziua nasterii: '); readln(T[i].DataNasterii.ziua);  

    write('luna nasterii: '); readln(T[i].DataNasterii.luna);  

    write('anul nasterii: '); readln(T[i].DataNasterii.anul);  

    writeln;  

  end;    

 writeln('introdu data calendaristica: ziua, luna, anul');  

 write(' ziua = '); readln(z);  

 write(' luna = '); readln(l);  

 write(' anul = '); readln(a);  

 

 for i:=1 to n do

   begin  

      if  T[i].DataNasterii.ziua = z then inc(nrzi);  

      if  T[i].DataNasterii.luna = l then inc(nrluna);  

      if  T[i].DataNasterii.anul = a then inc(nranul);  

      if (T[i].DataNasterii.ziua = z)and(T[i].DataNasterii.luna = l)and  

           ( T[i].DataNasterii.anul = a)  then inc(nrzla);  

   end;  

writeln(' Raspuns:');  

writeln('a) in ziua ',z,' s-au nascut ',nrzi,' persoane');  

writeln('b) in luna ',l,' s-au nascut ',nrluna,' persoane');  

writeln('c) in anul ',a,' s-au nascut ',nranul,' persoane');  

writeln('d) pe date de ',z,'.',l,'.',a,' s-au nascut ',nrzla,' persoane');  

end.

3. ai in imaginile de mai jos, trebuie sa transcrii in caiet/ unde anume ai nevoie!