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

Способ (с помощью оператора цикла while. . . Wend). Input введи размер матрицы ; n, m



Читайте также:
  1. He-делание и два способа вхождения в сновидение
  2. I система: аденилатциклаза – цАМФ
  3. I. Гашение дуги с помощью полупроводниковых элементов
  4. I. Общая концепция выведения на рынок сотовой связи нового оператора
  5. I. Расчёт термодинамического цикла холодильной машины.
  6. III. Порядок выдачи листка нетрудоспособности по уходу за больным членом семьи, здоровым ребенком, ребенком-инвалидом; при протезировании; при беременности и родах?
  7. IX. Заполнение листка нетрудоспособности

CLS

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

DIM A(n, m)

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

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

FOR j = 1 TO m

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

FOR i = 1 TO n

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

INPUT A(i,j)

NEXT i, j

FOR j = 1 TO m

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

i=1

'Поиск первого положительного элемента по столбцам

WHILE A(i,j)>=0 OR i < = n

i = i + 1

WEND

B(j) = A(i,j)

NEXT j

FOR j = 1 TO m

PRINT B(j)

NEXT j

END

пример 20

 

Дана матрица чисел. Заменить первый нулевой элемент в каждой строке на 1.

 

Программа

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

FOR j = 1 TO m

'Нахождение номера первого нулевого элемента в каждой строке

IF A(i,j) = 0 THEN K = j: EXIT FOR

NEXT j

'Замена первого нулевого элемента на 1

A(i,K) = 1

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; просмотров: 134 | Нарушение авторских прав






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