Алгоритмические языки и программирование. Аксенова Л.И - 10 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

10
Пусть файл Matr.dan с заданной матрицей имеет вид:
5 2 4 6 2 8 7
4 6 3 0 9 6 2
5 3 1 8 4 3 6
ОПИСАНИЕ ПРОГРАММЫ
USES CRT; { Подключение стандартного модуля ТР}
Var
F_in, F_out : Text; { Файловые переменные для связи с входным и
выходным файлами}
Matr : Array[1..50,1..40] of Integer; {Описание двумерного массива}
Sum : Integer; { Переменная для хранения суммы элементов каждой
строки матрицы}
Str, Stl : Byte; { Число строк и столбцов матрицы}
i, j : byte; {
Рабочие переменные}
Begin
Assign(F_in, ′Matr.dan′); { Связывание файловой переменной с
именем файла на диске}
Reset(F_in); { Открытие файла для чтения}
Str := 0; Stl := 0; i := 0;
{ Ввод матрицы из файла в массив}
While Not Eof (F_in) Do {Цикл до конца файла }
begin
inc(i); j := 0;
While Not Eoln(F_in) Do {Цикл до конца строки}
begin
inc(j);
Read (F_in, Matr[i,j]); {Чтение очередного элемента из файла,
преобразование его
и заполнение массива}
end;
Readln (F_in); {Переход к следующей строке файла}
Stl:=j; { Число столбцов}
end; Str:=i; { Число строк} 
Пусть файл Matr.dan с заданной матрицей имеет вид:
5 2 4 6 2 8 7
4 6 3 0 9 6 2
5 3 1 8 4 3 6

                      ОПИСАНИЕ ПРОГРАММЫ

USES CRT;              { Подключение стандартного модуля ТР}
Var
   F_in, F_out : Text; { Файловые переменные для связи с входным и
                             выходным файлами}
   Matr : Array[1..50,1..40] of Integer; {Описание двумерного массива}
   Sum : Integer; { Переменная для хранения суммы элементов каждой
                  строки матрицы}
   Str, Stl : Byte; { Число строк и столбцов матрицы}
   i, j : byte; { Рабочие переменные}
Begin
       Assign(F_in, ′Matr.dan′); { Связывание файловой переменной с
                                      именем файла на диске}
       Reset(F_in);       { Открытие файла для чтения}
       Str := 0; Stl := 0;     i := 0;
            { Ввод матрицы из файла в массив}
      While Not Eof (F_in) Do {Цикл до конца файла }
           begin
             inc(i); j := 0;
             While Not Eoln(F_in) Do {Цикл до конца строки}
               begin
                 inc(j);
            Read (F_in, Matr[i,j]); {Чтение очередного элемента из файла,
                                   преобразование его и заполнение массива}
               end;
             Readln (F_in); {Переход к следующей строке файла}
             Stl:=j; { Число столбцов}
           end; Str:=i; { Число строк}


                                   10

Страницы