👤
a fost răspuns

Elaborati un program care citeste de la tastatura datele referitoare la n persoane (n< si =50) si afiseaza pe ecran persoanele nascute pe data z.l.a ; va rog in pascal,imi trebuie urgent

Răspuns :

MAX221ZE
Program P4 pagiina 22
type Persoana=record NP:String;
                       ziua 1..31;
                       luna 1..12;
                       anul:integer;
end;
lista persoanelor =array [1..50]of persoana ;
var LP :lista persoane;
i,n,z,l,a:integer;
begin
write('n=');Readln(n);
for i:=1 to n do begin 
writeln('introdu datele persoanelor',i);
write('nume prenume');
readln(LP[i]NP);
write('ziua');
readln(LP[i].ziua);
write('luna');
readln(LP[i].luna);
write('anual');
readln(LP[i].anual);
end;
write('Z=');Readln(Z);
writeln('lista persoanelor nascute in  ziua ',z);
for i:=1 to n  do 
if LP[i].ziua =Z then 
write (LP[i].NP);
si tot asa mai departe ,sper ca team ajutat
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari