Информатика и выч. техника \ Информатика

Первичная обработка наблюдений двух измеримых признаков исследуемого объекта, страница 9

5.3. Описание файла исходных данных

Ниже представлен файл данных – kurs.inp, в котором представлены данные о каждом массиве. Количество элементов в каждом массиве одинаковое, равное 30.

В первом массиве отображены опытные значения величины pH анализируемого раствора, во втором - значения температуры раствора, в третьем -  данные процента окисления фосфидов.

7,4  6,6  6,9  7,4  6,6  6,8  6,7  6,7  6,8  7,3

6,8  7,5  7,1  7,3  7,1  6,9  6,9  7,1  7,2  7,4 

7,3  7,0  7,2  6,9  7,0  7,0  7,2  7,4  6,6  6,8

29  21  24  29  23  24  23  22  23  29

23  30  26  28  26  25  26  26  27  28

28  25  28  24  25  22  27  29  21  22  

99,9 87,5 91,7 100,00 89,51 90,34 90,75 88,31 89,56 96,7

91,5 100,00 94,75 96,8 95,0 90,91 92,68 93,51 94,61 98,5

99,81 91,67 96,53 89,7 93,7 89,97 96,80 97,73 88,30 89,2

5.4. Программа

В этом разделе представлена программа на языке программирования Turbo Pascal 7.0, с помощью которой вычисляются суммы элементов одномерного массива.

Program Kursovik;

{программа, реализующая вычисление суммы элементов одномерного массива}

uses crt;

Const

N=30;{количество значений}

Type

mas=array[1..30] of real;

Var  {описание переменных основной части программы}

i :integer;

X1,X2,Y :real;

a,b,c :mas;

f :text;

Procedure mout (p:mas);

Var

i :integer;

Begin

For i:=1 to n do write(p[i]:5:2, '  ');

Writeln;

End;

{подпрограмма для вычисления суммы элементов одномерного массива}

Procedure SUM(p:mas) :real;

Var

i :integer;              {описание 

S :real;                                переменных}      

Begin

S:=0;              {занесение начального значения суммы}  

For i:=1 to n do s:=s+p[i];{вычисление суммы элементов

end;                                одномерного масcива}

{основная программа}

begin

clrscr;

assign(f,’KURS.INP’);{создание файла}

reset(f);{открытие этого файла для чтения}

read(f);

writeln;

writeln(’Массив А’);

mout(A,n)

for i:=1 to n do

begin

read(f,a[i]);{ввод элементов массив А}

write(a[i]:5:2,’  ’);{вывод элементов массива А}

end;

writeln;

writeln(’Массив B’);

mout(B,n);

for i:=1 to n do

begin

read(f,b[i]);

write(b[i]:5:2,’  ’);

end;

writeln;

writeln(’Массив C’);

mout(C,n);

for i:=1 to n do

begin

read(f,c[i]);

write(c[i]:5:2,’ ’);

end;

close(f);{закрытие файла}

{вычисление сумм Х1,X2,Y элементов одномерных массивов A,B,C}

X1:=SUM(A,n);

X2:=SUM(B,n);

Y:=SUM(C,n);

Writeln;

Writeln(’X1= ’,X1:5:2);

Writeln(’X2= ’,X2:5:2);

Writeln(’Y= ’,Y:7:2);

End.

5.5.Вывод результатов

При реализации программы, предложенной в предыдущем пункте(5.4), результаты были выведены на экран с помощью команды среды ТР.7.0 Debug, а затем Out put или User Screen.

6.Результаты счета

В этом разделе предложены результаты выполнения программы по вычислению суммы элементов одномерного массива.

В таблице 8 отображены результаты счета, где Х1,Х2,Y- суммы элементов соответствующих одномерных массивов.

Таблица 8

Массив А

7,4  6,6  6,9  7,4  6,6  6,8  6,7  6,7  6,8  7,3

6,8  7,5  7,1  7,3  7,1  6,9  6,9  7,1  7,2  7,4

7,3  7,0  7,2  6,9  7,0  7,0  7,2  7,4  6,6  6,8

Массив B

29  21  24  29  23  24  23  22  23  29

Скачать файл