Программа для BASIC. Дана матрица P(3, 4), состоящая из целых чисел. Поменять местами наибольший и наименьший элементы матрицы, затем все элементы матрицы умножить на коэффициент K. Вывести полученную матрицу.

14 Окт 2019 в 18:41
187 +1
1
Ответы
1
10 DIM P(3, 4)
20 INPUT "Введите коэффициент K: ", K
30 REM Заполнение матрицы P
40 FOR I = 1 TO 3
50 FOR J = 1 TO 4
60 INPUT "Введите элемент матрицы P("; I; ","; J; "): ", P(I, J)
70 NEXT J
80 NEXT I
90 REM Поиск наибольшего и наименьшего элементов
100 MAX = P(1, 1)
110 MIN = P(1, 1)
120 FOR I = 1 TO 3
130 FOR J = 1 TO 4
140 IF P(I, J) > MAX THEN MAX = P(I, J)
150 IF P(I, J) < MIN THEN MIN = P(I, J)
160 NEXT J
170 NEXT I
180 REM Поменять местами наибольший и наименьший элементы
190 FOR I = 1 TO 3
200 FOR J = 1 TO 4
210 IF P(I, J) = MAX THEN P(I, J) = MIN
220 IF P(I, J) = MIN THEN P(I, J) = MAX
230 NEXT J
240 NEXT I
250 REM Умножить все элементы на коэффициент K
260 FOR I = 1 TO 3
270 FOR J = 1 TO 4
280 P(I, J) = P(I, J) * K
290 NEXT J
300 NEXT I
310 REM Вывод полученной матрицы
320 FOR I = 1 TO 3
330 FOR J = 1 TO 4
340 PRINT P(I, J);
350 NEXT J
360 PRINT
370 NEXT I

Пример работы программы:

Введите коэффициент K: 2
Введите элемент матрицы P(1,1): 3
Введите элемент матрицы P(1,2): 5
Введите элемент матрицы P(1,3): 1
Введите элемент матрицы P(1,4): 7
Введите элемент матрицы P(2,1): 8
Введите элемент матрицы P(2,2): 2
Введите элемент матрицы P(2,3): 6
Введите элемент матрицы P(2,4): 4
Введите элемент матрицы P(3,1): 9
Введите элемент матрицы P(3,2): 12
Введите элемент матрицы P(3,3): 10
Введите элемент матрицы P(3,4): 11
14 10 8 6
4 6 12 16
3 3 4 3
19 Апр 2024 в 11:16
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир