Решение задач на языке ABC Pascal

С4 (высокий уровень) Тема: Обработка данных, вводимых в виде символьных строк (написать программу средней сложности из строк) или последовательности чисел.

На ускорителе для большого числа частиц производятся замеры скорости каждой из них. Скорость частицы – это целое число (положительное, отрицательное или 0). Частиц, скорость которых измерена, может быть очень много, но не может быть меньше трёх. Скорости всех частиц различны. При обработке результатов в каждой серии эксперимента отбирается основное множество скоростей. Это такое непустое множество скоростей частиц (в него могут войти как скорость одной частицы, так и скорости всех частиц серии), для которого произведение скоростей является максимальным среди всех возможных множеств. При нахождении произведения знак числа учитывается. Если есть несколько таких множеств, то основным считается то, которое содержит наибольшее количество элементов. Вам предлагается написать эффективную, в том числе по используемой памяти, программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет обрабатывать результаты эксперимента, находя основное множество. Перед текстом программы кратко опишите используемый Вами алгоритм решения задачи. На вход программе в первой строке подаётся количество частиц N. В каждой из последующих N строк записано одно целое число, по абсолютной величине не превышающее Пример входных данных: Программа должна вывести в порядке возрастания номера частиц, скорости которых принадлежат основному множеству данной серии. Нумерация частиц ведётся с единицы. Пример выходных данных для приведённого выше примера входных данных: 1 2 5

Основное множество состоит из всех значений скоростей, кроме 0, если он встречается, и кроме минимальной по модулю отрицательной скорости, если отрицательных скоростей чётное число. Программа читает все входные данные один раз, не запоминая все входные данные в массиве, размер которого равен N. Во время чтения данных запоминается номер 0, если он встретится (по условию все значения различны, поэтому 0 встречается не больше одного раза), подсчитывается количество отрицательных значений и ищется минимальное по модулю отрицательное значение. После окончания ввода распечатываются все номера, кроме номера 0 номера минимального по модулю отрицательного значения, но только в случае, если их чётное число.

var n, i, j, k, c, min, a: longint; begin readln(n); min := ; k := 0; j := 0; c := 0; for i := 1 to n do begin readln(a); if a = 0 then j := i; if a < 0 then begin c := c + 1; if a > min then begin min := a; k := i; end; for i := 1 to n do if (i j) and ((c mod 2 0 ) or (i k)) then write(i, ' '); end.

На ускорителе для большого числа частиц производятся замеры скорости каждой из них. Скорость частицы – это целое неотрицательное число. Частиц, скорость которых измерена, может быть очень много, но не может быть меньше трёх. Скорости всех частиц различны. Скорость, по крайней мере, одной частицы нечётна. При обработке результатов в каждой серии эксперимента отбирается основное множество скоростей. Это непустое подмножество скоростей частиц (в него могут войти как скорость одной частицы, так и скорости всех частиц серии), такое, что сумма значений скоростей у него нечётна и максимальна среди всех возможных непустых подмножеств с нечётной суммой. Если таких подмножеств несколько, то из них выбирается то подмножество, которое содержит наименьшее количество элементов. Вам предлагается написать эффективную, в том числе по используемой памяти, программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет обрабатывать результаты эксперимента, находя основное множество. Перед текстом программы кратко опишите используемый Вами алгоритм решения задачи. На вход программе в первой строке подаётся количество частиц N. В каждой из последующих N строк записано одно целое неотрицательное число, не превышающее Все N чисел различны. Хотя бы одно из чисел нечётно. Пример входных данных: Программа должна вывести в порядке возрастания номера частиц, скорости которых принадлежат основному множеству данной серии. Нумерация частиц ведётся с единицы. Пример выходных данных для приведённого выше примера входных данных: 1 3

Основное множество состоит из всех значений скоростей, кроме 0. если он встречается, и кроме минимального нечётного значения, если таких значений нечётное число. Программа читает все входные данные одни раз. не запоминая все входные данные в массиве, размер которого равен N. Во время чтения данных запоминается номер 0, если он встретился (по условию все значения различны, поэтому 0 встречается не больше одного раза), подсчитывается количество нечётных значений и ищется минимальное нечётное значение. После окончания ввода распечатываются все номера, кроме номера 0 и номера минимального нечётного значения, но только в случае, если их количество нечётно.

