W Cat - Описание языка PascalABC.NET

Дополнительная информация о возможностях режима окна с динамической компоновкой приведена в соответствующем разделе страницы, посвященной описанию окна задачника.

ExamTaskC53°. На вход подаются сведения о ценах на бензин на автозаправочных станциях (АЗС). В первой строке содержится значение M одной из марок бензина, во второй строке указывается целое число N , а каждая из последующих N строк имеет формат

<���Марка бензина> <���Улица> <���Компания> <���Цена 1 литра (в копейках)>

Имеется не более 20 различных компаний и не более 30 различных улиц; названия компаний и улиц не содержат пробелов. В качестве марки бензина указываются числа 92, 95 или 98. Цена задается целым числом в диапазоне от 2000 до 3000. Каждая компания имеет не более одной АЗС на каждой улице; цены на разных АЗС одной и той же компании могут различаться. Для каждой улицы, на которой имеются АЗС с бензином марки M , определить максимальную цену бензина этой марки (вначале выводить максимальную цену, затем название улицы). Сведения о каждой улице выводить на новой строке и упорядочивать по возрастанию максимальной цены, а для одинаковой цены — по названиям улиц в алфавитном порядке. Если ни одной АЗС с бензином марки M не найдено, то вывести текст «Нет".

Приведем окно задачника, которое появится на экране при запуске программы-заготовки для данного задания (в данном окне скрыт раздел с формулировкой; в результате оказались скрытыми и кнопки, отвечающие за интеллектуальную" прокрутку, поскольку в окне полностью отображается содержимое оставшихся разделов):

Выясним, какая структура является наиболее подходящей для хранения информации, необходимой для решения задачи. Нам требуется информация, связанная с различными улицами, которых по условию не более 30, причем для каждой улицы надо хранить сведения двух видов: ее название и максимальную цену бензина марки M . Поэтому мы можем либо завести массив из 30 элементов-записей с двумя полями, либо два массива: один содержащий названия улиц, а другой -- максимальные цены. Учитывая, что в конце программы нам потребуется выполнять сортировку полученных данных, целесообразнее использовать массив записей, поскольку это позволит записать алгоритм сортировки в более компактной форме.

Определим запись Street с двумя полями name и max и опишем массив s из 30 элементов типа Street. Следует также завести переменную ns, в которой будет храниться количество заполненных элементов массива s.

При обработке каждой строки с исходными данными нам будут нужны прежде всего сведения о марке бензина. Если марка бензина не равна M, то оставшуюся часть строки обрабатывать не требуется, и можно сразу перейти к разбору следующей строки. Если марка бензина равна M, то необходимо узнать название улицы s0 и цену бензина p. Заметим, что название компании для решения задачи не требуется, однако его необходимо прочесть, чтобы определить следующий элемент данных -- цену бензина.

Если улица с названием s0 еще не была включена в массив s, то ее необходимо включить в массив, присвоив полю max значение p. Если же улица уже присутствует в массиве, то необходимо сравнить поле max для данной улицы и значение p, изменив при необходимости поле max (здесь мы используем базовый алгоритм нахождения максимального значения).

Для ввода названий улиц и компаний в нашем случае удобно организовать посимвольное чтение строковых данных; признаком завершения такого чтения будет обнаружение пробельного символа.

После обработки набора исходных данных необходимо проверить, найдена ли хотя бы одна улица с АЗС, предлагающей марку бензина M (для этого достаточно сравнить значение ns с нулем). Если ни одна улица не найдена, то надо вывести строку Нет"; в противном случае требуется выполнить сортировку массива s по указанному набору ключей и вывести полученные данные в требуемом порядке. Поскольку размер массива невелик, для его сортировки вполне допустимо использовать один из простых алгоритмов, например, алгоритм пузырьковой сортировки .

Приведем один из вариантов правильного решения задачи:

usesPT4Exam;

type

Street = record

name: string;

max: integer;

end;

var

m, n, ns, i, j, k, p: integer;

s: array[1..30] of Street;

s0: string;

x: Street;

c: char;

begin

Task('ExamTaskC53');

readln(m); { m - марка бензина }

readln(n);

ns := 0;

fori := 1 ton do

begin

read(k);

ifk <> m then

readln { пропускаем оставшуюся часть строки }

else

begin

s0 := '';

read(c); { пропускаем пробел после первого числа }

read(c); { читаем первый символ названия улицы }

whilec <> ' ' do

begin

s0 := s0 + c;

read(c);

end;

read(c); { читаем первый символ названия компании }

whilec <> ' ' do

read(c); { название компании не сохраняем }

readln(p); { читаем цену бензина и переходим на новую строку }

{ Обработка прочитанной информации }

k := 0;

forj := 1 tons do

ifs[j].name = s0 then { улица уже содержится в массиве s }

begin

k := 1;

ifs[j].max < p then

s[j].max := p;

break;

end;

ifk = 0 then { улица еще не содержится в массиве s }

begin

Inc(ns);

s[ns].name := s0;

s[ns].max := p;

end;

end;

end;

ifns = 0 then { ни одной улицы не найдено }

writeln('Нет')

else

begin

{ Сортировка по возрастанию максимальной цены,

а для одинаковых цен - по названиям улиц }

fork := 1 tons - 1 do

fori := 1 tons - 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;

{ Вывод результатов в требуемом порядке }

fori := 1 tons do