Скачиваний:
52
Добавлен:
10.02.2014
Размер:
16.06 Кб
Скачать

Цель работы: – освоение методов обработки двухмерных массивов на языке программирования 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

3

Соседние файлы в папке лабораторная работа