VPF::Вычислить используя циклы while и repeat

Knubbe

Дата 18.12.2009, 02:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Вычислить sin1/cos1*(sin1+sin2)/(cos1+cos2)*...*(sin1+...+sin10)/(cos1+...+cos10)

volvo877

Дата 18.12.2009, 16:37 (ссылка)

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

Загрузка ...

Эксперт

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

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

While:

Код

  p := 1.0;
  i := 1;
  while i <= 10 do
  begin
    s_sin := 0.0; s_cos := 0.0;
    j := 1;
    while j <= i do
    begin
      s_sin := s_sin + sin(j);
      s_cos := s_cos + cos(j);
      inc(j);
    end;
    p := p * s_sin / s_cos;
    inc(i);
  end;

Repeat:

Код

  p := 1.0;
  i := 0;
  repeat
    inc(i);
    s_sin := 0.0; s_cos := 0.0;
    j := 0;
    repeat
      inc(j);
      s_sin := s_sin + sin(j);
      s_cos := s_cos + cos(j);
    until j = i;
    p := p * s_sin / s_cos;
  until i = 10;

Ну, или чуть-чуть быстрее, не выполняя одинаковых действий многократно (через While, с помощью Repeat уж сделай сам):

Код

  p := 1.0;
  s_sin := 0.0; s_cos := 0.0;
  i := 1;
  while i <= 10 do
  begin
    s_sin := s_sin + sin(i);
    s_cos := s_cos + cos(i);

    p := p * s_sin / s_cos;
    inc(i);
  end;

Это сообщение отредактировал(а) volvo877 - 18.12.2009, 16:42

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