Есть ответ 👍

99 выручайте кто с информатикой дружит . нужно программу в бейсике написать. дана матрица a (n,m). получите вектор x(m) равный p й строки матрицы и вектор y n равный q му стобцу матрицы

268
331
Посмотреть ответы 2

Ответы на вопрос:


Microsoft qbasic m = 10 n = 15 dim a(1 to m, 1 to n) as integer dim x(1 to n) as integer, y(1 to m) as integer randomize timer cls print "исходная матрица" for i = 1 to m     for j = 1 to n           a(i, j) = int(99 * rnd)           print using "###"; a(i, j);     next j     print next i input "строка для х и столбец для y (через запятую): ", p, q print "вектор-строка х" for j = 1 to n     x(j) = a(p, j)     print using "###"; x(j); next j print print "вектор-столбец y" for i = 1 to m     y(i) = a(i, q)     print using "###"; y(i); next i print тестовое решение: исходная матрица   51 91 87 95 48 54 64 92  2 91 84 56 60 87  6   96 55 81 11 46 42 38 14 40 73 33 97 16 90 65   65 41 52  1 30 62 68 32 16 86 80 72 94 76 50   63 44 84 83 19 29 95 75 88  9 13 78 45 72 51   98 98 93 70 19 36 16 21 38 87 59 26 48 11 52   77 24 11 91 68 49 72 25 39 54 31 55 57 92 55   79 19 37 67 40 72 91 76 13 75 47 48 12 64 44   87 24 62 73 58 65  2 90 21 63 79 67 92 68 27   57 42 82 21 94  1 19  1 12  1 84 27 86 42 89   54 12 78 75 33 87 34 78 38 50 40 11 19  6  2 строка для х и столбец для y (через запятую): 4,8 вектор-строка х   63 44 84 83 19 29 95 75 88  9 13 78 45 72 51 вектор-столбец y   92 14 32 75 21 25 76 90  1 78
girldasha1
4,7(63 оценок)

Program gt; var n,f1,f2,i,f: integer; begin readln(n); f1: =1; f2: =1; for i: =2 to n do begin f: =f1+f2; f1: =f2; f2: =f; end; writeln(f2); end.

Популярно: Информатика