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

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



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

CLS

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

DIM A(n, n)

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

FOR i = 1 TO n

FOR j = 1 TO n

'Ввод элементов матрицы

INPUT A(i,j)

NEXT j, i

'Задание начального значения минимального элемента побочной диагонали

min = A(1,n): K = 1

FOR i = 1 TO n

FOR j = 2 TO n

'Нахождение наименьшего значения побочной диагонали матрицы

IF i + j = n + 1 AND A(i,j) < min THEN

min = A(i,j):K = i

END IF

NEXT j

NEXT i

'Удаление строки с минимальным значением побочной диагонали матрицы

FOR i = K TO n - 1

FOR j = 1 TO n

A(i,j) = A(i + 1,j)

NEXT j,i

n = n - 1

FOR i = 1 TO n

FOR j = 1 TO n

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

PRINT A(i,j);

NEXT j

PRINT

NEXT i

END


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






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