Тип "Запись" в Паскале. 4.

[d00ker]

В записной книжке указаны фамилии и номера телефонов 30 человек. Составить программу, которая определяет, есть ли в записной книжке информация о человеке с заданным номером телефона, и, если есть, печетающую фамилию этого человека.

ЗЫ: нужен код программы

[DM_bite]

program X;
type S = record
     name: string;
     n1: integer;
     end;
var a: array [1..3] of S;
    i: integer;
    names: string;
    begin
    a[1].name:= 'xaa';
    a[1].n1:= 123;
    a[2].name:='xax';
    a[2].n1:= 122;
    a[3].name:='xas';
    a[3].n1:= 124;
    for i:= 1 to 3 do
     begin
     if a[i].name='xax' then WriteLn(a[i].n1);
     end;
     ReadLn;
    end.

Пример, конечно кривой, но разбери его и все поймешь.. А заполнить запись в 30 элементов не трудно.

[d00ker]

Сообщение от DM_bite

program X;
type S = record
     name: string;
     n1: integer;
     end;
var a: array [1..3] of S;
    i: integer;
    names: string;
    begin
    a[1].name:= 'xaa';
    a[1].n1:= 123;
    a[2].name:='xax';
    a[2].n1:= 122;
    a[3].name:='xas';
    a[3].n1:= 124;
    for i:= 1 to 3 do
     begin
     if a[i].name='xax' then WriteLn(a[i].n1);
     end;
     ReadLn;
    end.

Пример, конечно кривой, но разбери его и все поймешь.. А заполнить запись в 30 элементов не трудно.

Не! смотри: ты должен запрашивать номер телефона, и если он есть в записной книжке, то программа должна выводить Фамилию!

[d00ker]

Ой, все все все )) Спасибо! я сам доделал!

[DM_bite]

Ой, все все все )) Спасибо! я сам доделал!

В моем примере все наоборот, но он нужен был лишь для того, чтобы ты понял как это делать.

[d00ker]

В моем примере все наоборот, но он нужен был лишь для того, чтобы ты понял как это делать.

Ну я так и понял