Заполнить вещественный вектор - Free Pascal
Формулировка задачи:
С помощью датчика случайных чисел заполнить вещественный вектор a[1..n] и вычислить сумму
S = na1 + (n-1)a1a2+(n-2)a1a2a3 + ... +
Спасибо.
Решение задачи: «Заполнить вещественный вектор»
textual
Листинг программы
const n = 10; var a : array[1 .. n] of real; s, p : extended; i : integer; begin randomize; for i := 1 to n do begin a[i] := random(20) * random; write(a[i]:7:3); end; writeln; p := 1; s := 0; for i := 1 to n do begin p := p * a[i]; s := s + (n - i + 1) * p; end; writeln('s = ', s:10:5); end.
Объяснение кода листинга программы
- Объявляются переменные: n - количество элементов вектора a, a - вектор, s и p - промежуточные переменные для вычислений, i - счётчик.
- Задаётся начальное значение для генератора случайных чисел.
- Заполняется вектор a случайными числами с помощью цикла for и функции random.
- Выводится на экран содержимое вектора a с помощью цикла for и функции write.
- Вычисляется значение переменной s, используя цикл for, переменные p и n, и операцию умножения.
- Вычисляется значение переменной p, используя цикл for и операцию умножения.
- Вычисляется значение переменной s, используя цикл for, переменные p и n, и операцию сложения.
- Выводится на экран значение переменной s с помощью функции writeln и спецификацией формата 10:5.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д