Ввести номер одного из друзей и вывести его имя (задача на записи)

Posted by obzor under Delphi

Помогите написать программу, завис на этом.

Ввести номер телефона одного из четырех друзей. Вывести его имя.
Serge_Bliznykov

type
PhoneRec = record
  pnum : string[8],
  name : string[45]
end;

const MaxCount = 2;
var abook:array[1..MaxCount] of PhoneRec;
  i, iFound : integer;
  FindPnoneNum : string;
begin
   abook[1].pnum :='1111'; abook[1].name:='Vasya';
   abook[2].pnum :='1222'; abook[2].name:='Ivan';

   WriteLn('Введите номер друга (например, 1111 или 1222: ');
   ReadLn(FindPnoneNum);
   iFound ;= -1;
   for i:=1 to MaxCount do
      if abook[ i].pnum=FindPnoneNum then begin iFound := i; Break; end;
   if iFound<0 then WriteLn('Нет друга с заданным номером')
   else WriteLn('Найден друг: ', abook[iFound].name);
   ReadLn
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)
• Необходимо расположить эти числа в порядке возрастания сумм их цифр