Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Изучаем язык BASIC. Занятие 20 Нахождение min и max в строках и столбцах

Изучаем язык BASIC. Занятие 20 Нахождение min и max в строках и столбцах

Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy


СВИДЕТЕЛЬСТВО СРАЗУ ПОСЛЕ ПРОСМОТРА ВЕБИНАРА

Вебинар «Подростковая лень: причины, способы борьбы»

Просмотр и заказ свидетельств доступен только до 22 января! На свидетельстве будет указано 2 академических часа и данные о наличии образовательной лицензии у организатора, что поможет Вам качественно пополнить собственное портфолио для аттестации.

Получить свидетельство за вебинар - https://infourok.ru/webinar/65.html

  • Информатика

Поделитесь материалом с коллегами:

Занятие 20

Нахождение min и max в строках и столбцах

1. Задана матрица A(N,N) в диапазоне [-23,25]. Вместо элементов главной диагонали записать сумму элементов соответствующей строки за исключением элементов главной диагонали.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N), S(N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*48-23)

PRINT USING “####”; A(I,J);

NEXT J

PRINT

NEXT I

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

IF I<>J THEN S(I)=S(I)+A(I,J)

NEXT J

A(I,I) = S(I)

NEXT I

Вывод матрицы.

Для побочной диагонали IF I+J<>N+1 THEN S(I)=S(I)+A(I,J)


2. Задана матрица A(N,N) в диапазоне [-13,17]. В каждой строке найти min элемент, среди min найти max и указать его адрес.

Ввод матрицы

max= - 1000

FOR I= 1 TO n

min= 1000

FOR J=1 TO n
IF A(I,J)

NEXT J

IF m(I)>max THEN max=M(I): Imax=I : Jmax=Jmin

NEXT I

PRINT “A(“; Imax; “,”; Jmax; “)=”; max

2. Задана матрица A(N,N) в диапазоне [-13,17]. В каждом столбце найти max элемент, среди max найти min и указать его адрес.

Ввод матрицы

max= - 1000

FOR J= 1 TO n

min= 1000

FOR I=1 TO n
IF A(I,J)

NEXT I

IF m(J)>max THEN max=M(J): Jmax=J : Imax=Imin

NEXT I

PRINT “A(“; Imax; “,”; Jmax; “)=”; max


Домашнее задание

1. Задана матрица A(N,N) в диапазоне [-18,17]. Найти среднее арифметическое элементов каждой строки и вывести их на экран.

FOR I=1 TO N

S=0

FOR J=1 TO N

S=S+A(I,J)

NEXT J

SR(I)=S/N

NEXT I

FOR I=1 TO N

PRINT SR(I);

NEXT I

2. Задана матрица A(N,N) в диапазоне [-18,27]. Найти отдельно сумму элементов большего и меньшего среднего арифметического матрицы.

S=0

FOR I=1 TO N

FOR J=1 TO N

S=S+A(I,J)

NEXT J

NEXT I

SR=S/N/N

PRINT “SR=”;SR

Smax = 0 : Smin = 0

FOR I=1 TO N

FOR J=1 TO N

IF A(I,J)>SR THEN Smax = Smax +A(I,J)

IF A(I,J)

NEXT J,I

PRINT “Smax = “; Smax; “Smin =”; Smin

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

Автор
Дата добавления 23.09.2015
Раздел Информатика
Подраздел Конспекты
Номер материала ДВ-004664
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

Если Вы учитель или воспитатель, то можете прямо сейчас получить документ, подтверждающий Ваши профессиональные компетенции. Выдаваемые дипломы и сертификаты помогут Вам наполнить собственное портфолио и успешно пройти аттестацию.

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх