Записная книжка, ?!?!? Опции

[Гелла]

У меня такая задача:составить телефонную киигу,так чтоб выполнялись все её функци..т.е если ты вводишь фамилию то она выдает тебе телефон, и наоборот...но предварительно нужно ввести записи:т.е. фамилии и телефоны...число страниц в книге равно кол-ву букв в алфавите..я вроде как немного разобралась...но не знаю как построить программу..
Я думаю нужны три подпрограммы, первая-вводит новую запись с фамилиями и телефонами...вторая-выдает телефон по фамилии, а третья по введенному телефону находит фамилию..всё это наверное оформляется в виде процедур...подскажите мне..я не уверена, что правильно всё распределила и не знаю как это реализовать..наведите меня на умную мысль пожалста...

[Гелла]

Ребят, вот что вышло...не уверена, что правильно......осталось только главную программу....

uses crt;
type  Stroka=record
            fam:string[16];
            tel:string[8]
      end;
      List=array [1..20] of Stroka;
      Book=array ['A'..'Z'] of List;
var
i:char;
s1:string[16];
s2:string[8];
    B:Book;
    j:integer;
    t:string;
procedure vvod(st1,st2:string);    {vvod informatsii}
var i:integer;
begin
     if B[st1[1]][20].fam[0]<>'0' then begin
      writeln('..');
      exit
      end;
     for i:=1 to 20 do
      if B[st1[1]][i].fam[0]='0' then
      begin
      B[st1[1]][i].fam:=copy(st1,0,length(st1));
      B[st1[1]][i].tel:=copy(st2,0,length(st2));
      clrscr;
       writeln('zapisano');
      exit
      end;
end;
procedure telepofam(s:string; var t:string);         {vydayot telefon po familii}
var i,b:integer;
begin
    b:=0;
    for i:=1 to 20 do
     if B[s[1]][i].fam=s then
     begin t:=M1[s[1]][i].tel; b:=1 end;
    if b=0 then
    writeln('Такого пользователя нет');
end;
procedure OldF(s:string; var t:string);           {vydayot familiu po telefonu}
var i,b:integer;
    j:char;
begin
    b:=0;
   for j:='A' to 'Z' do
    for i:=1 to 20 do
     if M1[j][i].tel=s then begin
                              t:=M1[j][i].fam; b:=1;
                              end;
    if b=0 then
    writeln('takogo polzovatelya net');
end.

Теги !

Сообщение отредактировано: volvo - 5.11.2006 19:09