👤
NICOLETA6074ZE
a fost răspuns

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??

Răspuns :

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.

Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!


Ze Teaching: Alte intrebari