3. Возможность запуска программ из ms dos в ос Windows 2000 (на основе примера программы на Паскале)

Рассмотрим выполнение простой программы, написанной на Турбо Паскале. Пусть требуется составить программу, передвигающую белый прямоугольник по экрану с зеркальным отражением от его краёв, и обеспечить её выполнение непосредственно из среды Windows 2000.

Перед выполнением данного задания выполните указанные действия.

1. Создать папку «ЕХЕ» в каталоге Мой компьютер D:\USERS\440\ (в созданной папке EXE будут находиться два графических файла: EGAVGA.BGI и созданная программа на Паскале, например с именем PRIM1.pas).

2. Найти 2 Файла: EGAVGA.BGI и GRAPH.TPU и поместить в папку «ЕХЕ».

Примечание

В лаборатории 210 файл EGAVGA.BGI находиться на C:\VSK\MVK\ , а GRAPH.TPU на C:\BP\BIN\).

3. Написать программу в среде Турбо Паскаль.

Загрузите среду Турбо Паскаль с рабочего стола (ярлык Turbo Pascal).

Примечание

В лаборатории 210 вместо Turbo Pascal используется Turbo C Borland Pascal, который находится на C:\BP\BIN\BP.exe .

Установить в Турбо Паскале рабочую папку которую вы создали. Для этого выполните следующие действия.

1. Нажать горячую клавишу Alt+F.

2. С помощью стрелок на клавиатуре выделить пункт «Change dir…» и нажать Enter.

3. Написать в графе «Directory name» путь вашего каталога D:\USERS\440\EXE.

4. Нажать Enter.

Набрать текст программы приведённый ниже.

Program example;

Uses crt, graph;

Var

i, j, dx, dy: integer;

Begin

i:=detect;

initgraph (i, j , ‘ ‘);

setcolor (15);

rectangle ( i-50, j-40, i+50 , j+40);

i:=320;

j:=240;

dx:=1;

dy:=1;

Repeat

Setcolor (getbkcolor);

Rectangle ( i-50, j-40, i+50 , j+40);

setcolor (15);

if (i>590) or (i<50) then dx:=-dx;

if (j>440) or (j<40) then dy:=-dy;

i:=i+dx;

j:=j+dy;

Rectangle ( i-50, j-40, i+50 , j+40);

Delay (300);

Until keypressed;

Closegraph;

End.

После того, как вы набрали программу, проверьте её правильность работы.

Запустите её с помощью комбинации клавиш Ctrl+F9. Просмотрите процесс работы и нажмите Enter. Сохраните программу.

1. С помощью горячей клавиши Alt+F открыть меню «File».

2. Выбрать с помощью стрелок на клавиатуре пункт «Save as…» и нажать Enter.

3. В открывшимся окне введите имя программы «Prim1» и нажмите Enter.

Для запуска данной программы в среде Windows 2000 вам необходимо конвертировать расширение .pas в расширение .exe.

1. С помощью горячей клавиши Alt+С открыть меню «Compile».

2. Выбрать там с помощью стрелок на клавиатуре пункт «Destnation Memory» и нажать Enter (при этом надпись «Destnation Memory» должна смениться на «Destnation Disk»).

3. В этом же меню нажать Enter на пункте «Build».

На этом работа Турбо Паскаля закончена. Выйдите из него нажав Alt+Х. После того, как вы получили файл с расширением .ехе запустите его из ОС Windows 2000.

1. Щелкнуть по кнопке «Пуск».

2. Выбрать пункт «Выполнить…» (перед вами откроется «Запуск программы»).

3. Введите полный адрес и имя программы, которую нужно запустить. В нашем случае это - D:\USERS\440\EXE\PRIM1.exe.