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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

11
Writeln (′ Число строк = ′ , Str, ′Число столбцов = ′ , Stl);
{Определение и вывод в файл значений сумм элементов в
каждой строке матрицы}
Assign (F_out, ′Sum.dan′);
Rewrite (F_out); {Открытие файла для записи}
For i := 1 To Str Do {Цикл по строкам массива }
begin Sum := 0;
For j := 1 To Stl Do {Цикл по столбцам}
Sum := Sum + Matr[i,j]; {Суммирование элементов строк }
Write (F_out, Sum:6); {Запись значения суммы в файл }
Writeln (′В строке ′,i,′ сумма = ′ , Sum); {Вывод значения суммы на экран}
end;
Close (F_in); Close (F_out); {Закрытие файлов }
End.
Пример 2
Дан текстовый файл с именем Spis.dan, содержащий несколько записей
заданной структуры (табл. 1), и расположенный в текущем каталоге. Каждая
строка файла содержит одну запись. Необходимо ввести записи из файла в
массив записей, определив
при этом число введенных записей. Упорядочить
записи в массиве по убыванию значений поля “Год рождения”, используя
для этого алгоритм обменной сортировки. Записать упорядоченный массив в
файл с именем Sort.dan.
Таблица 1
Номер п/п Фамилия Имя Отчество Год рождения
число строка из 30 символов 1900..2000
ОПИСАНИЕ ПРОГРАММЫ
USES CRT; { Подключение стандартного модуля ТР}
Type
Type_Rec = Record { Описания типа для структуры }
Nom : Word; { Поле номер}
FIO : String[30]; { Поле ФИО}
YEAR : 1900..2000; { Поле год рождения}
End; 
            Writeln (′ Число строк = ′ , Str, ′Число столбцов = ′ , Stl);
                   {Определение и вывод в файл значений сумм элементов в
                            каждой строке матрицы}
            Assign (F_out, ′Sum.dan′);
            Rewrite (F_out); {Открытие файла для записи}
            For i := 1 To Str Do {Цикл по строкам массива }
               begin           Sum := 0;
                  For j := 1 To Stl Do {Цикл по столбцам}
                Sum := Sum + Matr[i,j]; {Суммирование элементов строк }
                  Write (F_out, Sum:6); {Запись значения суммы в файл }
 Writeln (′В строке ′,i,′ сумма = ′ , Sum); {Вывод значения суммы на экран}
               end;
            Close (F_in); Close (F_out); {Закрытие файлов }
      End.
                                    Пример 2
Дан текстовый файл с именем Spis.dan, содержащий несколько записей
заданной структуры (табл. 1), и расположенный в текущем каталоге. Каждая
строка файла содержит одну запись. Необходимо ввести записи из файла в
массив записей, определив при этом число введенных записей. Упорядочить
записи в массиве по убыванию значений поля “Год рождения”, используя
для этого алгоритм обменной сортировки. Записать упорядоченный массив в
файл с именем Sort.dan.
                                                             Таблица 1

    Номер п/п     Фамилия Имя Отчество           Год рождения
     число         строка из 30 символов         1900..2000

                       ОПИСАНИЕ ПРОГРАММЫ
     USES CRT;         { Подключение стандартного модуля ТР}
     Type
     Type_Rec = Record      { Описания типа для структуры }
             Nom : Word; { Поле номер}
             FIO : String[30]; { Поле ФИО}
             YEAR : 1900..2000; { Поле год рождения}
                End;


                                    11

Страницы