Написать программу для вычисления заданного выражения - Turbo Pascal

Формулировка задачи:

Добрый вечер всем! Помогите, пожалуйста, первокурснице-студентке) Идет такое задание: Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор While: - 0,13+ 0,16 -0,19+…-0,31 Написала так, но ответ неверный( Когда считаешь вручную ответ идет -0,22, а по программе просто 0,22. Подскажите, пожалуйста, в чем моя ошибка.
uses crt;
var
v, sum: real;
begin
clrscr;
sum:= 0.13;
v:= 0.18;
 
while (v < 0.31) do
begin
if v>0 then
v:= v+0.03
else
v:= v-0.03;
v:= -v;
sum:= sum+v;
end;
writeln ('S=', sum:4:2);
readln;
end.
Очень благодарна за ответы!)

Код к задаче: «Написать программу для вычисления заданного выражения - Turbo Pascal»

textual
uses crt;
var v,a,sum: real;
    i:byte;
begin
clrscr;
a:=0.13;
sum:=0;
i:=0;
while a<0.32 do //+0.01 чтобы точно вошло 0.31
 begin
  i:=i+1;
  if odd(i) then sum:=sum-a
  else sum:=sum+a;
  a:=a+0.03;
end;
writeln ('S=', sum:4:2);
readln;
end.

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