1 zadanie (Все готовые лабы по паскалю)
Описание файла
Файл "1 zadanie" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, dz 1. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "1 zadanie"
Текст из документа "1 zadanie"
Пусть даны вещественные числа 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
да
да
да
нет
да
да