Question

Scrieți un program care utilizeaza o structura de tip record cu următoarele componente: nume strig și telefoane , adrese unor persoane sa se afișeze datele persoanelor ce locuiesc pe o anumită strada??

Answer 1

program Nicoleta;

type Adresa=record

      sector:string;

      strada:string;

      apart:integer;

    end;

    Persoana=record

      nume: string;

      tel: integer;

      adr: Adresa;

    end;

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

var

  i, n: integer;  st:string; gasit:integer;

  LP: ListaPersoane;

BEGIN

 write('n='); read(n);

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

 for i:=1 to n do

   begin

     writeln('Datele persoanei ',i);

     write('nume prenume: '); read(LP[i].nume);

     write('nr. de telefon '); read(LP[i].tel);

     write(' sectorul locativ: '); read(LP[i].adr.sector);

     write(' strada unde locuieste: '); read(LP[i].adr.strada);

     write(' nr. apartamentului: '); read(LP[i].adr.apart);

   end;

  writeln;

  write(' introdu strada solicitata: '); read(st);

  writeln('Lista persoanelor ce locuiesc pe strada ',st,' : ');

  gasit:=0;

  for i:=1 to n do

      if LP[i].adr.strada = st then

          begin

             writeln(LP[i].nume,', tel: ',LP[i].tel,', apart ',LP[i].adr.apart);

             gasit:=1;

          end;

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

END.