Отправлено: 03.05.18 18:03. Заголовок: Задача 24. №494.

Условие:
Для заданного положительного вещественного числа A необходимо найти максимальное целое число K, при котором выполняется неравенство.
1 + (1/2) + (1/3) + ... + (1/K) < A
Программист написал программу неправильно.
Паскаль.
var a, s: real;
k: integer;
begin
read(a);
k := 0;
s := 1;
while s < a do begin
k := k + 1;
s := s + 1.0/k;
end;
write(k);
end.
2. Приведите пример числа, при вводе которого программа выдаёт верный ответ.
В ответах написано:
2. При вводе числа 1.2 программа выведет верный ответ 1.
Может ли быть ответ в данной задаче помимо 1.2 ещё 1.1?

 Отправлено: 03.05.18 19:57. Заголовок: Полина пишет: Может ..

Полина пишет:

цитата:

Может ли быть ответ в данной задаче помимо 1.2 ещё 1.1?

Да. Посмотрите разбор задачи 61.

 Отправлено: 20.09.18 19:25. Заголовок: В разборе задачи 61 ..

В разборе задачи 61 сказано, что в этой программе допущены две ошибки.
Но в программе достаточно исправить только одну ошибку и она будет работать правильно.
Строка с ошибкой:
s := s + 1.0/k;
Исправленная строка:
s := s + 1.0/(k+1);
Вопрос. Как оценят такой ответ?

 Отправлено: 20.09.18 19:47. Заголовок: Олег Шумков пишет: С..

Олег Шумков пишет:

цитата:

Строка с ошибкой: s := s + 1.0/k; Исправленная строка: s := s + 1.0/(k+1); Вопрос. Как оценят такой ответ?

Нормально оценят. Если вдруг такого решения не будет в рекомендациях для экспертов и его не зачтут, нужно подавать на апелляцию. Но придётся доказывать правильность этого решения.

 Отправлено: 20.09.18 23:06. Заголовок: Спасибо. А если буде..

Спасибо.
А если будет дан такой ответ?
В программе две ошибки.
Первая строка с ошибкой:
s := s + 1.0/k;
Исправленная строка:
s := s + 1.0/(k+1);
Вторая строка с ошибкой:
write(k);
Исправленная строка:
if a>1 then write(k) else write("k не определено");
Тогда, видимо, точно не обойтись без апелляции?

 Отправлено: 21.09.18 10:42. Заголовок: Олег Шумков пишет: Т..

Олег Шумков пишет:

цитата:

Тогда, видимо, точно не обойтись без апелляции?

Не думаю. Нужно надеяться на грамотность экспертов. Но лучше не дразнить гусей - дать эксперту такой вариант решения, который с большой вероятностью окажется у него в критериях оценивания.

 Отправлено: 21.09.18 13:16. Заголовок: Спасибо большое! Пон..

Спасибо большое! Понятно.