10. Условие – Если X1>=21, то открыть для записи файл DX1.dat, записать в него значение X1 и закрыть файл. Иначе открыть для записи файл DX2.dat, записать в него значение X1 и закрыть файл.

11. Закрытие всех открытых файлов.

12. Вывод на экран сообщения о завершении программы.

                   2.5.2. Разработка программы на языке бейсик

     Листинг программы MX9.bas представлен ниже.

      PRINT "NACHALO VIPOLNENIYA PROGRAMMI MX9"

     DIM m1(2, 8)

     OPEN "v:\data3\dm1.dat" FOR INPUT AS #1

     x1 = 0

     FOR i = 1 TO 2

       FOR j = 1 TO 8

       INPUT #1, m1(i, j)

       PRINT "M1("; i; ","; j; ")=", m1(i, j)

         IF m1(i, j) < 0 THEN

           IF ABS(m1(i, j)) > x1 THEN

           x1 = m1(i, j)

           ELSE

           END IF

         ELSE

         END IF

       NEXT j

     NEXT i

     IF x1 = 0 THEN

     PRINT "V MASSIVE NET OTRICATELNIH CHISEL"

     ELSE 
 

     PRINT "X1(OTRICATELNIY ELEMENT S NAIBOLSHIM MODULEM)="; x1

     END IF

       IF x1 >= 21 THEN

       OPEN "V:\DATA3\DX1.DAT" FOR OUTPUT AS #2

       WRITE #2, x1

       CLOSE #2

       ELSE

       OPEN "v:\data3\dx2.dat" FOR OUTPUT AS #3

       WRITE #3, x1

       CLOSE #3

       END IF

     CLOSE #1

     PRINT "ZAVERSHENIE PROGRAMMI MX9"

     SYSTEM

     Программа сохранена в текстовом формате в файле MX9.bas каталога MYBAS3.

     Произведена компиляция программы в среде программирования в режиме

создания автономного EXE-файла (Stand-Alone EXE File), получен исполняе-

мый файл MX9.exe, который перемещен в каталог MYEXE3. 

3. Разработка программы  на командном языке  ОС MS DOS

     Постановка  задачи. Требуется реализовать автоматическое выполнение последовательности действий, определяемых основной задачей и перечисленные в разделе 1. Эта последовательность реализуется на командном языке операционной системы.

     Метод решения. При решении задачи используются команды операционной системы MS DOS: команды работы с каталогами и файлами и специальные команды, применяемые в командных файлах. Вся последовательность команд оформляется в виде командного файла с именем BAT3.bat и сохраняется в каталоге MYBAT3.

     В состав командного файла включены комментарии и команды приостановки его выполнения. Такие включения позволяют отслеживать ход выполнения программы при её тестировании и отладке. 

3.1. Разработка алгоритма  решения задачи

 

     Описание алгоритма.

1.Очистка экрана  монитора.

2. Вывод на экран сообщения о начале выполнения программы

командного файла.

3. Создание на  диске V рабочих каталогов MYBAS3, MYEXE3 и

DATA3.

4. Копирование  файлов с расширением *.bas из  каталога

MYPROG3 в каталог MYBAS3 с переименованием.

5. Копирование  файлов с расширением *.exe из каталога

MYPROG3 в каталог MYEXE3 с переименованием.

6. Выполнение прикладной программы ЕGX2.bas написанной на языке бейсик.

7. Тело цикла. Выполнение последовательно прикладных программ EXM7, EMM8, EMX9.

8. По условию существования файла DX1.dat: если существует – то переход к метке M1, если нет – то переход к метке М2.

- Метка М1.

9. Вывод содержимого файла DX1.dat на экран и запуск программы BXX6, написанной на языке бейсик в цикле 3 раза подряд. Переход к метке М2.

- Метка М2.

10. Удаление всех созданных файлов из соответствующих каталогов.

11. Удаление созданных каталогов.

12. Вывод на экран сообщения о завершении выполнения командного файла.

     Командный файл создан по составленному алгоритму  после разработки

прикладных программ. 
 
 
 
 
 
 
 

3.2. Разработка программы  на командном языке  ОС

     Листинг программы в командном файле BAT3 имеет следующий вид:

cls

rem NACHALO RABOTI OSNOVNOY PROGRAMMI

pause

rem SOZDANIE RABOCHIH KATALOGOV

md v:\mybas3

md v:\myexe3

md v:\data3

pause

rem KOPIROVANIE FAILOV *.bas S PEREIMENOVANIEM

pause

copy v:\myprog3\gx2.bas v:\mybas3\bgx2.bas

copy v:\myprog3\xx6.bas v:\mybas3\bxx6.bas

copy v:\myprog3\xm7.bas v:\mybas3\bxm7.bas

copy v:\myprog3\mm8.bas v:\mybas3\bmm8.bas

copy v:\myprog3\mx9.bas v:\mybas3\bmx9.bas

pause

Rem KOPIROVANIE FAILOV *.exe S PEREIMENOVANIEM

pause

copy v:\myprog3\gx2.exe v:\myexe3\egx2.exe

copy v:\myprog3\xx6.exe v:\myexe3\exx6.exe

copy v:\myprog3\xm7.exe v:\myexe3\exm7.exe

copy v:\myprog3\mm8.exe v:\myexe3\emm8.exe

copy v:\myprog3\mx9.exe v:\myexe3\emx9.exe

pause

rem VIPOLNENIE PRIKLADNIH PROGRAMM

pause

v:\qbasic\qb.exe /run v:\mybas3\bgx2.bas

pause

for %%a in (v:\myexe3\exm7.exe, v:\myexe3\emm8.exe, v:\myexe3\emx9.exe) do %%a

pause

if exist v:\data3\dx1.dat goto m1

goto m2 

:m1

rem SUSHESTVUET FAIL V:\data3\dx1.dat

pause

type v:\data3\dx1.dat

pause

for %%b in (x,y,z) do v:\qbasic\qb.exe /run v:\mybas3\bxx6.bas

pause

goto m2 

:m2

rem UDALENIE FAILOV IZ RABOCHIH KATALOGOV

pause

del v:\mybas3\*.*

pause

del v:\myexe3\*.*

pause

del v:\data3\*.*

pause

rem UDALENIE RABOCHIH KATALOGOV

pause

rd v:\mybas3

rd v:\myexe3

rd v:\data3

rem ZAVERSHENIE RABOTI OSNOVNOY PROGRAMMI

pause

exit 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение

          В результате выполнения данной курсовой работы был написан ряд программ на языке QBasic 3.5. Так же был создан командный файл *.bat запускающий эти программы.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Библиографический список

1. Терехов В. Г. Учебно-методический комплекс. Сводный темплан 2009г. Изд-во СЗТУ

2. Новичков В.С. Пылькин А.Н. Начала программирования на языке QBasic: Учебное пособие. Горячая линия-Телеком 2007г.

3. Максимова А.П. Прикладная информатика. ТетраСистемс 2004г.

4. Пестриков В. М., Тяжев А. Т. QBASIC на примерах. Издательство: BHV-Санкт-Петербург 2010г.