Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 8 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

8
8
Begin
For i:=1 to Kol_Zap-1 do
Begin
nomr:=Spis[i].nom; imin:=i;
For j:=i+1 to Kol_Zap do
If Spis[j].nom < nomr then
begin
nomr:=Spis[j].nom;
imin:=j;
end;
{Обмен целыми записями}
Z:=Spis[i];
Spis[i]:=Spis[imin];
Spis[imin]:=z;
End;
End;
End. {Конец модуля}
Сохраняем созданный исходный текст модуля в файле с именем Sort.pas.
Затем компилируем его, в результате на диске создается файл Sort.tpu.
Разработка программы, использующей модуль Sort
Включим в программу две процедуры: процедуру ввода списка из
текстового файла в массив записей с
именем INPUT_SPIS и вывода списка на
экран с именем OUT_SPIS.
Uses crt, sort; {Подключение стандартного и разработанного модулей }
Var
nom_alg:byte; {переменная для выбора номера алгоритма}
Procedure INPUT_SPIS;
Var
F: text; Name_file: string; i: word;
Begin
Writeln(' Введите имя файла со списком');
Readln(Name_file);
Kol_Zap:=0; i:=0;
Assign(f,Name_file);
Reset(f);
While not eof(f) do
Begin
i:=i+1;
With Spis[i] do
{ Чтение очередной записи из текстового файла по полям}
Readln(f,nom, potpr, pnazn, day,time.hour,time.min,price);
End; 
                                                                         8




     Begin
             For i:=1 to Kol_Zap-1 do
                    Begin
                           nomr:=Spis[i].nom; imin:=i;
                    For j:=i+1 to Kol_Zap do
                    If Spis[j].nom < nomr then
                                 begin
                                       nomr:=Spis[j].nom;
                                       imin:=j;
                                 end;
                    {Обмен целыми записями}
                    Z:=Spis[i];
                    Spis[i]:=Spis[imin];
                    Spis[imin]:=z;
                    End;
     End;
     End. {Конец модуля}

     Сохраняем созданный исходный текст модуля в файле с именем Sort.pas.
Затем компилируем его, в результате на диске создается файл Sort.tpu.

                Разработка программы, использующей модуль Sort

      Включим в программу две процедуры: процедуру ввода списка из
текстового файла в массив записей с именем INPUT_SPIS и вывода списка на
экран с именем OUT_SPIS.
      Uses crt, sort; {Подключение стандартного и разработанного модулей }
         Var
             nom_alg:byte; {переменная для выбора номера алгоритма}
         Procedure INPUT_SPIS;
            Var
                    F: text; Name_file: string; i: word;
            Begin
                    Writeln(' Введите имя файла со списком');
                    Readln(Name_file);
                    Kol_Zap:=0; i:=0;
                    Assign(f,Name_file);
                    Reset(f);
                    While not eof(f) do
                           Begin
                           i:=i+1;
                           With Spis[i] do
            { Чтение очередной записи из текстового файла по полям}
            Readln(f,nom, potpr, pnazn, day,time.hour,time.min,price);
                           End;
                                                                         8

Страницы