Файл исходных данных Input8_1.Pas:

AB*1DF#2KM@3 -122E-9 156 5 1 2 3 4 5

Файл результата Out_8_1.pas:

teta=AB*1 alfa=DF#2 beta=KM@3 w=-0.000000122 e= 156 F=( 1 2 3 4 5 )

Программа для второй части задания:

program lab_8_2;

uses crt;

const MaxDim = 10; {максимальный размер матрицы}

type arr=array[1.. MaxDim,1.. MaxDim] of integer; {описание типа arr}

{для массива А }

var A : arr; {массив А}

R : integer; {разность}

Amax : integer; {максимальный элемент}

Amin : integer; {минимальный элемент}

i,j : integer; {счетчики по строкам, столбцам}

m : integer; {размер квадратной матрицы}

fi,fo : text; {файловые переменные}

begin

clrscr;

assign (fi, 'input8_2.pas'); reset (fi);

assign (fo, 'out_8_2.pas'); rewrite (fo);

readln (fi,m); {чтение размера матрицы из}

{первой строки файла}

if m>DimMax then {проверка размера матрицы}

begin

m:=DimMax;

writeln(‘Матрица из файла урезана до размера массива’);

end;

for i:=1 to m do {чтение из файла матрицы А}

begin

for j:=1 to m do read ( fi,A[i,j] );

readln(fi); {перевод указателя файла на новую строку}

end;

close( fi );

Amin:=A[1,1]; {начальные установки}

Amax:=A[1,1];

{поиск минимального и максимального элементов:}

for i:=1 to m do

for j:=1 to m do

begin

if A[i,j] < Amin then Amin:=A[i,j];

if A[i,j] > Amax then Amax:=A[i,j];

end;

R:=Amax-Amin; {разность}

writeln (fo,' Amax=',Amax,' Amin=',Amin,' Разность=',R);

writeln ('Amax=',Amax,' Amin=',Amin,' Разность=',R);

close (fo);

repeat until keypressed;

end.

Файл исходных данных Input8_2.pas:

3 12 4 -7 6 1 7 -8 3 2

Файл результата Out_8_2.pas:

Amax=12 Amin=-8 Разность=20

Варианты заданий

Задача 1

1. .

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21. .

22.

23.

24.

25. .

26.

27.

28.

29.

30.

Варианты заданий для задачи 2 взять из лабораторной работы № 5.

Лабораторная работа № 7

ПОДПРОГРАММА-ПРОЦЕДУРА

Цель работы – уяснение общего и основных различий между процедурой и функцией; составление программ с использованием процедур; решение задач, связанных с операциями над массивами.

Постановка задачи:

1. Выполнить задание с использованием процедур.

2. Исходные данные (кроме размерности массивов) ввести из текстового файла, который представить вместе с листингом программы и результатами счета. Ввод данных оформить как процедуру.

3. Решение задачи оформить в виде процедуры.

4. Исходную матрицу и результаты вывести в другой текстовый файл. Вывод данных в файл оформить в виде процедуры.

5. Весь обмен данными между основной программой и процедурами организовать через список формальных/фактических параметров.