Самое главное: из 6 участников от нашей школы все 6 заняли призовые места!
Поздравляю победителей!
Марк Приймак - 10 класс - 1 место
Павел Карлин - 10 класс - 2 место
Александр Купченко - 8 класс - 2 место
Максим Васильев - 8 класс - 2 место
Лев Ливинский - 11 класс - 3 место
Константин Устименков - 8 класс - 3 место
А теперь разберем, что было сделано не совсем так, и как надо было сделать правильно.
Задача 1.
Палиндром. Палиндром, Карл! Смотрим СЮДА, Паша - молодец, повторил перед олимпиадой!
Задача 2.
Цветное изображение имеет N цветов. Размер
изображения AxB см. Разрешение R точек на дюйм (1 дюйм =
2,54 см).
Определить, сколько Кбайт памяти нужно для хранения изображения в несжатом виде?
Определить, сколько Кбайт памяти нужно для хранения изображения в несжатом виде?
Входные данные
Первая строка содержит натуральное число N количество
цветов. Следующие две строки содержат действительные числа, которые задают
размер фотографии. Последняя строка содержит натуральное число, которое задает
разрешение. Все числа входного файла по абсолютной величине не превышают
1000000000.
Выходные данные
Единственная строка файла содержит искомый размер
фотографии, как действительное число с двумя знаками после запятой.
Пример входных и выходных данных
|
input.txt
|
output.txt
|
|
8
10 15 30 |
766.29
|
Решение
Для решения задачи необходимо определить количество бит
занимаемая точка и подсчитать их количество. Для определения количества бит
используется соотношение n=2k (где n — количество точек, k —
количество бит), отсюда
Т.е. мы получаем логарифм по основанию 2 числа n, но, поскольку Паскаль не умеет считать логарифмы по произвольному основанию, по правилам работы с логарифмами приводим нужный результат к натуральным логарифмам, с основанием числа Эйлера, мы об этом говорили.
Данная формула используется для определении количества
двоичных кодов в бинарном дереве.
|
n
|
b
|
|
2
4 8 16 32 … 256 65536 16777216 |
1
2 3 4 5 … 8 16 24 |
В итоге, с логарифмами это решается так:
program photo;
var bit,n,a,b,r:integer;
k:real;
f1,f2:text;
begin
assign(f1,'photo.dat');
reset(f1);
read(f1,n,a,b,r);
close(f1);
bit:=round(ln(n-1)/ln(2)+1);
k:=(a/2.54)*(b/2.54)*r*r*bit/8/1024;
k:=int(k*100)/100;
assign(f2,'photo.sol');
rewrite(f2);
writeln(f2,k:2:2);
close(f2);
end.
Можно решить БЕЗ логарифмов. Тогда программа будет выглядеть так:
program photo;
var bit,n,a,b,r:integer;
k:real;
f1,f2:text;
begin
assign(f1,'photo.dat');
reset(f1);
read(f1,n,a,b,r);
close(f1);
bit:=1;
n:=n-1;
while n>1 do begin
bit:=bit+1;
n:=n div 2;
end;
if n>2 then bit:=bit+1;
k:=(a/2.54)*(b/2.54)* r * r * bit/8/1024;
k:=int(k*100)/100;
assign(f2,'photo.sol');
rewrite(f2);
writeln(f2,k:2:2);
close(f2);
end.
Знать математику - выгоднее, чем не знать. Задание: объяснить, в чем разница между двумя вариантами программы.
Задача 3.
Из одного порта в другой
необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором
будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах
грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать
судну, если грузы неделимы и могут перевозиться только подряд в порядке их
нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).
Смысл решения: берем кораблик номер k и начинаем в него закладывать грузы по порядку. Если сумма того, что там уже есть, и масса текущего груза превышают 50, мы отправляем текущий кораблик, добавляем к k единичку и начинаем грузить дальше с того груза, который не влез в предыдущий кораблик.
program z3;
var
m:array[1..15] of integer;
k,i,s:integer;
Begin
for i:=1 to 15 do
begin
writeln ('Введите m','[',i,']');
readln (m[i]);
end;
k:=1; i:=1; s:=0;
Внимание! Используем цикл repeat - until. Подробности - в словаре сайта.
repeat
if s+m[i]<=50 then
begin
s:=s+m[i];
i:=i+1;
end
else
begin
k:=k+1;
s:=0;
end;
until i>15;
writeln ('Потребовалось ', k,' рейсов');
end.
Очень рекомендую сходить на сайт: Олимпиады по информатике
И скачать и разобрать задачи с решениями
