VPF::Генерация последовательности чисел по правилу

ausar

Дата 6.8.2007, 03:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Пытаюсь написать код для генерации вот такой последовательности
и вывода её на экран как здесь. В идеале оно должно было еще и суммироваться но пока даже нечего суммировать smile

-0,5+0,7–0,9+0.11-0.13+0.15-0.17+0.19-0.21+0,23

Мой код вот такой. Но опять же не без глюков smile

Код


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.

Это сообщение отредактировал(а) ausar - 6.8.2007, 03:14

volvo877

Дата 6.8.2007, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Зачем же так сложно? Можно гораздо проще сделать:

Код


var
 s: real;
 i, d, sign: integer;
begin
  s := 0;
  i := 5;  d := 2;
  sign := -1;
  repeat
    if sign > 0 then write('+');
    write((sign * i / 100):-5:2);
    s:=s+(sign * i / 100);

    sign := -sign;
    i := i + d;
  until i > 23;

  writeln;
  writeln('s = ', s:5:2);
  readln;
end.

ausar

Дата 6.8.2007, 08:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Выглядит очень здорово! Спасибо Volvo877

Это сообщение отредактировал(а) ausar - 28.8.2007, 01:47

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »