Программа - телефонный справочник

Neaera · 21.01.2010, 17:30

предприятие имеет местную телефонную станцию на 20 номеров. телефонный справочник данного предприятия для каждого номера телефона содержит номер помещения и список служащих, сидящих в данном помещении.
составить программу котоая:
корректирует базу;
по номеру телефона выдает номер помещения и список сидящих в нем людей;
по номеру помещения выдает номер телефона;
по фамилии выдает номер телефона и номер помещения.
Номер телефона-двузначный. в одном помещение может находиться от 1 до 4 служащих

Мне нужно подкоррективовать мое решение >.<

Neaera · 21.01.2010, 20:22

ааааа...помогите пожалуйста(((

Vladimir_S · 21.01.2010, 21:25

М-да, ну если Вы действительно сами сумели создать ТАКОЕ, то, полагаю, наша помощь Вам не требуется. Единственное... у Вас практически в каждой подпрограмме в качестве входного параметра фигурирует конструкция типа
a:array[1..n] of note
Не знаю, как Ваш транслятор, а мой такого не понимает, ему можно только
a:array of note
Ну или предварительно ввести
TYPE AR=array[1..n] of note и уже в параметрах подпрограммы указывать тип AR. Но не думаю, что в этом Ваши сложности (слишком просто). А в остальном - ну кто же, кроме Вас, сумеет правильно протестировать созданного Вами же монстра?

Neaera · 21.01.2010, 21:51

ахаахха
мой монстр каварен и ужасен) но если честно он создавался по образцу и поэтому до ума у меня ее довести не получается ><

21.01.2010, 20:22	#2 (permalink)
Neaera Новичок Регистрация: 21.01.2010 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ааааа...помогите пожалуйста(((

21.01.2010, 21:25	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	М-да, ну если Вы действительно сами сумели создать ТАКОЕ, то, полагаю, наша помощь Вам не требуется. Единственное... у Вас практически в каждой подпрограмме в качестве входного параметра фигурирует конструкция типа a:array[1..n] of note Не знаю, как Ваш транслятор, а мой такого не понимает, ему можно только a:array of note Ну или предварительно ввести TYPE AR=array[1..n] of note и уже в параметрах подпрограммы указывать тип AR. Но не думаю, что в этом Ваши сложности (слишком просто). А в остальном - ну кто же, кроме Вас, сумеет правильно протестировать созданного Вами же монстра?

21.01.2010, 21:51	#4 (permalink)
Neaera Новичок Регистрация: 21.01.2010 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ахаахха мой монстр каварен и ужасен) но если честно он создавался по образцу и поэтому до ума у меня ее довести не получается ><

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070