- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Методические пособия по массивам
Содержание
- 2. Методическое пособие по одномерным массивамЗадача №1Задача №2Задача №3Задача № 4Задача № 5
- 3. Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму отрицательных элементов.
- 4. Ответ Program massiv1;uses CRT;var a: array [1..7]
- 5. Задача № 2 Дан одномерный целочисленный массив из 8 элементов. Найдите произведение положительных элементов
- 6. ОтветProgram massiv2;uses CRT;var a: array [1..8] of
- 7. Задача № 3 Дан одномерный целочисленный массив из 10 элементов. Посчитайте количество отрицательных элементов.
- 8. ОтветProgram massiv3;uses CRT;var a: array [1..10] of
- 9. Задача №4 Дан одномерный целочисленный массив из 10 элементов. Найдите их среднее арифметическое.
- 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.
- 11. Задача № 5 Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемент
- 12. ОтветProgram Massiv;uses CRT;var a:array [1..10] of integer;i,max,n:integer;Beginclrscr;for
- 13. Методическое пособие по двухмерным массивамЗадача № 1Задача № 2Задача № 3Задача № 4Задача № 5
- 14. Задача № 1 Дан двухмерный целочисленный массив
- 15. ОтветProgram massiv1;uses CRT;var a: array [1..5,1..6] of
- 16. Задача № 2Дан двухмерный целочисленный массив 3х3.Заполнить
- 17. ОтветProgram massiv2;uses CRT; var a: array [1..3,1..3] of
- 18. Задача № 3Дан двухмерный целочисленный массив 4х5.Заполнить
- 19. ОтветProgram massiv3;uses CRT; var a: array [1..4,1..5] of
- 20. Задача № 4Дан двухмерный целочисленный массив 4х6.Заполнить
- 21. ОтветProgram massiv4;uses CRT; var a: array [1..4,1..6] of
- 22. Задача № 5Дан двухмерный целочисленный массив 5х5.Заполнить
- 23. Скачать презентацию
- 24. Похожие презентации
Методическое пособие по одномерным массивамЗадача №1Задача №2Задача №3Задача № 4Задача № 5
![Ответ Program massiv1;uses CRT;var a: array [1..7] of integer;S,i: integer;Beginclrscr;for i:=1 to](/img/tmb/12/1159741/c2014b0c2478be74127a0f729ceb9438-720x.jpg "Методические пособия по массивам")
![ОтветProgram massiv2;uses CRT;var a: array [1..8] of integer;P,i: integer;Beginclrscr;for i:=1 to 8](/img/tmb/12/1159741/0ff33174288f199df7bf9ff6871b55b0-720x.jpg "Методические пособия по массивам")
![ОтветProgram massiv3;uses CRT;var a: array [1..10] of integer;k,i: integer;Beginclrscr;for i:=1 to 10](/img/tmb/12/1159741/c83d5d7fc1bd89d88c77ad5f39c1c0be-720x.jpg "Методические пособия по массивам")
![Ответ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.](/img/tmb/12/1159741/756e37ec265796a74ffed6117345be05-720x.jpg "Методические пособия по массивам")
![Ответ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](/img/tmb/12/1159741/69c5d42c4a819c58397572b098eb3d1d-720x.jpg "Методические пособия по массивам")
![ОтветProgram massiv1;uses CRT;var a: array [1..5,1..6] of integer;I,j,p: integer;Beginclrscr;for i:=1 to 5](/img/tmb/12/1159741/3f06ec2bcf40e4c45943b0b41a55eafd-720x.jpg "Методические пособия по массивам")
![ОтветProgram massiv2;uses CRT; var a: array [1..3,1..3] of integer;max,i,j: integer;Beginclrscr;Randomize;for i:=1 to 3](/img/tmb/12/1159741/2766d78b07d5488f3aa8f7915b9deb98-720x.jpg "Методические пособия по массивам")
![ОтветProgram massiv3;uses CRT; var a: array [1..4,1..5] of integer;s,i,j: integer;Beginclrscr; randomize;for i:=1 to](/img/tmb/12/1159741/0d1db968190404f3b79bbb155f0df912-720x.jpg "Методические пособия по массивам")
![Ответ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](/img/tmb/12/1159741/00d132c14e4890a1ad25b18bb6aa6818-720x.jpg "Методические пособия по массивам")
![ОтветProgram massiv5;uses CRT; var a: array [1..5,1..5] of integer;k,i,j: integer;Beginclrscr;randomize;for i:=1 to 5](/img/tmb/12/1159741/7957517f0d3eecfbea70ae65751af4cd-720x.jpg "Методические пособия по массивам")
Слайд 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 doif 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
doif 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
doif 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 doBegin
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
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
doa[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
doa[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.Заполнить случайными
