Инфоурок Информатика КонспектыИзучаем язык BASIC. Занятие 17. Квадратная матрица.

Карточки"изучаем фигуры" на крымскотатарском языке

Файл будет скачан в форматах:

  • pdf
  • pptx
214
1
30.10.2024

Материал разработан автором:

Разработок в маркетплейсе: 248
Покупателей: 4 353

Об авторе

Категория/ученая степень: Вторая категория
Мой девиз: «Скажи мне и я забуду, покажи мне и я запомню. Дай мне действовать самому, и я научусь». (Китайский мудрец) Сайт создан для учителей биологии и химии На сайте коллеги найдут для себя много методических и практических материалов. Школьникам и их родителям будут интересны различные памятки по предметам, тестовые, контрольные и олимпиадные задания, разработки уроков. Желаю приятного и полезного проведения времени на страницах моего сайта!
Подробнее об авторе

Настоящая методическая разработка опубликована пользователем Асанова Лейля Мусаевна. Инфоурок является информационным посредником

Карточки"изучаем фигуры" красочный материал на крымскотатарском языке для учащихся 1-5 классов. можно использовать на уроках внеурочной деятельности. Материал в двух форматах: редактируемый и нередактируемый.

Краткое описание методической разработки

Карточки"изучаем фигуры"  красочный материал на крымскотатарском языке для учащихся 1-5 классов. можно использовать на уроках внеурочной деятельности. Материал в двух форматах: редактируемый и нередактируемый.

Изучаем язык BASIC. Занятие 17. Квадратная матрица.

Скачать материал

Занятие 17

Квадратная матрица.

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

Принадлежность элементов заданной области определяется по значениям индексов элементов массива.

1,1

1,2

1,3

2,1

2,2

2,3

3,1

3,2

3,3

I<J                    I>J

1,2                     2,1

1,3                     3,1

2,3                     3,2

Главная диагональ  I=J

 

1.     Элементы лежат на главной диагонали

                                  I=J

2.     Элементы лежат над главной диагональю

                                  I<J

3.     Элементы лежат под главной диагональю

                                  I>J

 

 

N=3

3,1                Побочная диагональ

2,2               I+J=N+1

1,3

 

1,1              1+1<3+1    1,3              2+3>3+1

1,2              1+2<3+1    3,2             3+2>3+1

2,1              2+1<3+1    3,3             3+3>3+1

                   I+J<N+1                        I+J>N+1

 

1.     Элементы, лежащие на побочной диагонали удовлетворяют условию

I+J=N+1

2.     Элементы, лежащие над побочной диагональю удовлетворяют условию

I+J<N+1

3.     Элементы, лежащие под побочной диагональю удовлетворяют условию

I+J>N+1

 

Задана матрица A(N,N)  в диапазоне [-24,22]. Найти сумму чисел расположенных на главной диагонали.



CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*46-24)

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

NEXT J

PRINT

NEXT I

S=0

FOR I=1 TO N

FOR J=1 TO N

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

NEXT J,I

PRINT “S=”;S


Второй вариант

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*46-24)

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

NEXT J

PRINT

NEXT I

S=0

FOR I=1 TO N

S=S+A(I,I)

NEXTI

PRINT “S=”;S


 

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

Ввод матрицы

S=0

FOR I=1 TO N

FOR J=1 TO N

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

NEXT J,I

PRINT “S=”;S

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

Ввод матрицы

S=0

FOR I=1 TO N

S=S+A(I,I)

NEXT I

PRINT “S=”;S

Найти сумму всех элементов , расположенных на побочной диагонали.


 

Ввод матрицы

S=0

FOR I=1 TO N

FOR J=1 TO N

IF I+J =N+1THEN S=S+A(I,J)

NEXT J,I

PRINT “S=”;S

Ввод матрицы

S=0

FOR I=1 TO N

S=S+A(I,N+1-I)

NEXT I

PRINT “S=”;S

 

 


 

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

Ввод матрицы

S=0

FOR I=1 TO N

FOR J=1TO N

IF J+I=N+1 AND A(I,J)/2=A(I,J)\2 THEN S=S+A(I,J)

NEXT J,I

PRINT “S=”;S

Второй вариант

Ввод матрицы

S=0

FOR I=1 TO N

IF A(I,J)/2=A(I,J)\2 THEN S=S+A(I,N+1-I)

NEXT I

PRINT “S=”;S

Задана матрица A(N,N)  в диапазоне [-23,21]. Найти суммы всех элементов, расположенных на, над и под главной диагональю и всех элементов, расположенных на, над и под побочной диагональю.

Задана матрица A(N,N)  в диапазоне [-13,28]. Найти сумму и количество всех кратных 5 элементов, расположенных над побочной диагональю.

