Добавил:
cappie
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Lab1_var8_z1
.pas {Задача 1
Дано: натуральное n, действительные a1, a2,...,an. Вычислить:
a1 + a2*(a2–1) + a3*(a3–1)*(a3–2) + a4*(a4–1)*(a4–2)*(a4–3)+
+ ... + an*(an–1)*(an–2)*...*(an–n+1)}
program Lab1_var8_z1;
var N, //количество чисел
i,j:integer; //переменные циклов
a, // действительное число
P, // произведение а*(а-1)*...*(а-n)
S:real; //итоговая сумма
Begin
//Контроль ввода значения N>0
Repeat
Writeln('Введите N>0 - количество действительных чисел:');
Readln(N);
until N>0;
// Начальное значение суммы
S:=0;
//Внешний цикл с параметром для ввода значений а
for i:=1 to N do
begin
Writeln('Введите ',i,'-e число:');
Readln(a);
P:=1; //начальное значение произведения
// Внутренний цикл для вычисления произведения а*(а-1)*...*(а-n)
for j:=0 to i-1 do
P:=P*(a-j);
S:=S+P; // увеличиваем итоговую сумму на P
end;
Writeln('S = ',S); //вывод значения
End.
Дано: натуральное n, действительные a1, a2,...,an. Вычислить:
a1 + a2*(a2–1) + a3*(a3–1)*(a3–2) + a4*(a4–1)*(a4–2)*(a4–3)+
+ ... + an*(an–1)*(an–2)*...*(an–n+1)}
program Lab1_var8_z1;
var N, //количество чисел
i,j:integer; //переменные циклов
a, // действительное число
P, // произведение а*(а-1)*...*(а-n)
S:real; //итоговая сумма
Begin
//Контроль ввода значения N>0
Repeat
Writeln('Введите N>0 - количество действительных чисел:');
Readln(N);
until N>0;
// Начальное значение суммы
S:=0;
//Внешний цикл с параметром для ввода значений а
for i:=1 to N do
begin
Writeln('Введите ',i,'-e число:');
Readln(a);
P:=1; //начальное значение произведения
// Внутренний цикл для вычисления произведения а*(а-1)*...*(а-n)
for j:=0 to i-1 do
P:=P*(a-j);
S:=S+P; // увеличиваем итоговую сумму на P
end;
Writeln('S = ',S); //вывод значения
End.
Соседние файлы в предмете Основы алгоритмизации и программирования