Дана матрица с(i,j) i=1,5 j=1,5 Заменить элементы первой строки элементами, состоящими на главной диагонали, а элементы главной диагонали, элементами первой строки. Вывести на печать все промежуточные результаты.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
  CLS : R$ = STRING$(17, 196)
  DIM C(5, 5)
  PRINT R$; "Ishodnaya matrica"
FOR iy = 1 TO 5: FOR ix = 1 TO 5
   C(ix, iy) = INT(RND * 51)
   PRINT USING "## "; C(ix, iy);
NEXT: PRINT : NEXT
   FOR i = 1 TO 5
     SWAP C(i, i), C(i, 1)
   NEXT: PRINT R$; "Rezultat"
FOR iy = 1 TO 5: FOR ix = 1 TO 5
   PRINT USING "## "; C(ix, iy);
NEXT: PRINT : NEXT: PRINT R$ + R$

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment