Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Программа. INPUT введи размер матрицы ; n, m



Читайте также:
  1. I. УЧЕБНАЯ ПРОГРАММА ДИСЦИПЛИНЫ
  2. II Программа сроки и место проведения Форума
  3. V. ПРОГРАММА СОРЕВНОВАНИЙ
  4. VII. Программа проведения работ и ее обоснование
  5. Антивирусная программа
  6. В мотивационных программах должна принимать участие вся команда ресторана.
  7. В рамках выставки будет проходить культурно-развлекательная программа.

CLS

INPUT "введи размер матрицы "; n, m

DIM A(n, m)

PRINT "введи матрицу"

'Цикл по строкам матрицы

FOR i = 1 TO n

'Цикл по столбцам матрицы

FOR j = 1 TO m

'Ввод элементов массива

INPUT A(i,j)

NEXT j, i

FOR i = 1 TO n

'Присваивание начального значения максимума

MAX = A(i,1)

K = 1

FOR j = 2 TO m

'Нахождение максимального значения и его номера

IF A(i,j) > MAX THEN MAX = A(i,j): K = j

NEXT j

' Обмен значений элементов Аi1 и А

SWAP A(i,1),A(i,K)

NEXT i

'Вывод преобразованной матрицы на печать

FOR i = 1 TO n

FOR j = 1 TO m

PRINT A(i,j);

NEXT j

PRINT

NEXT i

END


Дата добавления: 2015-07-11; просмотров: 64 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.006 сек.)