Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.10.2009, 09:33   #1
maximk
 
Регистрация: 03.01.2009
Сообщений: 6
Сообщение Курсовая на Turbo Pascal

Необходимо написать программу на Turbo Pascal.


ЗАДАЧА:

Компания "Близэнерго" обеспечивает электричеством M(1≤M≤100) потребителей при помощи N(1≤N≤15) линий электропередачи. Каждый потребитель подключен к нескольким линиям, и электричество у него имеется в случае, если под током находится хотя бы одна из линий.

Некоторые из потребителей не оплачивают потребляемую электроэнергию. В связи с энергетическим кризисом руководство компании решило начать отключение неплательщиков. К сожалению, при этом могут быть отключены и некоторые добросоветсно отплачивавшие электроэнергию потребители в случае, когда они оказались подключенными к той же линии что и неплательщики.

ЗАДАНИЕ:

Требуется по данным о подключении к линиям потребителей и об оплате ими электроэнергии, определить какие линии следует отключить, чтобы:
А) отключенными оказались все неплательщики и минимальное количество добросовестных потребителей;
Б) подключенными остались все добросовестные потребители, и отключилось максимальное количество неплательщиков.


ТЕХНИЧЕСКИЕ ТРЕБОВАНИЯ:

Программа должна обеспечивать следующий режим работы:

1) Выводить приглашение ">" и ожидать ввода имени файла
2) Если введена пустая строка, то программа должна вывести сообщение "До свидания!" и закончить работу.
3) Выводить сообщение "Отключение по плану А: "L1 L2 ... Lk", где L1, L2 ... Lk - номера линий (числа через пробел), отсортированные по возрастанию.
4) Выводить сообщение "Отключение по плану Б: "Q1 Q2 ... Qi", где Q1, Q2, ... Qi - номера линий(числа через пробел), отсортированные по возрастанию.
5)Переходить к пункту 1

Если окажется, что согласно плану никого отключать не надо, то в пункте 3 и/или 4 вместо списка потребителей вывести слово "нет".


ФОРМАТ ВХОДНОГО ФАЙЛА

В первой строке входного файла содержатся числа N и M, разделенные пробелами. В каждой из следующих M строк содержатся числа P C1 C2 ...Cr 0, разделенные пробелами (1≤r≤N). В конце каждой строки находится нуль.

Число P равно 0 для неплательщиков и 1 для добросовестных потребителей. Числа C1 C2 ... Cr - номера линий, к котрым подключен данный потребитель. Каждый потребитель подключен хотя бы к одной линии.


ПРИМЕР

Для входного файла, содержащего
2 3
0 1 2 0
1 1 0
123

Должно быть выведено

Отключение по плану А: 1 2
Отключение по плану Б: нет


ОБЯЗАТЕЛЬНЫЕ ТРЕБОВАНИЯ

1. Программа должна быть написана в Turbo Pascal

2. Исходный код должен быть максимально прокомментирован, чтобы мне самому разобраться в работе программы

3. Очень желательно описать решение данной задачи математически и указать раздел математики для данной задачи (Например: Дискретная математика. Теория множеств.)


Оплата Webmoney или Yandex.Деньги. Предлагайте ваши цены за работу в личку, в Скайп iskymax, на ящик allkall [бака] yandex.ru или Ася три семь 7 8 девять ноль 5 восемь восемь. Либо ваши контакты.
maximk вне форума Ответить с цитированием
Старый 19.10.2009, 10:30   #2
NeshSoft
Максим Николаев
Форумчанин
 
Аватар для NeshSoft
 
Регистрация: 15.02.2009
Сообщений: 170
По умолчанию

Отписал по ICQ
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
NeshSoft вне форума Ответить с цитированием
Старый 19.10.2009, 10:41   #3
airyashov
Форумчанин
 
Регистрация: 02.04.2008
Сообщений: 358
По умолчанию

Обращайтесь помогу
неплохо пишу на ассемблере для 80х86
icq: 3(один)7748666
mail: airyashov(а)inbox.ru
airyashov вне форума Ответить с цитированием
Старый 19.10.2009, 10:42   #4
NeshSoft
Максим Николаев
Форумчанин
 
Аватар для NeshSoft
 
Регистрация: 15.02.2009
Сообщений: 170
По умолчанию

Заказ взял
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
NeshSoft вне форума Ответить с цитированием
Старый 19.10.2009, 11:15   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
"Для входного файла, содержащего
2 3
0 1 2 0
1 1 0
123"

а поясните кто-нибудь, что последняя строчка содержит?
если просто перечень всех линий, то почему 1) нет пробела? 2) зачем, если их количество уже задано в первой строчке? 3) почему словесно не описано в описании формата входного файла?

если я правильно понял.
это описание третьего потребителя... тогда всё равно неверно. где ноль в конце? почему тройка? если линий всего две?
вроде бы тогда в этой (последней) строчке должно быть:
1 2 0

или я чего-то не понял?..

Последний раз редактировалось Serge_Bliznykov; 19.10.2009 в 11:18.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.10.2009, 12:14   #6
maximk
 
Регистрация: 03.01.2009
Сообщений: 6
По умолчанию

Заказ взял NeshSoft.

Да, действительно 1 2 0, опечатался. Serge_Bliznykov спасибо большое за указание неточности.
maximk вне форума Ответить с цитированием
Старый 20.10.2009, 10:05   #7
xNut
 
Аватар для xNut
 
Регистрация: 16.06.2009
Сообщений: 8
Радость

Цитата:
Сообщение от maximk Посмотреть сообщение
Заказ взял NeshSoft.
если что, стучитесь ко мне в ICQ
xNut вне форума Ответить с цитированием
Старый 20.10.2009, 10:23   #8
samec
Пользователь
 
Регистрация: 12.11.2008
Сообщений: 15
По умолчанию

Стучите в асю 11один11-5шесть5шесть, обсудим.
samec вне форума Ответить с цитированием
Старый 22.10.2009, 14:23   #9
Barsp
Новичок
Джуниор
 
Регистрация: 25.07.2009
Сообщений: 2
По умолчанию

Если еще актуально, готов взяться. ICQ 560413250
Barsp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28
Turbo Pascal Jasper92 Помощь студентам 17 25.04.2009 14:17
Turbo Pascal dinozavr Помощь студентам 5 13.04.2009 22:10
переменные Turbo Pascal Adzumi Помощь студентам 7 29.03.2008 20:11