Составители:
Рубрика:
139
Результаты работы программы приведены в макете печати.
Задание чисел из диапазона [A;B] на языке Basic
осуществляется по формуле (для целых чисел):
INT(A + (B - A) · RND)
Листинг Basic-программы
Программный код
Ввод-вывод матрицы A Ввод-вывод массива X,Y
CLS
N = 3
RANDOMIZE TIMER
DIM A(N,N
)
PRINT "
МАТРИЦА А"
FOR I = 1 TO N
FOR J = 1 TO N
A(I,J)=INT(–10 + 20*RND)
PRINT USING "##",A(I,J);
NEXT J
PRINT
' Пропуск строки
NEXT I
END
CLS
N = 3
RANDOMIZE TIMER
DIM X(N),Y(N)
PRINT TAB(3); " X Y"
FOR I = 1 TO N
X(I)=INT(–10 + 20*RND)
Y(I)=INT(–10 + 20*RND)
PRINT USING "##",X(I);
PRINT USING "##",Y(I)
NEXT I
END
Макет печати результатов (по Basic-программе)
Матрица A X Y
–4 7 –5
8 –3
8 6 –6
7 –6
–7 –8 2
2 8
Функция srand(time(0)) и оператор RANDOMIZE TIMER
нужны для того, чтобы каждый раз при выполнении программы
создавалась новая последовательность псевдослучайных чисел.
Ручной расчёт результатов возможен только после выполнения
программы, в которой необходимо заранее предусмотреть вывод
искомого массива.
Результаты работы программы приведены в макете печати. Задание чисел из диапазона [A;B] на языке Basic осуществляется по формуле (для целых чисел): INT(A + (B - A) · RND) Листинг Basic-программы Программный код Ввод-вывод матрицы A Ввод-вывод массива X,Y CLS CLS N = 3 N = 3 RANDOMIZE TIMER RANDOMIZE TIMER DIM A(N,N) DIM X(N),Y(N) PRINT "МАТРИЦА А" PRINT TAB(3); " X Y" FOR I = 1 TO N FOR I = 1 TO N FOR J = 1 TO N X(I)=INT(–10 + 20*RND) A(I,J)=INT(–10 + 20*RND) Y(I)=INT(–10 + 20*RND) PRINT USING "##",A(I,J); PRINT USING "##",X(I); NEXT J PRINT USING "##",Y(I) PRINT ' Пропуск строки NEXT I NEXT I END END Макет печати результатов (по Basic-программе) Матрица A X Y –4 7 –5 8 –3 8 6 –6 7 –6 –7 –8 2 2 8 Функция srand(time(0)) и оператор RANDOMIZE TIMER нужны для того, чтобы каждый раз при выполнении программы создавалась новая последовательность псевдослучайных чисел. Ручной расчёт результатов возможен только после выполнения программы, в которой необходимо заранее предусмотреть вывод искомого массива. 139
Страницы
- « первая
- ‹ предыдущая
- …
- 137
- 138
- 139
- 140
- 141
- …
- следующая ›
- последняя »