Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Олимпиада по информатике 11-кл

Страницы: < 1 2
Talvin © (2002-11-23 17:54:00)
Уважаемае мастера, привожу пример задачи олимпиадной работы самой простой:

Сообщесто роботов живёт по следующим законам: один раз в начале года они объеденяются в группы по три или по пять роботов. За год группа из 3 роботов собирает 5 новых, а группа из 5 собирает 9 новых. Роботы собираются так, Роботы собираются так, чтобы собрать за год ниа большее количество. Каждый робот живйт три года после сборки

Задание: Напишите программу на паскале "ROBOT". Которая по известному начальному количеству роботов, которые только что собраны.ю определит сколько роботов буде собрано серез N -лет.

Входные данные:Первая строка входного файла ROBOT.DAT содержит целые чила K и N количество роботов котые только что собраны и число лет, через которые надо определить число роботов.

Выходные данные:Первоя строка выходного файла ROBOT.SOL содержит кол-во начитываемое в сообществе роботов через N лет.

Вопрос: сколько реально требуется времени для решения это задачи, и какого она уровня?

makt_liCh http://www.dago.org (2002-11-24 15:07:00) [21]
Задача решается за пол минуты:
var k,i,n,p:integer;
s,x,y:longint;
r:array [1..3] of longint;
begin
write("Начальное количество роботов k="); readln(k);
write("Число лет n="); readln(n);
r[1]:=k; r[2]:=0; r[3]:=0; s:=k;
for i:=1 to n do
begin
x:=s div 3;
p:=s mod 3;
if p=0 then y:=0
else if p=1 then begin x:=x-3; y:=2 end
else begin x:=x-1; y:=1 end;
r[3]:=r[2]; r[2]:=r[1]; r[1]:=5*x+9*y;
s:=r[1]+r[2]+r[3];
end;
writeln("s=",s)
end.

TTCustomDelphiMaster (2002-11-24 11:10:00) [22]

> makt_liCh http://www.dago.org(24.11.02 10:52)

Это что было?

Sectey (2002-11-24 09:53:00) [23]
Забавная задачка, но в принципе простая.
Да действительно как сказа TTCustomDelphiMaster минуты две ушол на разработку алгоритмя. Ни чего сложного, только надо немножко подумать и посчитать.

Anatoly Podgoretsky (2002-11-24 08:54:00) [24]
На олипиаде задали

TMyGroupBox = class(TGroupBox) (2002-11-24 07:59:00) [25]
Kruto

PaRL (2002-11-23 18:27:00) [26]
где взял

TTCustomDelphiMaster (2002-11-23 18:10:00) [27]
2 минуты на алгоритм + N минут на написание кода

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »