QBASIC

[FLORA]

помогите пожалуйсто задали написать программу на языке QBASIC:
Сформировать двумерный массив по правилу М(i,j)=-30+60*r
где r число из отрезка (0,1). Поменять местами элементы строки с номеом К с элементами строки с номером t Ввывести полученный массив
М

[Sazary]

Постарайтесь понять решение:

CONST mm = 4     'количество строк
CONST nn = 5      'количество столбцов
DIM M(mm, nn) AS DOUBLE     'сам массив
DIM i, j AS INTEGER       'счетчики
DIM k, t AS INTEGER     'те самые k и t
DIM tmp AS DOUBLE     'это понадобится
CLS       ' чистим экран
RANDOMIZE TIMER    'инициализируем генератор случайных чисел
FOR i = 1 TO mm 
 FOR j = 1 TO nn
 M(i, j) = -30 + 60 * RND    'считаем M(i,j)
 PRINT USING "###.## "; M(i, j);    'и выводим его
 NEXT j
PRINT      'переводим строку
NEXT i
'------------
INPUT "enter k: "; k   'вводим k и t
INPUT "enter t: "; t
'цикл меняет местами строки
FOR j = 1 TO nn
 tmp = M(k, j)
 M(k, j) = M(t, j)
 M(t, j) = tmp
NEXT j
'---------
'далее выводим то, что получилось
FOR i = 1 TO mm
 FOR j = 1 TO nn
  PRINT USING "###.## "; M(i, j);
 NEXT j
PRINT
NEXT i

END