Задача: Боулинг! Опции

[Лисенок]

Здравствуйте, у меня есть любопытная задача без решения. На первый взгляд кажется довольно легкой, но это только маскировка) Итак, задача про Боулинг. Выполняется только в Паскале.
Цель при игре в боулинг - сбить шаром максимальное количество кеглей. Партия в этой игре состоит из 10 туров. Задача игрока - сбить все 10 кеглей в каждом туре. Для этого игрок может совершить 2 броска шара, за исключением:
- если 10 кеглей сбиты первым броском, то второй бросок не совершается;
- если 10 кеглей сбиты первым броском в десятом туре, то игроку предоставляются два призовых броска, а если двумя бросками - один.
Количество очков в каждом туре равно количеству сбитых кеглей, кроме двух бросков, называемых "Strike" и "Spire".
Strike: игрок сбивает 10 кеглей первым броском, очки в этом туре начисляются из расчета: 10 + сумма очков за два предыдущих броска.
Spire: игрок сбивает 10 кеглей двумя бросками, очки в этом туре начисляются из расчета: 10 + сумма очков за один последующий бросок.
Результат партии складывается из результатов всех 10 туров.
Требуется написать программу, которая определит количество набранных игроком очков.

Входные данные

Входной файл INPUT.TXT содержит в первой строке одно натуральное число, определяющее кол-во совершенных бросков. Вторая строка содержит натуральные числа(разделенные пробелом), обозначающие количество сбитых кеглей за каждый совершенный бросок.

Выходные данные

Выходной файл OUTPUT.TXT должен содержать одно целое число - количество набранных игроком очков.

Примеры

Код

№    INPUT.TXT                                         OUTPUT.TXT1          
1    12                                         300            
    10 10 10 10 10 10 10 10 10 10 10 10          
2    15                                          173              
    10 10 10 8 2 10 3 4 8 2 4 5 10 4 5

Личное мнение:[u] я очень хочу решить эту задачу, но испытываю некоторые трудности, вы можете мне помочь с решением?


Сообщение отредактировано: Лисенок - 5.12.2009 6:48

[Z10Y]

Здравствуйте, у меня есть любопытная задача без решения. На первый взгляд кажется довольно легкой, но это только маскировка) Итак, задача про Боулинг. Выполняется только в Паскале.
Цель при игре в боулинг - сбить шаром максимальное количество кеглей. Партия в этой игре состоит из 10 туров. Задача игрока - сбить все 10 кеглей в каждом туре. Для этого игрок может совершить 2 броска шара, за исключением:
- если 10 кеглей сбиты первым броском, то второй бросок не совершается;
- если 10 кеглей сбиты первым броском в десятом туре, то игроку предоставляются два призовых броска, а если двумя бросками - один.
Количество очков в каждом туре равно количеству сбитых кеглей, кроме двух бросков, называемых "Strike" и "Spire".
Strike: игрок сбивает 10 кеглей первым броском, очки в этом туре начисляются из расчета: 10 + сумма очков за два предыдущих броска.
Spire: игрок сбивает 10 кеглей двумя бросками, очки в этом туре начисляются из расчета: 10 + сумма очков за один последующий бросок.
Результат партии складывается из результатов всех 10 туров.
Требуется написать программу, которая определит количество набранных игроком очков.

Входные данные

Входной файл INPUT.TXT содержит в первой строке одно натуральное число, определяющее кол-во совершенных бросков. Вторая строка содержит натуральные числа(разделенные пробелом), обозначающие количество сбитых кеглей за каждый совершенный бросок.

Выходные данные

Выходной файл OUTPUT.TXT должен содержать одно целое число - количество набранных игроком очков.

Примеры

Код

№    INPUT.TXT                                         OUTPUT.TXT1          
1    12                                         300            
    10 10 10 10 10 10 10 10 10 10 10 10          
2    15                                          173              
    10 10 10 8 2 10 3 4 8 2 4 5 10 4 5

Личное мнение:[u] я очень хочу решить эту задачу, но испытываю некоторые трудности, вы можете мне помочь с решением?

вот решение

var
n, i, c, d, s : integer;
a : array [1..21] of integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
read(n);
for i:=1 to n do read(a[i]);
n:=0; s:=0;
for i:=1 to 10 do begin
n:=n+1; c:=a[n];
if c=10 then s:=s+10+a[n+1]+a[n+2] else begin
n:=n+1; d:=a[n];
if c+d=10 then s:=s+10+a[n+1] else s:=s+c+d
end
end;
write(s)
end.