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

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

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

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

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

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


Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/

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

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

Занятие 19

Задачи на сумму элементов строк или столбцов

1. Задана матрица A(N,N) в диапазоне [-14,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*39-14)

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

NEXT J

PRINT

NEXT I

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

S(I)=S(I)+A(I,J)

NEXT J

PRINT “Сумма элементов строки”;S(I)

NEXT I

2. Задана матрица A(N,N) в диапазоне [-14,25]. Найти сумму элементов каждого столбца.

Ввод матрицы

FOR J=1 TO N

S(J)=0

FOR I=1 TO N

S(J)=S(J)+A(I,J)

NEXT I

PRINT “Сумма элементов столбца”;S(J)

NEXT J

3. Задана матрица A(N,N) в диапазоне [-14,25]. Найти сумму положительных элементов каждой строки.

Ввод массива

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

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

NEXT J

PRINT “Сумма положительных элементов строки”;S(I)

NEXT I

4. Задана матрица A(N,N) в диапазоне [-14,25]. Найти сумму элементов каждой строки и среди них найти min.

I способ

Ввод массива

Min=1000

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

S(I)=S(I)+A(I,J)

NEXT J

? S(I);

IF S(I)

NEXT I

PRINT

PRINT “min=”; min


II способ

Ввод массива

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

S(I)=S(I)+A(I,J)

NEXT J

? S(I);

NEXT I

Min=1000

FOR I=1 TO N

IF S(I)

NEXT I

PRINT

PRINT “min=”; min


5. Задана матрица A(N,N) в диапазоне [-10,20]. Найти сумму элементов каждом столбце и среди них найти mах.

Ввод массива

Max=-1000

FOR J=1 TO N

S(J)=0

FOR I=1 TO N

S(J)=S(J)+A(I,J)

NEXT I

? S(J);

IF S(J)>max THEN max = S(J)

NEXT I

PRINT

PRINT “max=”; max

5. Задана матрица A(N,N) в диапазоне [-30,20]. Поменять местами строки массива с min и mах суммой положительных элементов.

Ввод массива

min=1000 max=-1000

FOR I=1 TO N

S(I)=0

FOR J=1 TO N

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

NEXT J

? S(I);

IF S(I)

IF S(I)>max THEN max = S(I) : Imax=I

NEXT I

FOR I=1 TO N

SWAP A(Imin, I),A(Imax, I)

NEXT I

PRINT

Вывод массива

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

Задана матрица A(N,N) в диапазоне [-36,21]. Поменять местами столбцы массива с min и mах суммой модулей элементов.

S(I)=S(I)+ABS(A(I,J))

Задана матрица A(N,N) в диапазоне [-16,31]. Напечатать элементы главной диагонали и сумму всех строк элементов, за исключением самого элемента главной диагонали. IF I<>J THEN S(I)=S(I)+A(I,J)

Задана матрица A(N,N) в диапазоне [-26,11]. Напечатать элементы побочной диагонали и сумму всех строк элементов, за исключением самого элемента побочной диагонали. IF I+J<>N+1 THEN S(I)=S(I)+A(I,J)


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

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

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

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

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

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

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

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

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

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

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


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