Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Лабораторные работы / Все готовые лабы по паскалю / dz 1 / 1 zadanie
.docПусть даны вещественные числа a1,a2,…an,b1,b2,…,bn. Вычислить произведение (a1+bn)*(a2+bn-1)…*(an+b1).
-
Текст программы:
const m=4;
var
a,b:array[1..m] of real;
i:integer; k:real;
begin
for i:=1 to m do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to m do
begin
write('b[',i,']=');
readln(b[i]);
end;
k:=1;
for i:=1 to m do
begin
k:=k*(a[i]+b[m+1-i])
end;
writeln(k);
readln;
end.
-
Исходные данные: a[1]=2;a[2]=3;a[3]=4;a[4]=5;b[1]=4;b[2]=1;b[3]=7;b[4]=3 Результата: 2.2500000000E+03
да
да
да
нет
да
да