Рабочие листы
к вашим урокам
Скачать
1 слайд
Методическое пособие
по массивам
Одномерные массивы
Двухмерные массивы
2 слайд
Методическое пособие по одномерным массивам
Задача №1
Задача №2
Задача №3
Задача № 4
Задача № 5
3 слайд
Задача № 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.
5 слайд
Задача № 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.
7 слайд
Задача № 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.
9 слайд
Задача №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.
11 слайд
Задача № 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.
13 слайд
Методическое пособие по двухмерным массивам
Задача № 1
Задача № 2
Задача № 3
Задача № 4
Задача № 5
14 слайд
Задача № 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.
16 слайд
Задача № 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.
18 слайд
Задача № 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.
20 слайд
Задача № 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.
22 слайд
Задача № 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.
Рабочие листы
к вашим урокам
Скачать
6 626 191 материал в базе
Настоящий материал опубликован пользователем Новгородова Ольга Тимофеевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
600 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
4 ч.
Мини-курс
6 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.