Задана матрица A(N,N)  в диапазоне [-22,11]. Найти сумму всех элементов кратных 11, расположенных под главной диагональю и расположенных над побочной диагональю.

Задана матрица A(N,N)  в диапазоне [-33,22]. Найти max элемент, расположенный над главной диагональю и min элемент, расположенный  под побочной диагональю.

Ввод матрицы

max= - 1000

FOR I= 1 TO n

FOR J=1 TO n
IF A(I,J)>max  AND I<J THEN max=A(I,J): Imax=I : Jmax =J

NEXT J,I

min=  1000

FOR I=1 TO N

FOR J=1 TO n
IF A(I,J)<min  AND I+J>N+1 THEN min=A(I,J): Imin=I : Jmin=J

NEXT J,I

PRINT “MAX=”;MAX; “I=”;Imax; “J=”; Jmax

PRINT “MIN=”;MIN; “I=”;Imin; “J=”; Jmin

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

Задана матрица A(N,N)  в диапазоне [-10,12]. Найти max четный некратный 5 элемент, расположенный над главной диагональю и указать его адрес.

Ввод матрицы

max= - 1000

FOR I= 1 TO n

FOR J=1 TO n
IF I<J AND A(I,J)/2=A(I,J)\2  AND A(I,J)/5<>A(I,J)\5  AND A(I,J)<max  AND THEN max=A(I,J): Imax=I : Jmax =J

NEXT J,I

PRINT “MAX=”;MAX; “I=”;Imax; “J=”; Jmax

Задана матрица A(N,N)  в диапазоне [-13,32]. Найти заменить каждой строке на 1 элемент, если он больше элемента, расположенного на главной диагонали и заменить на -1 в противном случае.

Ввод матрицы

FOR I= 1 TO n

FOR J=1 TO n
IF A(I,J)>A(I,I) THEN A(I,J)=1 ELSE A(I,J)=-1

NEXT J,I

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

Задана матрица A(N,N)  в диапазоне [-24,18]. Поменять местами max элемент, расположенный над побочной диагональю с min элементом, расположенный  под побочной диагональю.

Ввод матрицы

max= - 1000 : min=  1000

FOR I= 1 TO n

FOR J=1 TO n
IF A(I,J)>max  AND I+J<N=1 THEN max=A(I,J): Imax=I : Jmax =J

IF A(I,J)<min  AND I+J>N+1 THEN min=A(I,J): Imin=I : Jmin=J

NEXT J,I

SWAP A(Imax, Jmax ), A(Imin ,Jmin)

FOR I=1 TO n

FOR J=I TO n

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

NEXT J

PRINT

NEXT I

 

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал "Изучаем язык BASIC. Занятие 17. Квадратная матрица."
Смотреть ещё 5 968 курсов

Методические разработки к Вашему уроку:

Рабочие листы
к вашим урокам

Скачать

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

7 356 069 материалов в базе

Скачать материал

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Скачать материал
    • 23.09.2015 1871
    • DOCX 59.5 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Гегелашвили Татьяна Павловна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

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

    Удалить материал
  • Автор материала

    Гегелашвили Татьяна Павловна
    Гегелашвили Татьяна Павловна

    Учитель информатики

    • На сайте: 9 лет и 9 месяцев
    • Подписчики: 0
    • Всего просмотров: 145993
    • Всего материалов: 41

    Об авторе

    Я закончила Днепропетровский университет и 20 лет проработала в проектном институте руководителем группы САПР. В 1994 году перешла на преподавательскую работу в школу №38 и уже 20 лет преподаю информатику в этой школе. Высшую категорию получила в 1995 году, а в 2012 году подтвердила её. Проводила курсы повышения компьютерной грамотности для учителей школы и вела семинары в институте повышения квалификации для учителей республики. Вела занятия на кафедре довузовской подготовки Горно-металлургического института. Среди моих учеников есть победители в конкурсах КИТ, Инфознайка, муниципальных и региональных этапов олимпиад по информатике. Знаю 12 языков программирования и умерших и ныне здравствующих, очень люблю язык BASIC и не согласна, что его сейчас вытесняют и пытаются забыть. Он очень хорош для начального знакомства с программированием, поэтому решила выставить свои работы на этом языке.

Оформите подписку «Инфоурок.Маркетплейс»

Вам будут доступны для скачивания все 333 954 материалы из нашего маркетплейса.

Мини-курс

Налогообложение и компенсация потерь: предотвращение ошибок и снижение рисков

6 ч.

699 руб.
Подать заявку О курсе

Мини-курс

Управление операционной деятельностью и проектами

3 ч.

699 руб.
Подать заявку О курсе

Мини-курс

Стратегии привязанности и коммуникация с пожилыми родителями

2 ч.

699 руб.
Подать заявку О курсе
Смотреть ещё 5 968 курсов