Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Методические пособия по массивам

Содержание

Методическое пособие по одномерным массивамЗадача №1Задача №2Задача №3Задача № 4Задача № 5
Методическое пособие  по массивамОдномерные массивыДвухмерные массивы Методическое пособие по одномерным массивамЗадача №1Задача №2Задача №3Задача № 4Задача № 5 Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму отрицательных элементов. Ответ Program massiv1;uses CRT;var a: array [1..7] of integer;S,i: integer;Beginclrscr;for i:=1 to Задача № 2  Дан одномерный целочисленный массив из 8 элементов. Найдите произведение положительных элементов ОтветProgram massiv2;uses CRT;var a: array [1..8] of integer;P,i: integer;Beginclrscr;for i:=1 to 8 Задача № 3  Дан одномерный целочисленный массив из 10 элементов. Посчитайте количество отрицательных элементов. ОтветProgram massiv3;uses CRT;var a: array [1..10] of integer;k,i: integer;Beginclrscr;for i:=1 to 10 Задача №4  Дан одномерный целочисленный массив из 10 элементов. Найдите их среднее арифметическое. ОтветProgram Massiv;uses CRT;var a:array [1..10] of integer;i,k,s:integer;c:Real;Beginclrscr;for i:=1 to 10 doread(a[i]);s:=0;k:=0;for i:=1 to 10 doBegins:=s+a[i];k:=k+1;end;c:=s/k;write(c);end. Задача № 5  Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемент ОтветProgram Massiv;uses CRT;var a:array [1..10] of integer;i,max,n:integer;Beginclrscr;for i:=1 to 10 doread(a[i]);n:=1;max:=a[i];for i:=1 Методическое пособие по двухмерным массивамЗадача № 1Задача № 2Задача № 3Задача № 4Задача № 5 Задача № 1 Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры. ОтветProgram massiv1;uses CRT;var a: array [1..5,1..6] of integer;I,j,p: integer;Beginclrscr;for i:=1 to 5 Задача № 2Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из промежутка (-5,7). ОтветProgram massiv2;uses CRT;	var a: array [1..3,1..3] of integer;max,i,j: integer;Beginclrscr;Randomize;for i:=1 to 3 Задача № 3Дан двухмерный целочисленный массив 4х5.Заполнить случайными числами промежутка (-5,7). Найти ОтветProgram massiv3;uses CRT;	var a: array [1..4,1..5] of integer;s,i,j: integer;Beginclrscr; randomize;for i:=1 to Задача № 4Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка (-5,7). Найти ОтветProgram massiv4;uses CRT;	var a: array [1..4,1..6] of integer;k,s,i,j: integer;d: real;Beginclrscr;randomize;for i:=1 to Задача № 5Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка (-5,7). Сосчитать ОтветProgram massiv5;uses CRT;	var a: array [1..5,1..5] of integer;k,i,j: integer;Beginclrscr;randomize;for i:=1 to 5
Слайды презентации

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

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

№ 4
Задача № 5


Слайд 3 Задача № 1
Дан одномерный целочисленный массив из

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

7 элементов. Найдите сумму отрицательных элементов.


Слайд 4 Ответ
Program massiv1;
uses CRT;
var a: array [1..7] of

Ответ Program massiv1;uses CRT;var a: array [1..7] of integer;S,i: integer;Beginclrscr;for i:=1

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
Дан одномерный целочисленный массив

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


из 8 элементов.
Найдите произведение положительных элементов


Слайд 6 Ответ
Program massiv2;
uses CRT;
var a: array [1..8] of integer;
P,i:

ОтветProgram massiv2;uses CRT;var a: array [1..8] of integer;P,i: integer;Beginclrscr;for i:=1 to

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
Дан одномерный целочисленный массив

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

из 10 элементов. Посчитайте количество отрицательных элементов.



Слайд 8 Ответ
Program massiv3;
uses CRT;
var a: array [1..10] of integer;
k,i:

ОтветProgram massiv3;uses CRT;var a: array [1..10] of integer;k,i: integer;Beginclrscr;for i:=1 to

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
Дан одномерный целочисленный массив из

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

10 элементов. Найдите их среднее арифметическое.


Слайд 10 Ответ
Program Massiv;
uses CRT;
var a:array [1..10] of integer;
i,k,s:integer;
c:Real;
Begin
clrscr;
for i:=1

ОтветProgram Massiv;uses CRT;var a:array [1..10] of integer;i,k,s:integer;c:Real;Beginclrscr;for i:=1 to 10 doread(a[i]);s:=0;k:=0;for i:=1 to 10 doBegins:=s+a[i];k:=k+1;end;c:=s/k;write(c);end.

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
Дан одномерный целочисленный массив

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

из 10 элементов .Найдите максимальный элемент


Слайд 12 Ответ
Program Massiv;
uses CRT;
var a:array [1..10] of integer;
i,max,n:integer;
Begin
clrscr;
for i:=1

ОтветProgram Massiv;uses CRT;var a:array [1..10] of integer;i,max,n:integer;Beginclrscr;for i:=1 to 10 doread(a[i]);n:=1;max:=a[i];for

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
Задача №

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

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:

ОтветProgram massiv1;uses CRT;var a: array [1..5,1..6] of integer;I,j,p: integer;Beginclrscr;for i:=1 to

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.Заполнить случайными

Задача № 2Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из промежутка

числами из промежутка (-5,7). Найти максимальный элемент выше диагонали.


Слайд 17 Ответ
Program massiv2;
uses CRT;
var a: array [1..3,1..3] of integer;
max,i,j:

ОтветProgram massiv2;uses CRT;	var a: array [1..3,1..3] of integer;max,i,j: integer;Beginclrscr;Randomize;for i:=1 to

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 (imax) then
max:=a[i,j];
write (‘max=’,max);
end.



Слайд 18 Задача № 3
Дан двухмерный целочисленный массив 4х5.Заполнить случайными

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

числами промежутка (-5,7). Найти сумму элементов на главной диагонали

диагонали.

Слайд 19 Ответ
Program massiv3;
uses CRT;
var a: array [1..4,1..5] of integer;
s,i,j:

ОтветProgram massiv3;uses CRT;	var a: array [1..4,1..5] of integer;s,i,j: integer;Beginclrscr; randomize;for i:=1

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.Заполнить случайными

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

числами промежутка (-5,7). Найти среднее арифметическое элементов, стоящих ниже

главной диагонали.

Слайд 21 Ответ
Program massiv4;
uses CRT;
var a: array [1..4,1..6] of integer;
k,s,i,j:

ОтветProgram massiv4;uses CRT;	var a: array [1..4,1..6] of integer;k,s,i,j: integer;d: real;Beginclrscr;randomize;for i:=1

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Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка (-5,7).

числами промежутка (-5,7). Сосчитать количество элементов на побочной диагонали.


  • Имя файла: metodicheskie-posobiya-po-massivam.pptx
  • Количество просмотров: 99
  • Количество скачиваний: 0