Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / Изучаем язык BASIC. Занятие 20 Нахождение min и max в строках и столбцах
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

библиотека
материалов

Занятие 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


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

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