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

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

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

Вариант 10

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

Шляхов Артём Сергеевич

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

Дата: 28.04.2008

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

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

Задание1.

Создать два одномерных массива по правилам а_i =, где i = 8,…,16; b_j=cos_j  j =       -3,…,5. Образовать из них двумерный массив по правилу с_ij =3а+4b, где i = 11,…,14; j = 1,…,5.

Решение:

Программа:

program Lab5;

var

a,b,c:array [1..3] of real;

i,j:integer;

g:text;

begin

Assign (g,'f:\Шляхов \5.lst');

Rewrite(g);

writeln ('vvedite massiv A');

read (a[1],a[2],a[3]);

for i:=1 to 3 do begin

b[i]:=cos(a[i])/sin(a[i]);

c[i]:=sin(a[i]);

end;

for i:=1 to 3 do

write (g,'a[',i:1,']=',a[i]:3:1,'     ');

writeln (g);

writeln (g);

for i:=1 to 3 do

write (g,'ln(a[',i:1,'])=',b[i]:6:3,'');

writeln (g);

writeln (g);

for i:=1 to 3 do

write (g,'sin(a[',i:1,'])=',c[i]:6:3,'');

writeln (g);

writeln (g);

close(g);

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 = (i+j)^2.5, где i = 1,…,5; j = 1,…,6. Найти сумму наименьших элементов нечетных строк матрицы. Вывести на печать саму матрицу, номера строк, в которых производился поиск наименьших элементов, сами наименьшие элементы и окончательный ответ.

Решение:

Программа:

program Lab_5_2;

var

f:text;

a:array [1..4,1..5] of real;

a_midl,D,k_v:array [1..5] of real;

i,j:integer;

Begin

Assign (f,'f:\Шляхов \5a.lst');

reset(f);

for i:=1 to 4 do

for j:=1 to 5 do

read (f,a[i,j]);

close (f);

append (f);

for i:=1 to 4 do begin

a_midl[i]:=0;

d[i]:=0;

for j:=1 to 5 do

a_midl[i]:=a_midl[i]+a[i,j];

a_midl[i]:=a_midl[i]/6;

for j:=1 to 5 do begin

            Результаты:

1 2 3 4 5

6 7 8 9 10

11 12 13 14 15

16 17 18 19 20

 stroka1:

 srednee zhachnie=2.5000

 koeficient variacii =   60.0%

 stroka2:

 srednee zhachnie=6.6667

 koeficient variacii =   29.2%

 stroka3:

 srednee zhachnie=10.8333

 koeficient variacii =   23.9%

 stroka4:

 srednee zhachnie=15.0000

 koeficient variacii =   22.1%

Задание3

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

Решение

Программа:

program Lab_5_3;

var

f:text;

g:text;

x,y:real;

i,j:integer;

Begin

Assign (f,'f:\Шляхов \5b.lst');

Assign (g,'f:\Шляхов \5c.lst');

reset (f);

rewrite (g);