Помощь - Поиск - Пользователи - Календарь
Полная версия: Turbo Pascel Генерация последовательности
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Лёва
Есть вот такой код который должен генерировать и выводить на экран вот такую последовательность
-0,5 + 0,7 – 0,9 +0.11-0.13+0.15-0.17+0.19-0.21+ 0,23
Но что то тут не так. Подсобите люди добрые. Почемуто выводится только -0.53 sad.gif

var
i,d,s:real;
begin
s:=0;
i:=-0.5;
d:=0.8;
repeat
s:=s+i;
d:=d+0.4;
i:=i+d*(i/abs(i))*(-1);
until abs(i)>1;
i:=i/10;
d:=d/10;
repeat
s:=s+i;
d:=d+0.04;
i:=i+d*(i/abs(i))*(-1);
until (i>0.22) and (i<0.24); {round(i*100)/100=0.23;}
s:=s+i;
writeln(s:5:2);
readln;
end.

.
volvo
Я ж тебе на Винграде написал решение, что, надо продублировать его на всех форумах?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.