Составители:
Рубрика:
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
- …
- следующая ›
- последняя »
