Версия для печати темы

Автор: wEDOK 19.11.2007 18:39

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

задача: Дана непустая последовательность из 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 18:42

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

Автор: klem4 19.11.2007 20:24

Автор: wEDOK 19.11.2007 21:01

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

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

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

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


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

Автор: klem4 19.11.2007 21:53

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

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 19.11.2007 22:06

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

Автор: Bard 19.11.2007 23:22

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

Автор: klem4 19.11.2007 23:27

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

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

Автор: -Андрей- 7.12.2016 0:16

Цитата(klem4 @ 19.11.2007 21:53)

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.