Форум » Циклы и ветвления » Задача 24. №494. » Ответить
Задача 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?
Ответов - 6
Поляков: Полина пишет: Может ли быть ответ в данной задаче помимо 1.2 ещё 1.1? Да. Посмотрите разбор задачи 61.
Олег Шумков: В разборе задачи 61 сказано, что в этой программе допущены две ошибки. Но в программе достаточно исправить только одну ошибку и она будет работать правильно. Строка с ошибкой: s := s + 1.0/k; Исправленная строка: s := s + 1.0/(k+1); Вопрос. Как оценят такой ответ?
Поляков: Олег Шумков пишет: Строка с ошибкой: s := s + 1.0/k; Исправленная строка: s := s + 1.0/(k+1); Вопрос. Как оценят такой ответ? Нормально оценят. Если вдруг такого решения не будет в рекомендациях для экспертов и его не зачтут, нужно подавать на апелляцию. Но придётся доказывать правильность этого решения.
Олег Шумков: Спасибо. А если будет дан такой ответ? В программе две ошибки. Первая строка с ошибкой: s := s + 1.0/k; Исправленная строка: s := s + 1.0/(k+1); Вторая строка с ошибкой: write(k); Исправленная строка: if a>1 then write(k) else write("k не определено"); Тогда, видимо, точно не обойтись без апелляции?
Поляков: Олег Шумков пишет: Тогда, видимо, точно не обойтись без апелляции? Не думаю. Нужно надеяться на грамотность экспертов. Но лучше не дразнить гусей - дать эксперту такой вариант решения, который с большой вероятностью окажется у него в критериях оценивания.
Олег Шумков: Спасибо большое! Понятно.
полная версия страницы