Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 76.

Составить программу-справочник, предоставляющую полную информацию об объекте по некоторому фрагменту сведений о нем.

program p62;
  uses crt;
  const n=3;
  a:array[1..n] of string =('Иванов','Петров', Сидоров');
  c:array[1..n] of string=('911-11-11,'911-22-22','911-33-33');
  var b:string;
       i,j:integer;
begin
  clrscr;
  writeln('b=');readln(b);
  for j:=1 to n do
  for i:= 1 to length(a[j])-length(b)+1 do
  if copy(a[j], i, length(b)) =b then
  writeln (a[j],' ',c[j]);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100