Задача следующая:
Ввести целое число a и вывести сумму квадратов всех чисел от 1 до a с шагом 0.1. (1^2+1.1^2+1.2^2+...+a^2)
Алгоритм решения такой:
result := 0
while (a >= 1) do begin
result := result + a * a;
a := a - 0.1;
end;
В конце работы программы результат должен быть:
При a = 1.1 result = 2.21
При a = 3 result = 91.7
Переменная a
, в любом случае, при завершении программы должна быть равна 0.9
.
Проблема в следующем. При a = 1.1
все верно, но начиная с 1.2
и далее программа выдает в результате на 1 меньше, чем нужно: a = 3; result = 90.7
, при этом, в конце выполнения программы, a = 0.9(9)
.
Если модифицировать алгоритм: переменную a
после ввода умножать на 10, а затем в цикле в квадрат возводить не ее, а выражение a / 10
, то все начинает работать правильно (второй строкой в цикле здесь будет: a := a - 1
).
В чем может быть проблема?