var n,i,j,к, с, rain, a: longint; begin readln(n); min := ;k := 0;j := 0;с := 0; for i := 1 to n do begin readln(a); if a = 0 then j := i; if a mod 2 0 then begin с := с + 1; if a < min then begin rain := a; k := i; end ; for i 1 to n do if (i j) and ((c mod 2 = 0) or (i k)) then write(i, ' '); end.

По каналу связи передаётся последовательность положительных целых чисел, все числа не превышают Количество чисел известно, но может быть очень велико. Затем передаётся контрольное значение последовательности – наибольшее число R, удовлетворяющее следующим условиям: 1) R – произведение двух различных переданных элементов последовательности («различные» означает, что не рассматриваются квадраты переданных чисел, произведения различных элементов последовательности, равных по величине, допускаются); 2) R делится на 10. Если такого числа R нет, то контрольное значение полагается равным 0. В результате помех при передаче как сами числа, так и контрольное значение могут быть искажены. Напишите эффективную, в том числе по используемой памяти, программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет проверять правильность контрольного значения. Программа должна напечатать отчёт по следующей форме: Вычисленное контрольное значение: … Контроль пройден (или – Контроль не пройден) Перед текстом программы кратко опишите используемый Вами алгоритм решения. На вход программе в первой строке подаётся количество чисел N. В каждой из последующих N строк записано одно натуральное число, не превышающее В последней строке записано контрольное значение. Пример входных данных: Пример выходных данных для приведённого выше примера входных данных: Вычисленное контрольное значение: 9690 Контроль пройден

Произведение двух чисел делится на 14 если: - один из сомножителей делится на 14 (второй может быть любым) либо - ни один из сомножителей не делится на 14. причём один из сомножителей делится на 2. а другой - на 7. Поэтому программа, вычисляющая кодовое число, может работать так. Программа читает все входные данные один раз. не запоминая все данные в массиве. Программа для прочитанного фрагмента входной последовательности хранит значения четырёх величин: М2 - самое большое чётное число, не кратное 7; М7 - самое большое число, кратное 7. но не кратное 2: М14 - самое большое число, кратное 14; МАХ - самое большое число среди всех элементов последовательности, отличное от М14 (если число М14 встретилось более одного раза и оно же является максимальным, то МАХ = M14). После того как все данные прочитаны, искомое кодовое слово вычисляется как максимум из произведений М14*МАХ и М2*М7.

var М2,М7,М14,R,MAX,dat,res,i,N: longint; begin M2 := 0;M7 := 0;M14 := 0;MAX := 0; readln(N); for i := 1 to N do begin readln(dat); if ((dat mod 2) = 0) and ((dat mod 7) >0) and (dat > M2) then M2 := dat; if ((dat mod 7) - 0) and ((dat mod 2) > 0) and (dat > M7) then M7 :- dat; if (dat mod 14 = 0) and (dat > M14) then begin if M14 > MAX then MAX := M14; M14 := dat end else if dat > MAX then MAX dat; end; readln(R); if (M2*M7 < M14 *MAX) then res := M14*MAX else res := M2*M7; writeln('Вы­чис­лен­ное кон­троль­ное зна­че­ние: ',res); if R = res then writeln('Кон­троль прой­ден') else writeln('Кон­троль не прой­ден'); end.

В командных олимпиадах по программированию для решения предлагается не больше 12 задач. Команда может решать предложенные задачи в любом порядке. Подготовленные решения команда посылает в единую проверяющую систему соревнований. Вам предлагается написать эффективную, в том числе по используемой памяти, программу, которая будет статистически обрабатывать пришедшие запросы на проверку, чтобы определить популярность той или иной задачи. Следует учитывать, что количество запросов в списке может быть очень велико, так как многие соревнования проходят с использованием сети Интернет. Перед текстом программы кратко опишите используемый Вами алгоритм решения задачи. На вход программе в первой строке подаётся количество пришедших запросов N. В каждой из последующих N строк записан номер задачи от 1 до 12. Пример входных данных: Программа должна напечатать сведения о количестве запросов на проверку для каждой задачи. Сведения о каждой задаче выводятся в отдельной строке: сначала выводится номер задачи, потом соответствующее количество запросов. Сведения о задачах, которые не поступали на проверку, выводить не нужно. Строки должны быть упорядочены по убыванию количества запросов, при равенстве количества запросов по возрастанию номеров задач. Пример выходных данных для приведённого выше примера входных данных:

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

