while c <> ' ' do
read(c); { название компании не сохраняем }
readln(p); { читаем цену бензина и переходим на новую строку }
{ Обработка прочитанной информации }
k := 0;
for j := 1 to ns do
if s[j].name = s0 then { улица уже содержится в массиве s }
begin
k := 1;
if s[j].max < p then
s[j].max := p;
break;
end;
if k = 0 then { улица еще не содержится в массиве s }
begin
Inc(ns);
s[ns].name := s0;
s[ns].max := p;
end;
end;
end;
if ns = 0 then { ни одной улицы не найдено }
writeln('Нет')
else
begin
{ Сортировка по возрастанию максимальной цены,
а для одинаковых цен - по названиям улиц }
for k := 1 to ns - 1 do
for i := 1 to ns - k do
if (s[i].max > s[i + 1].max) or
(s[i].max = s[i + 1].max) and
(s[i].name > s[i + 1].name) then
begin
x := s[i];
s[i] := s[i + 1];
s[i + 1] := x;
end;
{ Вывод результатов в требуемом порядке }
for i := 1 to ns do
writeln(s[i].max,' ',s[i].name);
end;
end.
Электронный задачник Programming Taskbook
Общее описание
Электронный задачник Programming Taskbook предназначен для обучения программированию на языках Pascal, Visual Basic, C++, C#, Visual Basic .NET, Python и Java. Он содержит 1300 учебных заданий, охватывающих все основные разделы базового курса программирования: от скалярных типов и управляющих операторов до сложных структур данных и рекурсивных алгоритмов. Начиная с версии 4.10, в базовый набор заданий входят группы, связанные с ЕГЭ по информатике и ИКТ.
Автором задачника Programming Taskbook является доцент факультета математики, механики и компьютерных наук Южного федерального университета Михаил Эдуардович Абрамян (mabr@math.sfedu.ru).
Версия 4.11 задачника Programming Taskbook реализована для следующих сред:
Borland Delphi 7.0 и 2006, в частности, Turbo Delphi 2006 for Windows, Free Pascal Lazarus 1.0, Microsoft Visual Basic 5.0 и 6.0, Microsoft Visual C++ 6.0, Microsoft Visual Studio .NET 2003, 2005, 2008, 2010 и 2012 (языки Visual C++, Visual Basic .NET и Visual C# .NET), Python 2.5, 2.6, 2.7, 3.2, NetBeans IDE 6.x и 7.x (язык Java). Задачник включен в учебную систему программирования Pascal ABC (sunschool.math.sfedu.ru, автор доц. С. С. Михалкович), образуя единый программный комплекс Pascal ABC & Programming Taskbook". Задачник может также использоваться совместно с системой программирования PascalABC.NET и веб-средой разработки ProgrammingABC.NET WDE (www.pascalabc.net/WDE).
Начиная с версии 4.9, к задачнику в качестве дополнения можно подключать комплекс Programming Taskbook for MPI -- электронный задачник по параллельному программированию с использованием технологии MPI.
Начиная с версии 4.10, к задачнику в качестве дополнения можно подключать комплекс Programming Taskbook for Bioinformatics -- электронный задачник по строковым алгоритмам биоинформатики.
В версии 4.11 добавлена поддержка языков Python и Java и дополнен интерфейс окна задачника (в частности, реализован новый режим окна с динамической компоновкой).
Задачник Programming Taskbook предоставляет учащимся следующие возможности: отображение на экране текста задания и связанных с ним данных; демонстрация правильных результатов для каждого задания; предоставление исходных данных программе учащегося; выявление стандартных ошибок ввода-вывода, связанных с неверным количеством или неверным типом исходных или результирующих данных; проверка правильности результатов, полученных программой; запись в особый файл результатов информации о каждом тестовом испытании программы; регистрация задания как выполненного после проведения серии успешных тестовых испытаний программы.
Использование электронного задачника существенно ускоряет процесс выполнения заданий, так как избавляет учащегося от дополнительных усилий по организации ввода-вывода, что особенно удобно при обработке массивов, строк, файлов и динамических структур. Предлагая учащемуся готовые исходные данные, задачник акцентирует его внимание на разработке и программной реализации алгоритма решения заданий, причем разнообразие исходных данных обеспечивает надежное тестирование предложенного алгоритма.
Программный комплекс Электронный задачник по программированию Programming Taskbook 4" зарегистрирован в Реестре программ для ЭВМ 28 апреля 2007 г. (свидетельство об официальной регистрации программы для ЭВМ номер 2007611815).
Подробная информация о задачнике, включающая его общее описание, формулировки всех учебных заданий, примеры выполнения типовых заданий для различных языков программирования, содержится на сайте ptaskbook.com.
Программные модули
В состав задачника входят следующие программные модули: PT4Demo -- позволяет просмотреть в демонстрационном режиме все задания, включенные в задачник; PT4Load -- обеспечивает генерацию программы-шаблона для требуемого учебного задания и ее немедленную загрузку в выбранную среду программирования; PT4Results -- предназначен для расшифровки, анализа и отображения на экране содержимого файла результатов, в который заносятся сведения о ходе выполнения заданий.
В варианте задачника для PascalABC.NET эти модули могут быть вызваны непосредственно из среды PascalABC.NET с помощью соответствующих команд меню Модули", а также кнопок и горячих клавиш:
или Shift+Ctrl+D для PT4Demo, или Shift+Ctrl+L для PT4Load, или Shift+Ctrl+R для PT4Results. Начиная с версии 4.11, программный модуль PT4Results можно вызывать непосредственно из окна задачника, используя клавишу F2.
Мини-вариант задачника
Часть заданий можно выполнять в мини-варианте задачника, не требующем приобретения лицензии и регистрации лицензированной копии задачника с помощью программы настройки PT4Setup). Задания, доступные для выполнения в мини-варианте, помечаются в окне задачника символом «°". В мини-вариант включены 310 заданий, в том числе все задания групп Begin, Integer, Boolean, а также 200 избранных заданий из других разделов задачника. Ниже приводится список всех заданий, включенных в мини-вариант задачника: