лабораторная работа / 5
.docxЦель работы: – освоение методов обработки двухмерных массивов на языке программирования TURBO PASCAL.
Задание. Создайте массив В из преобразованных по формуле cos(a[i]) элементов массива А.
Блок-схема.
НАЧАЛО
i=1,10
a[i]
i=1,10
b[i]=cos(a[i])
b[i]
i=1,10
КОНЕЦ
Текст программы:
Program lab5;
Var A,B:array [1..10] of real;
i: byte;
Begin
Writeln('Введите массив');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do b[i]:=cos(a[i]);
for i:=1 to 10 do writeln(b[i]);
End.
Результат выполнения программы.
Введите массив
1
1.57
2
3
3.14
4
4.71
5
6
6.28
0.54030230586814
0.000796326710733263
-0.416146836547142
-0.989992496600445
-0.99999873172754
-0.653643620863612
-0.00238897811228154
0.283662185463226
0.960170286650366
0.999994926913375