🗊Методическое пособие по массивам Одномерные массивы Двухмерные массивы

Категория: Информатика
Нажмите для полного просмотра!
Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №1Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №2Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №3Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №4Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №5Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №6Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №7Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №8Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №9Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №10Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №11Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №12Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №13Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №14Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №15Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №16Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №17Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №18Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №19Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №20Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №21Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №22Методическое пособие по массивам Одномерные массивы Двухмерные массивы, слайд №23
Скачать

Содержание ▲

Вы можете ознакомиться и скачать Методическое пособие по массивам Одномерные массивы Двухмерные массивы. Презентация содержит 23 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1


Методическое пособие по массивам Одномерные массивы Двухмерные массивы
Описание слайда:
Методическое пособие по массивам Одномерные массивы Двухмерные массивы

Слайд 2


Методическое пособие по одномерным массивам Задача №1 Задача №2 Задача №3 Задача № 4 Задача № 5
Описание слайда:
Методическое пособие по одномерным массивам Задача №1 Задача №2 Задача №3 Задача № 4 Задача № 5

Слайд 3


Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму отрицательных элементов.
Описание слайда:
Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму отрицательных элементов.

Слайд 4


Ответ Program massiv1; uses CRT; var a: array [1..7] of integer; S,i: integer; Begin clrscr; for i:=1 to 7 do read( a[i]); s:=0; for i:=1 to 7 do if a[i]<0 then s:=s+a[i]; write(s); end.
Описание слайда:
Ответ Program massiv1; uses CRT; var a: array [1..7] of integer; S,i: integer; Begin clrscr; for i:=1 to 7 do read( a[i]); s:=0; for i:=1 to 7 do if a[i]<0 then s:=s+a[i]; write(s); end.

Слайд 5


Задача № 2 Дан одномерный целочисленный массив из 8 элементов. Найдите произведение положительных элементов
Описание слайда:
Задача № 2 Дан одномерный целочисленный массив из 8 элементов. Найдите произведение положительных элементов

Слайд 6


Ответ Program massiv2; uses CRT; var a: array [1..8] of integer; P,i: integer; Begin clrscr; for i:=1 to 8 do read( a[i]); P:=1; for i:=1 to 8 do if a[i]>0 then p:=p*a[i]; write(p); end.
Описание слайда:
Ответ Program massiv2; uses CRT; var a: array [1..8] of integer; P,i: integer; Begin clrscr; for i:=1 to 8 do read( a[i]); P:=1; for i:=1 to 8 do if a[i]>0 then p:=p*a[i]; write(p); end.

Слайд 7


Задача № 3 Дан одномерный целочисленный массив из 10 элементов. Посчитайте количество отрицательных элементов.
Описание слайда:
Задача № 3 Дан одномерный целочисленный массив из 10 элементов. Посчитайте количество отрицательных элементов.

Слайд 8


Ответ Program massiv3; uses CRT; var a: array [1..10] of integer; k,i: integer; Begin clrscr; for i:=1 to 10 do read( a[i]); k:=0; for i:=1 to 10 do if a[i]<0 then k:=k+1; write(k); end.  
Описание слайда:
Ответ Program massiv3; uses CRT; var a: array [1..10] of integer; k,i: integer; Begin clrscr; for i:=1 to 10 do read( a[i]); k:=0; for i:=1 to 10 do if a[i]<0 then k:=k+1; write(k); end.  

Слайд 9


Задача №4 Дан одномерный целочисленный массив из 10 элементов. Найдите их среднее арифметическое.
Описание слайда:
Задача №4 Дан одномерный целочисленный массив из 10 элементов. Найдите их среднее арифметическое.

Слайд 10


Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,k,s:integer; c:Real; Begin clrscr; for i:=1 to 10 do read(a[i]); s:=0; k:=0; for i:=1 to 10 do Begin s:=s+a[i]; k:=k+1; end; c:=s/k; write(c); end.
Описание слайда:
Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,k,s:integer; c:Real; Begin clrscr; for i:=1 to 10 do read(a[i]); s:=0; k:=0; for i:=1 to 10 do Begin s:=s+a[i]; k:=k+1; end; c:=s/k; write(c); end.

