Программирование операций чтения из файлов и записи в файлы

Программирование в среде Turbo Pascal 7.0

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

Выполнил: студент группы ТО-07

Цыренов Ж. Е.

Проверил: доц. каф. ИКТ Журов Г.Н.

Дата: 28.04.2008

Тема – операции с файлами.

Цель работы – изучение программирования операций чтения из файлов и записи в файлы.

Задание1.

Создать два одномерных массива по правилам а_i =, где i = 3,…,10; b_j=cos_j  j =       -2,…,5. Образовать из них двумерный массив по правилу с_ij =b(a-2), где i = 7,…,10; j = 2,…,4.

Решение:

Программа:

Program Vector_Matrix;

Var a:array[4..9,4..7] of real;

b:array[1..9,5..9] of real; c:array[4..9,4..7,1..9,5..9] of real;

i,j:integer;

Begin

for i:= 4  to 7 or 9 do for j:= 1 or 5 to 9 do

begin a[i]:=i-sqrt(i);      b[j]:=j*sqrt(j);

      c[i,j]:=k[i]*l[j]+3; end;

writeln('Массив А'); for i:= 4 to 7,9 write(a[i]:4:1,' ');

writeln('Массив В'); for j:=1,5 to 9 do write(b[j]:4:1,' ');

Writeln('Массив С'); for  i:= 4 to 7,9 do begin for j:=1,5 to 9 do

write(c[i,j]:5:1,' ')

writeln; end; end.

Результаты:

a[1]=1.0     a[2]=2.0     a[3]=3.0

ln(a[1])= 0.642ln(a[2])=-0.458ln(a[3])=-7.015

sin(a[1])= 0.841sin(a[2])= 0.909sin(a[3])= 0.141

Задание2.

Образовать  матрицу по правилу с_ij = f(i+j)^2.5, где i = 1,…,10; j = 1,…,4. Найти сумму наименьших элементов нечетных строк матрицы. Вывести на печать саму матрицу, номера строк, в которых производился поиск наименьших элементов, сами наименьшие элементы и окончательный ответ.

Решение:

Программа:

Program Matr;

Type matrix=array[1..10,1..4] of real;

var a:Matrix; pro,Min:real; N_min:Integer; i,j:integer;

Begin for i:=1 to 10 do for j:=1 to 4 do a[i,j]:=exp(-cos(i)+1/j);

Writeln('Массив А');

for i:=1 to 10 do begin for j:=1 to 4 do write(a[i,j]:6:3,'  ');

writeln; end;

pro:=1; for i:=1 to 10 do begin if odd(i)=false then begin min:=a[i,1];

for j:=1 to 5 do if min>a[i,j] then begin  min:=a[i,j];

n_min:=j; end; pro:=pro*min;

writeln(i:2,  'строка:', 'наименьший элемент в ' ,N_min:1, 'столбце'  ,'равен

end; end;

writeln('произведение наименьших элементов равна' ,pro:6:3); end.

            Результаты:

Массив А

 1.584   0.960   0.813   0.748

 4.121   2.500   2.116   1.947

 7.315   4.437   3.756   3.456

 5.226   3.170   2.683   2.469

 2.047   1.242   1.051   0.967

 1.041   0.631   0.534   0.492

 1.279   0.776   0.657   0.604

 3.144   1.907   1.614   1.485

 6.761   4.101   3.471   3.194

 6.291   3.815   3.230   2.972

 2строка:наименьший элемент в 4столбцеравен 1.947

 4строка:наименьший элемент в 5столбцеравен 2.047

 6строка:наименьший элемент в 4столбцеравен 0.492

 8строка:наименьший элемент в 4столбцеравен 1.485

10строка:наименьший элемент в 5столбцеравен 2.909

произведение наименьших элементов равна 8.462

Задание3

Найти элементы двумерного массива А={a_ij}, где i = 1,…,8; j = 1,…,7 по правилу а_ij = . Упорядочить массив А по возрастанию элементов дробной части первой строки. Вывести на печать исходный и отсортированный массивы.

Решение