Простенька задача на паскале, Написать программу для вычисления заданного выражения и вывода на экра Опции

[Ausar]

Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор

оператор: repeat

выражение: -0,5 + 0,7 – 0,9 +...+ 0,23

Оплата Webmoney

[Urnix]

выражение: -0,5 + 0,7 – 0,9 +...+ 0,23

Ausar, по-моему ты неправильно записал условие.

Вот код для вычисление суммы последовательности "-0,5 + 0,7 – 0,9 +...+ 2,3":

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 round(i*10)/10=2.3;
  s:=s+i;
  writeln(s:5:2);
  readln;
end.

Сообщение отредактировано: Urnix - 17.06.2007 10:54

[Ausar]

Ausar, по-моему ты неправильно записал условие.

Вот код для вычисление суммы последовательности "-0,5 + 0,7 – 0,9 +...+ 2,3":

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 round(i*10)/10=2.3;
  s:=s+i;
  writeln(s:5:2);
  readln;
end.

Нет условие верно, еще раз проверил. Спасибо за вариант решения. Вот и я сижу и бъюсь над тем что 0,23 никак понять не могу. Но условие однозначно верно.