В заданиях составить две программы. Первая должна формировать типизированный файл. Вторая – считать данные из этого файла, выполнить соответствующие вычисления и за-писать их результаты в текстовый файл. 1. Создать типизированный файл, куда записать n целых чисел. Из исходного файла сформи-ровать массивы четных и нечетных чисел. Определить наибольший отрицательный компонент файла и наименьший положительный.
2. Создать типизированный файл, куда записать произвольный текст. На основе исходного файла создать текстовый файл, содержащий слова, номер которых указывает пользователь.
DIM a(10) AS SINGLE, b(10) AS SINGLE, x(10) AS SINGLE
RANDOMIZE TIMER
FOR i = 1 TO 10
a(i) = 30 * RND - 15
NEXT i
FOR i = 1 TO 10
b(i) = 40 * RND - 20
NEXT i
CLS
PRINT "A", "B", "X"
FOR i = 1 TO 10
IF a(i) = 0 THEN
x(i) = 1E+10
ELSE
x(i) = b(i) / a(i)
END IF
PRINT a(i), b(i), x(i)
NEXT i
Тестовое решение:
A B X
-5.504717 19.41665 -3.527274
-5.233851 -11.24631 2.148764
-5.154725 2.927625 -.5679499
5.057724 -8.649354 -1.710128
-6.304109 -19.25289 3.054023
-1.920151 6.061134 -3.156593
-10.34241 17.10881 -1.654238
13.86053 .4965448 3.582438E-02
-4.931755 8.241055 -1.671019
8.120502 8.78438 1.081753