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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

9
9
Kol_zap:=i; {Считанное число записей}
Close(f);
End;
Procedure OUT_SPIS;
Var i:word;
Begin
Writeln(' № рейса Пункт отправл. Пункт назн. День Время Цена');
For i:=1 to Kol_Zap do
With Spis[i] do
Writeln(' ',nom,' ', potpr,' ', pnazn,' ', day,' ',time.hour,' ',time.min,' ',price);
End;
BEGIN {main program}
INPUT_SPIS;
Writeln(' Исходный список');
OUT_SPIS;
Writeln(' Введите номер алгоритма сортировки: 1 или 2');
Readln(nom_alg);
If nom_alg = 1 then SORT_EXCHANGE
Else SORT_CHOOSE;
Writeln(' Упорядоченный список');
OUT_SPIS;
Readkey;
END.
Варианты заданий
Структуру данных в каждом из вариантов взять из лабораторной работы №
12 или 14. Все остальные пункты задания
совпадают с типовым примером.
2. Стандартные модули Турбо Паскаля
В интегрированной среде ТП имеется 8 стандартных модулей,
используемых при работе в MS-DOS. Они содержат большое количество
полезных процедур и функций, а также описание констант, типов и переменных.
Имена этих модулей: System, Crt, Dos, Graph, Overlay, Graph3, Turbo3, Printer.
Модули Graph, Graph3, Turbo3 выделены в отдельные TPU-файлы, а остальные
входят в состав библиотечного файла TURBO.TPL.
Модуль System подключается к любой программе автоматически.
Остальные модули
подключаются с помощью указания имени соответствующего
модуля в директиве Uses.
Модуль System включает в себя целый комплекс математических процедур
и функций и процедур и функций преобразования типов, большинство из которых
описаны в разделах 2, 13 и др. (часть 1). 
                                                                                             9




                  Kol_zap:=i; {Считанное число записей}
                  Close(f);
           End;
       Procedure OUT_SPIS;
           Var i:word;
           Begin
     Writeln(' № рейса Пункт отправл. Пункт назн. День Время Цена');
            For i:=1 to Kol_Zap do
                  With Spis[i] do
     Writeln(' ',nom,' ', potpr,' ', pnazn,' ', day,' ',time.hour,' ',time.min,' ',price);
           End;
     BEGIN {main program}
           INPUT_SPIS;
           Writeln('        Исходный список');
           OUT_SPIS;
           Writeln(' Введите номер алгоритма сортировки: 1 или 2');
           Readln(nom_alg);
           If nom_alg = 1 then SORT_EXCHANGE
                            Else SORT_CHOOSE;
           Writeln('      Упорядоченный список');
           OUT_SPIS;
           Readkey;
     END.

                                   Варианты заданий

      Структуру данных в каждом из вариантов взять из лабораторной работы №
12 или 14. Все остальные пункты задания совпадают с типовым примером.

                  2. Стандартные модули Турбо Паскаля

     В интегрированной среде            ТП имеется 8 стандартных модулей,
используемых при работе в MS-DOS. Они содержат большое количество
полезных процедур и функций, а также описание констант, типов и переменных.
Имена этих модулей: System, Crt, Dos, Graph, Overlay, Graph3, Turbo3, Printer.
Модули Graph, Graph3, Turbo3 выделены в отдельные TPU-файлы, а остальные
входят в состав библиотечного файла TURBO.TPL.
     Модуль System подключается к любой программе автоматически.
Остальные модули подключаются с помощью указания имени соответствующего
модуля в директиве Uses.
     Модуль System включает в себя целый комплекс математических процедур
и функций и процедур и функций преобразования типов, большинство из которых
описаны в разделах 2, 13 и др. (часть 1).


                                                                                             9

Страницы