Написать программу в процедурном стиле. Интерфейс программы оформить в виде некоторого меню, пункты которого соответствуют заданиям вашего варианта. Сортировку осуществить методом «пузырька». Алгоритм сортировки оформить в виде процедуры в модуле. Доказать правильность работы программы.
1. Вариант
Составить программу, суммирующую штрафное время команд текущий счет и номер результативного игрока при игре в хоккей. Выводить на экран суммарное время и текущий счет обеих команд после любого их изменения. После окончания игры выдать итоговое сообщение. Выдать на экран список номеров игроков в порядке их результативности.
2. Вариант
В ЭВМ по очереди вводятся номера спортсменов и их результаты в соревнованиях по прыжкам в высоту. Выдать на печать лучший результат после выступления очередного спортсмена. После окончания соревнования напечатать итоговое сообщение о трех лучших спортсменах.
3. Вариант
Составить программу помощника кассира в универсальном магазине. ЭВМ должна запрашивать цену товара и его количество, подсчитывать суммарную стоимость купленных товаров, запрашивать сумму денег, внесенных покупателем, и определять причитающуюся ему сдачу. Предусмотреть возможность в конце дня получать информацию о количестве и стоимости проданных товаров по 10 наименованиям. Упорядочить номера видов товаров в зависимости от их спроса.
Вариант
Составить программу, которая ведет учет очков, набранных каждой командой при игре в баскетбол, их штрафного времени и результативности игроков. После любого изменения счет выводить на экран. После окончания игры выдать итоговое сообщение. Упорядочить номера игроков в порядке их результативности.
5. Вариант
В турнире участвуют 10 команд. Составить программу, подсчитывающую число удалений в каждой команде при игре в хоккей. После каждого удаления выводить на экран номер хоккеиста, время, на которое он удаляется с поля, и суммарное число удалений в каждой команде. После окончания игры выдать итоговое сообщение; номера удалявшихся игроков распечатать в порядке возрастания штрафного времени. После окончания турнира напечатать номера игроков, имеющих наибольшее и наименьшее число удалений.
6. Вариант
Составить программу, подсчитывающую число посещений в поликлинике врачей специалистов (отоларинголога, окулист и хирурга). В конце дня выдать итоговое сообщение. В начале работы программы должна вводиться дата, которая будет фигурировать в итоговом сообщении. Предусмотреть возможность выдачи количества осмотренных больных в любой из дней недели и за всю неделю каждым из специалистов. Упорядочить номера специалистов в зависимости от количества посещений.
Вариант
ЭВМ используется при разборе коллекции марок. Составить программу, подсчитывающую число марок по спорту, по искусству, и прочих. Подсчитать общее количество марок в коллекции. Составить и распечатать таблицу наличия указанных марок. Упорядочить номера видов марок в зависимости от количества марок соответствующего вида.
8. Вариант
В сборе картофеля принимают участие 3 бригады. Учет ведется с помощью ЭВМ. Составить программу, которая определяет, сколько картофеля собрала каждая бригада (вес каждой новой порции прибавляется к уже подсчитанной сумме), выводит на экран текущий результат по всем бригадам в конце дня. Предусмотреть возможность хранения и выдачи итогов дня каждой бригады в течении недели. Упорядочить номера бригад в зависимости от итогов работы.
Вариант
Составить программу для определения подходящего возраста для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно удвоением возраста девушки минус 7. Программа должна выдать необходимые сведения для всех желающих вступить в брак. Предусмотреть возможность создания банка данных и автоматического поиска соответствующей кандидатуры по возрасту. Упорядочить номера абонентов в зависимости от возраста.
Вариант
Составить программу, которая запрашивает стоимость книг, сумму денег, внесенных покупателем, а далее определяет причитающуюся сдачу (если денег внесено больше), печатает "спасибо", если сдачи не требуется, или выдает сообщение о недостаточности внесенной суммы. Программа должна обслуживать поток покупателей в течении дня и определять в конце дня общую сумму выручки. Составить таблицу стоимости и количества проданных в течении дня книг по 10 авторам. Таблицу распечатать в конце дня, упорядочив номера авторов в зависимости от количества проданных книг.
Вариант
Аналогично 11. В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя ("Журнал или газета"), принимает деньги (сумма вводится с клавиатуры) и печатает причитающуюся сдачу. Составить таблицу стоимости и количества проданных в течении дня газет и журналов по 15 наименованиям. Таблицу распечатать в конце дня, упорядочив номера изданий в зависимости от количества проданных экземпляров.
Вариант
Составить программу обслуживания соревнований по прыжкам в высоту. Для каждого выступающего спортсмена в ЭВМ вводится номер и результат. На экране должны появиться номер и результат лучшего на данном этапе спортсмена. Составить таблицу результатов соревнований в порядке ухудшения результатов. Таблицу распечатать. Выдать общий итог.
Вариант
При продаже грампластинок ведется учет количества проданных пластинок с классической музыкой, эстрадной и детской. Составить программу, ведущую учет продажи пластинок за рабочий день. Распечатать таблицу количества и стоимости проданных за день пластинок. Выдать общий итог. Упорядочить номера видов пластинок зависимости от количества проданных штук.
Вариант
В соревнованиях по фигурному катанию участвуют 20 фигуристов. Выступление оценивают 6 судей. Написать программу, вычисляющую средний балл выступления и печатающую номера и средние баллы 10 лучших спортсменов. Результат выдавать на печать по ходу соревнований.
15. Вариант
В группе 20 студентов. В течении зимней сессии требуется сдать 5 экзаменов. Написать программу, определяющую количество студентов, сдавших экзамен без троек и количество задолжников и печатающую их номера. Номера студентов упорядочить в зависимости от результатов сессии.
Вариант
В трудовом коллективе проводится соревнование. Качество трудовой деятельности оценивается по 10 пунктам, каждый пункт оценивается баллами от 0 до 20. Написать программу, подсчитывающую средний балл и печатающую фамилии 5 победителей.
Вариант
В турнире по футболу участвует 5 команд. Каждая пара команд встречается один раз. Написать программу, подсчитывающую количество очков, набранных каждой командой, считая, что выигрыш-2 очка; проигрыш-0 очков. Упорядочить номера команд в зависимости от набранных очков.
Вариант
На заводе 5 цехов. Написать программу, определяющую перевыполнение плана каждого цеха за каждый месяц и за весь год. Предусмотреть возможность ввода данных каждый месяц. Распечатать таблицу выполнения плана цехами за год. Напечатать номера цехов в зависимости от выполнения плана.
Вариант
В гараже имеются 15 автомобилей. Подсчитать общий дневной пробег всех автомобилей, расход бензина. Напечатать номера автомобилей, на которых наиболее и наименее экономичное использование бензина.
Вариант
Городской санэпидстанцией берутся пробы воздуха на содержание 10 вредных для здоровья веществ. Написать программу, проверяющую, не превосходит ли содержание вредных веществ допустимые нормы, и печатающую наихудший и наилучший в экологическом отношении дни месяца. Предусмотреть возможность ввода данных и вывод их в виде таблицы. Упорядочить номера веществ в зависимости от превышения их содержания.
Вариант
OTK ежедневно проверяет качество продукции 15 цехов. Написать программу, подсчитывающую процент брака по каждому цеху ежедневно, печатающую номера лучшего и худшего цехов и общий процент брака ежедневно и ежемесячно. Составить таблицу брака, упорядочив цеха в порядке возрастания брака.
Вариант
За последние 10 лет прибрежная полоса Аральского моря, в результате обмеления переместилась на H км. Если динамика обмеления останется прежней, на сколько км переместится прибрежная полоса за N лет. Составить таблицу динамики на ближайшие 100 лет. Предусмотреть возможность ежегодного ввода реальных данных и сравнения их с предполагаемыми.
Вариант
В 10 хозяйствах передали часть земли в пользование 10 арендаторам. Составить программу, позволяющую сравнивать урожайность картофеля в гос. хозяйствах и у арендаторов ежегодно; печатать фамилии и названия 5 лучших.
24. Вариант
Составить программу для учета задолженностей по квартплате жильцов 20 квартирного дома. В памяти должны храниться взносы за каждый месяц. В конце года выдать таблицу взносов, номера квартир владельцев-задолжников и сумму задолженностей. Упорядочить номера квартир в зависимости от размера задолженности.
25. Вариант
Дан список учеников класса и отметки каждого из учеников за выполнение двух контрольных работ. Требуется: подсчитать число учеников, выполнивших первую работу на 5; подсчитать число учеников, выполнивших обе работы на 5. Упорядочить список учеников по среднему баллу за обе контрольные работы.
