99 выручайте кто с информатикой дружит . нужно программу в бейсике написать. дана матрица a (n,m). получите вектор x(m) равный p й строки матрицы и вектор y n равный q му стобцу матрицы
268
331
Ответы на вопрос:
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
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.
Популярно: Информатика
-
garcinia09.05.2020 03:26
-
Лоликус25.08.2022 13:27
-
Snyezha11.07.2020 08:31
-
Aliska0012913.06.2021 12:18
-
Akikora04.05.2023 00:21
-
vanya49818.01.2022 10:29
-
yul31058805.10.2020 23:21
-
cfgcgj03.05.2021 19:50
-
2a74112.03.2023 07:43
-
selenagomez1331.12.2020 04:54