Задача с последовательностью Опции

[wEDOK]

Я в Паскале полный ноль, не могу сообразить даже, как задать последовательность, однако требуется для зачета!

задача: Дана непустая последовательность из n положительных вещественных чисел X1,X2,X3...Xn. Вычислить величину:
a) X1X2 + X2X3 + ...+ Xn-1Xn,
b)X1 + 2X2 + 3X3 +... + 2Xn-1 + Xn,
c) min(X1, X1X2, X1X2X3, ..., X1...Xn-1Xn).

Знаю, что задание наипростейшее, но не для меня!!! Заранее спасибо, если кто-нибудь поможет...

[Артемий]

попробуй поиском воспользоваться.

Сообщение отредактировано: Артемий - 19.11.2007 14:42

[klem4]

Я в Паскале полный ноль, не могу сообразить даже, как задать последовательность

Массивы. Матрицы. Типичные задачи.

Хотя на самом деле хранить все числа совсем не обязательно

[wEDOK]

а, еще забыл, требования:

-При вычислении целых степеней числа использовать не стандартные функции (exp и ln), а умножение в цикле.

-Не использовать массивы и строки.

-нуу и че-то с факториалами, думаю сдесь не надо...


Поиском воспользоваться пробовал, тока там задачи посложнее, а мне хотябы суть понять, самое простое...

[klem4]

ну вот тебе первая задача, остальные по аналогии:

uses crt;

var
  n, s, value, pred_value: Integer;

begin
  clrscr;

  repeat
    write('n = '); readln(n);
    if odd(n) then writeln('n должно быть четным');
  until not odd(n);

  s := 0;

  write('x[', n, '] = '); readln(pred_value);
  dec(n);

  while n > 0 do begin
    write('x[', n, '] = '); readln(value);
    inc(s, value * pred_value);
    pred_value := value;
    dec(n);
  end;

  writeln('s = ', s); 

  readln;
end.

[wEDOK]

спасибо огромное, попробую разобраться

[Bard]

wEDOK, можешь объяснить условие задачи Б попдробнее. У тебя там точно нет никаких ошибок(в условии)?
По моему все-таки там коэффицент равен индексу переменной , а у тебя там на последних что-то другое ...

Сообщение отредактировано: Bard - 19.11.2007 19:23

[klem4]

Bard, видимо коэффициенты идут так:

1, 2, 3 ... n div 2, n div 2 - 1, n div 2 - 2, ... 3, 2, 1