Var n, Num, i, j, t: integer; Count: array[1..12] of integer; Begin For i := 1 to 12 do Count[i] := 0; ReadLn(N); for i:=1 to N do begin ReadLn(t); Count[t] := Count[t] + 1; end; for i:=12 downto 2 do for j:=2 to i do if Count[j-1] < Count[j] then begin t:=Count[j]; Count[j]:=Count[j-1]; Count[j-1]:=t; end; for i:=1 to 12 do if Count[i] > 0 then WriteLn(i, ' ', Count[i]); end.

В командных олимпиадах по программированию для решения предлагается не больше 12 задач. Команда может решать предложенные задачи в любом порядке. Подготовленные решения команда посылает в единую проверяющую систему соревнований. Вам предлагается написать эффективную, в том числе по используемой памяти, программу, которая будет статистически обрабатывать пришедшие запросы, чтобы определить наименее популярные задачи. Следует учитывать, что количество запросов в списке может быть очень велико, так как многие соревнования проходят с использованием сети Интернет. Перед текстом программы кратко опишите используемый Вами алгоритм решения задачи. На вход программе в первой строке подаётся количество пришедших запросов N. В каждой из последующих N строк записано название задачи в виде текстовой строки. Длина строки не превосходит 100 символов, название может содержать буквы, цифры, пробелы и знаки препинания. Пример входных данных: 6 А+B Крестики-Нолики А+В Простой делитель А+В Простой делитель Программа должна вывести список из трёх задач, встречающихся в запросах наименьшее число раз, с указанием количества запросов по ним. Если в запросах упоминается менее трёх задач, то выведите информацию об имеющихся задачах. Если несколько задач имеют ту же частоту встречаемости, что и третья по частоте встречаемости задача, то выведите только одну из них. Пример выходных данных для приведённого выше примера входных данных: Крестики-Нолики 1 Простой делитель 2 А+В 3

Программа читает все входные данные один раз, не запоминая их в массиве, размер которого равен N, а составляя только список встретившихся задач и количества запросов по каждой из них. Во время чтения данных об очередной задаче просматривается список ранее сохранённых задач; если она уже есть в списке, то количество запросов по ней увеличивается на 1, иначе задача добавляется в массив упомянутых в запросах задач (при корректных данных размер массива не может быть больше 12). После окончания ввода производится сортировка массивов задач и количества запросов, отданных за них, в порядке возрастания количества запросов; затем выводится список из трёх первых задач с указанием частоты встречаемости (или весь список, если его длина меньше трёх). Вместо сортировки можно применить и алгоритм поиска трёх минимальных элементов в массиве или три первых итерации сортировки. Затем выводятся три первые (или найденные наименее популярные) задачи. Баллы начисляются только за программу, которая решает задачу хотя бы для одного частного случая.

Var n, Num, i, j, t: integer;Count: array[1..12] of integer;s: string;Names: array[1..12] of string; Begin For i := 1 to 12 do Count[i] := 0; Num:=0; {Число различных задач в списке запросов} ReadLn(N); {Считываем количество запросов} for i:=1 to N do begin ReadLn(S); {считали очередную задачу} {Осуществляем её поиск в списке уже встретившихся} j:=1; while (j Names[j]) do j:=j+1; {Если она найдена} if jCount[j] then begin t:=Count[j]; Count[j]:=Count[j-1]; Count[j-1]:=t; s:=Names[j]; Names[j]:=Names[j-1]; Names[j-1]:=s; end; if Num >= 3 then Num := 3; for i:=1 to Num do WriteLn(Names[i], ' ', Count[i]); end.