Добрый день! Необходимо написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор (While).  Выражение -0,18 + 0,20 – 0,22 +...+ 0,36. Насколько я понял, то полное выражение -0.18+0.20-0.22+0.24-0.26+0.28-0.30+0.32-0.34+0.36 (подсчитал калькулятором результат = 0.099999..). Подсчет данного выражения требуется произвести в одном цикле. Я написал следующую программу
const n=0.36;
var i,r,s:real;
begin
s:=0; i:= -0.18; r:= 0.20;
while r = n do begin
s := s + i + r;
i := i - 0.04; r := r + 0.04;
end;
writeln ('S = ', s);
end.
В результате программа выдает совершенно другой результат, нежели калькулятор. Не могу понять, может требуется, чтобы выполнялось одновременно два условия : r=0.36 и i=-0.32 ??? Не подскажите, что нужно изменить в программе? Заранее спасибо!

А если вот так:

?

Это сообщение отредактировал(а) volvo877 - 2.12.2010, 09:10

Даа... Не зря говорят, что все гениальное просто. А я всю голову сломал. Спасибо!!!!