Разработка прикладных программ и командного файла

8. Запись значения переменной ХØ в файл с идентификатором #1.

9. Закрытие файла с идентификатором #1. 

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

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

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

CLS

PRINT "VIPOLNENIYE PROGRAMMI GX2"

RANDOMIZE TIMER

ksi = (-1 - 1) * RND + 1

PRINT "ksi=", ksi

x0 = INT(TAN(ksi * 3.14 / 4) * 26) - 11

PRINT "x0=", x0

OPEN "v:\data3\dx0.dat" FOR OUTPUT AS #1

WRITE #1, x0

CLOSE #1

PRINT "ZAVERSHENIYE PROGRAMMI GX2"

SYSTEM

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

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

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

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

2.2. Разработка программы преобразования переменной Х в Х1

     Постановка  задачи. Преобразовать целочисленное значение переменной

Х0 в значение переменной Х1 по следующему выражению:

X1 = (X^2 – 5*X + 6)^3/2      если X <= 3,5

X1 = Ln(5)*X    если X > 3,5

где Х - значение переменной, хранящееся в файле DX1.dat

     Вычисленное значение переменной Х1 записать в тот  же файл DX1.dat, заменив им значение переменной X. Программу сохранить в файле XX6.bas каталога MYBAS3, а откомпилированную программу – в файле XX6.exe каталога MYEXE3.

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

1. Вывод на  экран заголовка программы.

2. Открытие файла  DX1.dat для чтения исходных данных  – значения переменной X.

3. Чтение значения  переменной X из файла DX1.dat.

4. Закрытие файла  DX1.dat.

5. Вывод прочитанного  числа X на экран для контроля.

6. Проверка условия  по значению прочитанного числа  Х. Если условие истинно, выполняется  7,если ложно – 8.

7. Вычисление  значения перемен-

ной X1 по выражению  X1 = (X^2 – 5*X + 6)^3/2

8. Вычисление  значения перемен-

ной X1 по выражению  X1 = Ln(5)*X

9. Вывод полученного  числа X1 на экран для контроля.

10. Открытие файла  DX1.dat для записи.

11. Запись значения  переменной Х1 в файл DX1.dat вместо  Х.

12. Закрытие файла DX1.dat.

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

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

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

PRINT "NACHALO PROGRAMMI XX6"

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

INPUT #1, x0

CLOSE #1

PRINT "x0="; x0

  IF x0 <= 3.5 THEN

  x1 = INT((x0 ^ 2 - 5 * x0 + 6) ^ (3 / 2))

  ELSE

  x1 = INT(LOG(5) * x0)

  END IF

PRINT "X1="; x1

OPEN "v:\data3\dx1.dat" FOR OUTPUT AS #1

WRITE #1, x1

CLOSE #1

PRINT "ZAVERSHENIE PROGRAMMI XX6"

SYSTEM

     Программа сохранена в текстовом формате  в файле XX6.bas каталога MYBAS3. Произведена  компиляция программы в среде программирования в режиме создания автономного EXE-файла (Stand-Alone EXE File), получен исполняемый файл ХХ6.exe, который перемещен в каталог MYEXE3.

2.3.  Разработка программы преобразования переменной Х0 в массив M0

Постановка  задачи. Преобразовать целочисленное значение переменной Х0 в значения переменных элементов массива M0 размерностью (2,8) по

следующему выражению:

M_i,j=cos(1,5ⁱ)-4 j=|X|

где Х0 - значение переменной, хранящееся в файле DX0.dat

     Вычисленные значения переменных элементов массива M0 сохранить в файле DM0.dat.

     Программу сохранить в файле XM7.bas каталога MYBAS3, а откомпилированную программу – в файле XM7.exe каталога MYEXE3.

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

1. Вывод на  экран заголовка программы.

2.Описание двумерного массива чисел М0(2,8).

3. Открытие файла DX0.dat для чтения исходных данных – значения переменной X0.

4. Чтение значения  переменной X0 из файла DX0.dat.

5. Вывод прочитанного  числа X0 на экран для контроля.

6. Открытие файла  DM0.dat для записи значений массива переменных М0(i,j).

7. Организация  внешнего цикла с параметром i для вычисления значений элементов массива переменных М0(i,j).

8. Организация  внутреннего цикла с параметром j для вычисления значений элементов  массива переменных М0(i,j).

9. Тело цикла. Вычисление значений элементов массива переменных М0(i,j).

10. Тело цикла.  Запись значений элементов массива  переменных М0(i,j) в файл DM0.dat.

11. Тело цикла.  Вывод значений элементов массива  переменных М0(i,j) на экран для контроля. Конец тела цикла.

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

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

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

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

