помогите написать программу ( Паскаль )

[L.K.L.K.L]

В записной книжке указана фамилия, номер телефона, год рождения человека. Составить программу, которая выводит данные об этом человеке, если номер телефона совпадает с заданием.
( Язык программирования-Паскаль).

[Stilet]

Попытки и наработки имеются?

[L.K.L.K.L]

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

Попытки и наработки имеются?

Program SS;
uses crt;
familis: string [20];
Tel:string [20];
birthday: string [8];
nom: string [8};
end.
var a:array [1..10] of string;
i: integer, Telk:ankete;
for i:1 to 10 do
begin
writeln ('введите данные');
with telk do
begin
readln (familia);
readln (tel);
readln (birhday);
end.
For i:=1 to n do
writeln (a[i]);
writeln ('892114');
readln (telk.nom);
for i: 1 to n do
begin
If nom=tel then
write (a[i]);
end.

как-то так

[Aleksandr H.]

Этот код тупо вручную сюда писался? Без какой-либо привязки к Паскалю.

[L.K.L.K.L]

Сообщение от Aleksandr H.

Этот код тупо вручную сюда писался? Без какой-либо привязки к Паскалю.

да, ну это набросок, как и попросили

[Stilet]

М.м.м... Ну в теории уже кое-что, но практика - каша.

Program SS;
uses crt;
type
TRecord=record
 familia: string [20];
 Tel:string [20];
 birthday: string [8];
 nom: string [8];
end;

var a:array [1..10] of TRecord;
i: integer; nom:string;

begin
for i:=1 to 10 do begin
 writeln ('введите данные');
 with a[i] do begin
  readln (familia);
  readln (tel);
  readln (birhday);
 end;
end;

write('какой номер?');readln(nom);

For i:=1 to n do if a[i].Tel=nom then with a[i] do writeln (familia,' ',birthday);

readln;
end.

Писано с потолка, но рекомендую тебе почитать учебник по паскалю.
пока что твои познания оч. хромают. Они хорошие, но почему то хромают )

[Aleksandr H.]

Ужосна, а не набросок, такое не могли просить.

Вот набросок, но...тоже не проверялся на жизнь

Program SS;
uses crt;
type ankete = record
    familia:string[20];
    tel:string[20];
    birthday:string[8];
    end;
var a:array [1..10] of ankete;
i: integer;
zadnomer:string[20];
begin
for i:=1 to 10 do
begin
    writeln ('введите данные');
    with a[i] do
    begin
        readln(familia);
        readln(tel);
        readln(birthday);
    end;
end;
writeln ('892114');
readln (zadnomer);
for i:=1 to 10 do
 If zadnomer = a[i].tel then write(a[i].familia,' ',a[i].tel,' ',a[i].birthday);
readln;
end.

А дату рождения в 8 символов как помещаешь? ddmmyyyy или dd.mm.yy?

[L.K.L.K.L]

Сообщение от Aleksandr H.

Ужосна, а не набросок, такое не могли просить.

Вот набросок, но...тоже не проверялся на жизнь

Program SS;
uses crt;
type ankete = record
    familia:string[20];
    tel:string[20];
    birthday:string[8];
    end;
var a:array [1..10] of ankete;
i: integer;
zadnomer:string[20];
begin
for i:=1 to 10 do
begin
    writeln ('введите данные');
    with a[i] do
    begin
        readln(familia);
        readln(tel);
        readln(birthday);
    end;
end;
writeln ('892114');
readln (zadnomer);
for i:=1 to 10 do
 If zadnomer = a[i].tel then write(a[i].familia,' ',a[i].tel,' ',a[i].birthday);
readln;
end.

А дату рождения в 8 символов как помещаешь? ddmmyyyy или dd.mm.yy?

второе
dd.mm.yy