Слайд 11


Задача № 5 Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемент
Описание слайда:
Задача № 5 Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемент

Слайд 12


Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,max,n:integer; Begin clrscr; for i:=1 to 10 do read(a[i]); n:=1; max:=a[i]; for i:=1 to 10 do If a[i]>max then Begin max:=a[i]; n:=i; end; write('n=',n); write('max=',max); end.  
Описание слайда:
Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,max,n:integer; Begin clrscr; for i:=1 to 10 do read(a[i]); n:=1; max:=a[i]; for i:=1 to 10 do If a[i]>max then Begin max:=a[i]; n:=i; end; write('n=',n); write('max=',max); end.  

Слайд 13


Методическое пособие по двухмерным массивам Задача № 1 Задача № 2 Задача № 3 Задача № 4 Задача № 5
Описание слайда:
Методическое пособие по двухмерным массивам Задача № 1 Задача № 2 Задача № 3 Задача № 4 Задача № 5

Слайд 14


Задача № 1 Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры. Вывести в стандартной форме Найти произведение отрицательных элементов
Описание слайда:
Задача № 1 Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры. Вывести в стандартной форме Найти произведение отрицательных элементов

Слайд 15


Ответ Program massiv1; uses CRT; var a: array [1..5,1..6] of integer; I,j,p: integer; Begin clrscr; for i:=1 to 5 do for j:=1 to 6 do read( a[i,j]); clrscr; for i:=1 to 5 do Begin For j:=1 to 6 do write(a[i,j:5); writeln; end. P:=1; for i:=1 to 5 do for j:=1 to 6 do If a[I,j] < 0 then P:=P*a[i,j]; write (‘p=’,p); end.
Описание слайда:
Ответ Program massiv1; uses CRT; var a: array [1..5,1..6] of integer; I,j,p: integer; Begin clrscr; for i:=1 to 5 do for j:=1 to 6 do read( a[i,j]); clrscr; for i:=1 to 5 do Begin For j:=1 to 6 do write(a[i,j:5); writeln; end. P:=1; for i:=1 to 5 do for j:=1 to 6 do If a[I,j] < 0 then P:=P*a[i,j]; write (‘p=’,p); end.

Слайд 16


Задача № 2 Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из промежутка (-5,7). Найти максимальный элемент выше диагонали.
Описание слайда:
Задача № 2 Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из промежутка (-5,7). Найти максимальный элемент выше диагонали.

Слайд 17


Ответ Program massiv2; uses CRT; var a: array [1..3,1..3] of integer; max,i,j: integer; Begin clrscr; Randomize; for i:=1 to 3 do for i:=1 to 3 do a[i,j]:=random(13)-5; for i:=1 to 3 do Begin for j:=1 to 3 do write(a[i,j]:5); writeln; end; max:=a[1,2]; for i:=1 to 3 do for j:=1 to 3 do If (i<j) and (a[i,j]>max) then max:=a[i,j]; write (‘max=’,max); end.
Описание слайда:
Ответ Program massiv2; uses CRT; var a: array [1..3,1..3] of integer; max,i,j: integer; Begin clrscr; Randomize; for i:=1 to 3 do for i:=1 to 3 do a[i,j]:=random(13)-5; for i:=1 to 3 do Begin for j:=1 to 3 do write(a[i,j]:5); writeln; end; max:=a[1,2]; for i:=1 to 3 do for j:=1 to 3 do If (i<j) and (a[i,j]>max) then max:=a[i,j]; write (‘max=’,max); end.

Слайд 18


Задача № 3 Дан двухмерный целочисленный массив 4х5.Заполнить случайными числами промежутка (-5,7). Найти сумму элементов на главной диагонали диагонали.
Описание слайда:
Задача № 3 Дан двухмерный целочисленный массив 4х5.Заполнить случайными числами промежутка (-5,7). Найти сумму элементов на главной диагонали диагонали.

Слайд 19


Ответ Program massiv3; uses CRT; var a: array [1..4,1..5] of integer; s,i,j: integer; Begin clrscr; randomize; for i:=1 to 4 do for i:=1 to 5 do a[i,j]:=random(13)-5; for i:=1 to 4 do Begin for j:=1 to 5 do write(a[i,j]:5); writeln; end; S:=0; for i:=1 to 3 do for j:=1 to 3 do If i=j then s:=s+a[i,j]; write (‘s=’,s); end.
Описание слайда:
Ответ Program massiv3; uses CRT; var a: array [1..4,1..5] of integer; s,i,j: integer; Begin clrscr; randomize; for i:=1 to 4 do for i:=1 to 5 do a[i,j]:=random(13)-5; for i:=1 to 4 do Begin for j:=1 to 5 do write(a[i,j]:5); writeln; end; S:=0; for i:=1 to 3 do for j:=1 to 3 do If i=j then s:=s+a[i,j]; write (‘s=’,s); end.

Слайд 20


Задача № 4 Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка (-5,7). Найти среднее арифметическое элементов, стоящих ниже главной диагонали.
Описание слайда:
Задача № 4 Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка (-5,7). Найти среднее арифметическое элементов, стоящих ниже главной диагонали.

Слайд 21


Ответ Program massiv4; uses CRT; var a: array [1..4,1..6] of integer; k,s,i,j: integer; d: real; Begin clrscr; randomize; for i:=1 to 4 do for i:=1 to 6 do a[i,j]:=random(13)-5; for i:=1 to 4 do Begin for j:=1 to 6 do write(a[i,j]:5); writeln; end; k:=0;s:=0; for i:=1 to 4 do for j:=1 to 6 do If i>j then Begin S:=S+a[i]; K:=k+1; End; d:=s/k; write (d); end.
Описание слайда:
Ответ Program massiv4; uses CRT; var a: array [1..4,1..6] of integer; k,s,i,j: integer; d: real; Begin clrscr; randomize; for i:=1 to 4 do for i:=1 to 6 do a[i,j]:=random(13)-5; for i:=1 to 4 do Begin for j:=1 to 6 do write(a[i,j]:5); writeln; end; k:=0;s:=0; for i:=1 to 4 do for j:=1 to 6 do If i>j then Begin S:=S+a[i]; K:=k+1; End; d:=s/k; write (d); end.

Слайд 22


Задача № 5 Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка (-5,7). Сосчитать количество элементов на побочной диагонали.
Описание слайда:
Задача № 5 Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка (-5,7). Сосчитать количество элементов на побочной диагонали.

Слайд 23


Ответ Program massiv5; uses CRT; var a: array [1..5,1..5] of integer; k,i,j: integer; Begin clrscr; randomize; for i:=1 to 5 do for i:=1 to 5 do a[i,j]:=random(13)-5; for i:=1 to 5 do Begin for j:=1 to 5 do write(a[i,j]:5); writeln; end; k:=0; for i:=1 to 5 do for j:=1 to 5 do If i+j=6 then K:=k+1; write (‘k=’,k); end.
Описание слайда:
Ответ Program massiv5; uses CRT; var a: array [1..5,1..5] of integer; k,i,j: integer; Begin clrscr; randomize; for i:=1 to 5 do for i:=1 to 5 do a[i,j]:=random(13)-5; for i:=1 to 5 do Begin for j:=1 to 5 do write(a[i,j]:5); writeln; end; k:=0; for i:=1 to 5 do for j:=1 to 5 do If i+j=6 then K:=k+1; write (‘k=’,k); end.

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию