Question

În Pascal vă rog mult)):
Să se creeze o listă ce va conține numele, vârsta și telefonul a 10 persoane.
a) Să se afișeze la ecran primele 5 persoane din listă;
b) Să se afișeze la ecran persoanele de pe pozițiile pare din listă;
c) Să se afișeze la ecran persoanele cu vârsta mai mare de 20 de ani;
d) Să se determine poziția în listă a persoanei cu numele dat.

Answer 1

Program Persoane;
type Persoana = recordVirsta : integer;
Telefon : longint;
Nume : string;
Prenume : string;
end;
ListaPersoane = array [1..50] of Persoana;
var   L : ListaPersoane; 
 n : 1..50; 
  i,x : integer; 
 P: Persoana; 
 j,v,a,c : integer; 
  w : char; 
 nu,pr : string;
begin
write ('Dati Numarul de persoane');
 readln (n);
for i:=1 to n do
begin
writeln ('Dati datele persoanei  ',i);
write('Numele:  ');
readln ( L [i].Nume);
write ('Prenumele: ');
 readln (L [i].Prenume);
write ('Virsta :  ');
readln ( L [i].Virsta);
write ('Numarul de Telefon :  ');
readln ( L [i].Telefon);
end;
i:=0;
writeln('Lista Primelor 5 persoane:');
repeati:=i+1;
writeln(i,')  ',L[i].Nume,'  ',L[i].Prenume, '  Virsta:=  ',L[i].Virsta,' Telefon:=',L[i].Telefon );
until i=5;
i:=1;
writeln('Lista Persoane pe pozitii pare:');repeatif i mod 2=0 then
begin
writeln(i,')  ',L[i].Nume,'  ',L[i].Prenume, '  Virsta:=  ',L[i].Virsta,' Telefon:=',L[i].Telefon );
i:=i+1;
end
else
begin
i:=i+1;
end;
until i=n;

i:=1;
writeln('Lista Persoane mai mare de 20 de ani:');
repeat
if L[i].Virsta>20 then
begin
writeln(i,')  ',L[i].Nume,'  ',L[i].Prenume, '  Virsta:=  ',L[i].Virsta,' Telefon:=',L[i].Telefon );
i:=i+1;
end
else
begin
i:=i+1;
end;
until i=n;




i:=1;
writeln('Dati Numele Persoanei: ');
readln(nu);
writeln('Dati Prenumele Persoanei: ');
readln(pr);
repeatif (L[i].Nume=nu) and (L[i].Prenume=pr) then
begin
writeln(i,')  ',L[i].Nume,'  ',L[i].Prenume, '  Virsta:=  ',L[i].Virsta,' Telefon:=',L[i].Telefon );
end;
i:=i+1;
until i=n;
readln;
end.