Question

Rezolvați vă rog cazurile a si c de la exeecițiul 4

Answer 1

Punctul a:

type angajat=record

            Numele , Prenume: string[20];

            zilelucru:1..31;

            platapezi:real;

            platapeluna:real;

            end;

var

 listadeplata:array[1..50] of angajat;

 a,b,i,n:integer;

begin

write('Angajati:');

readln(n);

for i:=1 to n do  

begin

writeln('Angajatul [',i,']:');

with[listadeplata] do begin

 write('Nume:');

 readln(Numele);

 write('Prenumele:');

 readln(prenume);

 write('Zilele lucrate:');

 readln(zilelucru);

 write('Plata pe zi');

 readln(platapezi);

end;

end;

for i:=1 to n do  

begin

 with listadeplata[i] do begin

 platapeluna:=platapezi+zilelucru;

 writeln('Angajatu ',nume,'     ',prenume,' pe luna are: ',platapeluna);

 end;

 end;

end.