PRINT "NACHALO VIPOLNENIYA PROGRAMMI XM7"

DIM M0(2, 8)

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

INPUT #1, x0

PRINT "X0=", x0

OPEN "v:\data3\dm0.dat" FOR OUTPUT AS #2

FOR i = 1 TO 2

FOR j = 1 TO 8

m0(i, j) = INT(COS(1.5 ^ i) - 4 * j + ABS(x0))

WRITE #2, m0(i, j)

PRINT "M0("; i; ","; j; ")="; m0(i, j)

NEXT j

NEXT i

CLOSE #1

CLOSE #2

PRINT "ZAVERSHENIE PROGRAMMI XM7"

SYSTEM 
 

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

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

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

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

2.4.   Разработка программы преобразования переменной M0 в массив M1

     Постановка  задачи. Преобразовать значения элементов массива M0

в значения переменных элементов массива M1 размерностью (2,8) по

следующему выражению:

M1(i,j) = ] 5*i^(4-j) + abs(M0(i,j)) – i*j [

где M0(i,j) - значения переменных элементов массива , хранящиеся в файле DM0.dat

     Вычисленные значения переменных элементов массива M1 сохранить в файле DM1.dat. Программу  сохранить в файле MM8.bas каталога MYBAS3, а откомпилированную программу – в файле MM8.exe каталога MYEXE3. 
 
 
 
 
 
 
 
 
 

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

     

1. Вывод на  экран заголовка программы.

2.Описание двумерных массивов чисел М0(2,8) и M1(2,8).

3. Открытие файла DM0.dat для чтения исходных данных – значений переменных элементов M0(i,j).

4. Открытие файла DM1.dat для записи полученных данных – значений переменных элементов M1(i,j).

5. Организация внешнего цикла с параметром i для вычисления

значений элементов  массива переменных М1(i,j).

6. Организация внутреннего цикла с параметром j для вычисления значений элементов массива переменных М1(i,j).

7. Тело цикла. Чтение из файла DM0.dat значений элементов массива M0(i,j).

8. Тело цикла.  Вычисление значений элементов  массива переменных M1(i,j). 

9. Тело цикла. Запись значений элементов массива переменных

М1(i,j) в файл DM1.dat.

10. Тело цикла. Вывод значений элементов массива переменных

М1(i,j) на экран для контроля. Конец тела цикла.

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

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

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

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

PRINT "NACHALO VIPOLNENIYA PROGRAMMI MM8"

DIM m0(2, 8)

DIM m1(2, 8)

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

OPEN "v:\data3\dm1.dat" FOR OUTPUT AS #2

FOR i = 1 TO 2

FOR j = 1 TO 8

INPUT #1, m0(i, j)

m1(i, j) = INT(5 * i ^ (4 - j) + ABS(m0(i, j)) - i * j)

WRITE #2, m1(i, j)

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

NEXT j

NEXT i

CLOSE #1

CLOSE #2

PRINT "ZAVERSHENIE PROGRAMMI MM8"

SYSTEM

     Программа сохранена в текстовом формате  в файле MМ8.bas каталога MYBAS3. Произведена компиляция программы в среде программирования в режиме создания автономного EXE-файла (Stand-Alone EXE File), получен исполняемый файл MМ8.exe, который перемещен в каталог MYEXE3.

2.5.    Разработка программы преобразования массива M1 в число X1.

     Постановка  задачи. Преобразовать значения переменных элементов массива M1 размерностью (2,8)  в целочисленное значение переменной Х1, где X1 – отрицательный элемент массива с наибольшим модулем.

     Если  X1>= 21, то результат программы занести в файл DX1.dat, иначе – в файл DX2.dat.

     Программу сохранить в файле MX9.bas каталога MYBAS3, а откомпилированную программу – в файле MX9.exe каталога MYEXE3.

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

     

1. Вывод на  экран заголовка программы.

2.Описание двумерного  массива чисел М1(2,8).

3. Открытие файла DM1.dat для чтения исходных данных – значений элементов массива M1(i,j).

4. Присвоить переменной X1 значение 0. 

5. Организация  внешнего цикла с параметром i для работы с элементами массива  M1.

6. Организация внутреннего цикла с параметром j для работы с элементами массива M1.

7. Тело цикла. Чтение из файла элемента массива M1(i,j)

8. Тело цикла. Условие – если элемент меньше ноля и если модуль значения элемента больше X1, тогда переменной X1 присвоить значение данного элемента массива. Иначе закончить оператор условия. Конец тела цикла.

9. Условие - Если X1 по прежнему остался равным нолю, то вывод сообщения о том, что в массиве нет отрицательных значений элементов. Иначе вывести на экран значение X1.