Контрольные тренировочные задания
(решения)
Часть 2
Задание 27
Решение примера 1
Задание А (более легкое, чем Б)
Имеется набор данных, состоящий из 5 пар положительных целых чисел. Необходимо выбрать из каждой пары ровно одно число так, чтобы сумма квадратов всех выбранных чисел была нечетной и при этом максимально возможной. Если получить требуемую сумму невозможно, в качестве ответа нужно выдать 0.
Напишите программу для решения этой задачи. В этом варианте задания оценивается только правильность программы, время работы и размер использованной памяти не имеет значения.
Максимальная оценка за правильную программу - 2 балла.
Задание Б (более сложное, чем А)
Имеется набор данных, состоящих из пар положительных целых чисел. Необходимо выбрать из каждой пары ровно одно число так, чтобы сумма квадратов всех выбранных чисел была нечетной и при этом максимально возможной. Если получить требуемую сумму невозможно, в качестве ответа нужно выдать 0.
Напишите программу для решения этой задачи.
Постарайтесь сделать программу эффективной по времени, если время работы программы пропорционально количеству пар чисел N, т.е. при увеличении N в k раз время работы программы должно увеличиваться на более чем в k раз.
Программа считается эффективной по памяти, если размер памяти, использованной в программе для хранения данных, не зависит от числа N и не превышает 1 килобайта.
Максимальная оценка за правильную программу, эффективную по времени и по памяти, - 4 балла.
Как в варианте А, так и в варианте Б программа должна напечатать одно число - максимально возможную сумму, соответствующую условиям задачи (или 0, если такую сумму получить нельзя).
Например: 2 6 4 1 7 3 2 9 7 4 sum=231
Решение.
Задание Б (алгоритм):
- поскольку в задании указано, что "имеется набор данных, состоящих из пар...", то введем в программу переменную
n
для количества пар, значение которой будет считываться со стандартного входного потока: - объявим сами числа типа
integer
, переменную цикла -i
- типаinteger
и дополнительные переменные, смысл которых будет объяснен ниже. Объявление сделаем в отдельных строках (так можно не делать), чтобы можно было ввести удобно комментарии: - так как в задании не оговаривается, что пары чисел считывается из файла, значит их необходимо считать со стандартного входного потока оператором
readln()
; т.е. организуем цикл:
n:longint; {количество пар чисел}; |
x,y: integer; {пара чисел} max: integer; {максимальное из пары} min: integer; {минимальное из пары} sum:longint; {сумма квадратов отобранных чисел} min_kvadr:longint; {мин. нечетная разница квадратов max и min} i:integer; |
for i:=1 to n do begin readln(x,y); ... |
Допустим имеем пары:
2 6 4 1 7 3 2 9 7 4
2 6 4 1 7 3 2 9 7 4
if x>y then begin max:=x; min:=y end else begin max:=y;min:=x end; |
sum:=sum+sqr(max); |
2 6 - разница 4
4 1 - разница 3
7 3 - разница 4
2 9 - разница 7
7 4 - разница 3
if((max-min) mod 2 > 0) and ((sqr(max)-sqr(min)) < min_kvadr) then min_kvadr:=sqr(max) - sqr(min) |
min_kvadr:=1073676289; {32 767 * 32 767 (самое большое в типе integer) } |
if sum mod 2 = 0 then begin if min_kvadr > 10000 then sum := 0 else sum:=sum - min_kvadr end; |
Задание Б (эффективная программа):
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | var n:longint; {количество пар чисел} x,y: integer; {пара чисел} max: integer; {максимальное из пары} min: integer; {минимальное из пары} sum:longint; {сумма квадратов отобранных чисел} min_kvadr:longint; {мин. нечетная разница квадратов max и min} i:integer; begin sum:=0; readln(n); min_kvadr:=1073676289; {32 767 * 32 767, самое большое integer} for i:=1 to n do begin readln(x,y); if x>y then begin max:=x; min:=y end else begin max:=y;min:=x end; sum:=sum+sqr(max); if((max-min) mod 2 > 0) and ((sqr(max)-sqr(min)) < min_kvadr) then min_kvadr:=sqr(max) - sqr(min) end; if sum mod 2 = 0 then begin if min_kvadr > 10000 then sum := 0 else sum:=sum - min_kvadr end; writeln('sum=',sum) end. |
Пример работы программы:
3 1 4 2 4 3 4 sum=41
Возврат на страницу Решение примеров части 2 задание 27