№ п/п | Критерии оценки (для всех задач) | Количество баллов |
1 | Программа разработана полностью, запускается на выполнение, выдает верный результат, но возможно имеет незначительные недочеты | 3-4 |
2 | Программа разработана полностью, запускается на выполнение, но выдает неверный результат | 1-2 |
3 | Программа отсутствует полностью, либо разработана, но не запускается на выполнение | 0 |
Общая тематика задач –
«Всемирный потоп»
Задание 1. «Пришла беда» (Задача на использование условного оператора)
Непреодолимые горные цепи представляют собой оси системы координат, началом которой является гора Арарат с расположенным на вершине Ноевым ковчегом. Задан номер координатной четверти n (1 ≤ n ≤ 4), с которой начинается всемирный потоп. Также заданы координаты местонахождения волка (2 целых числа). Представляет ли потоп реальную угрозу жизни волка (иными словами, находятся ли волк и волны наводнения в одной координатной четверти)? На каком расстоянии от ковчега находится волк?
Пример входных данных:
n = 3
x = -8
y = -6
Ответ:
Да
10
Пример входных данных:
n = 1
x = 8
y = -6
Ответ:
Нет
10
var x, y, c: integer;
r: real;
begin
readln(c);
readln(x, y);
if (c=1) and ((x<0) or (y<0)) or
(c=2) and ((x>0) or (y<0)) or
(c=3) and ((x>0) or (y>0)) or
(c=4) and ((x<0) or (y>0)) then writeln('net') else writeln('da');
r := sqrt(x*x+y*y);
writeln(r);
end.
Задание 2. «Есть ли надежда на спасение» (Задача на циклические вычисления)
Чтобы спастись от наводнения, волку нужно успеть добежать до горы Арарат и попасть на ковчег. Расстояние между волком и ковчегом – R метров. Начальная скорость волка – x метров в минуту. С каждой минутой волк устает, и его скорость падает на 2 метра в минуту. Скорость волн потопа постоянна и равна y метров в минуту. Первоначальное расстояние между волком и ближайшими волнами потопа – Z метров. Через сколько минут волк спасется или его накроет потоп?
Пример входных данных:
R = 500
x = 50
y = 50
Z = 300
Ответ: Волк спасется через 14 минут
Пример входных данных:
R = 500
x = 50
y = 50
Z = 80
Ответ: Волка накроет потоп через 10 минут
var Sx, Sy, x, y, t, r, z: integer;
begin
readln(r, x, y, z);
Sx := 0;
Sy := 0;
t := 0;
Repeat
Sx := Sx+x;
Sy := Sy+y;
t := t+1;
x := x-2;
Until (Sx>=r) or (z-(Sy-Sx)<=0);
if Sx>=r then writeln('Волк спасется через ',t,' минут');
if z-(Sy-Sx)<=0 then writeln('Волка накроет потоп через ',t,' минут');
end.
Задание 3. «Каждой твари по паре» (Задача на обработку элементов одномерного массива)
Собрал Ной на своем ковчеге n зверей (n<32000). Каждый зверь определяется целым числом. Одинаковые числа означают зверей одной породы. Сколько на Ноевом ковчеге можно составить пар зверей одной породы? В ответ вывести одно целое число.
Пример входных данных при n=5:
Ответ: 2.
Примечание. Имеются в виду 2 пары, стоящие на местах (1,4), (2,5).
Пример входных данных при n=6:
Ответ: 3.
Примечание. Имеются в виду 3 пары, стоящие на местах (1,3), (1,4), (3,4).
const n=10;
var a: array[1..n] of integer;
i, j, k: integer;
begin
for i:=1 to n do
readln(a[i]);
k := 0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then k := k+1;
writeln(k);
end.
