PPt4Web Хостинг презентаций

Главная / Информатика / Методическое пособие по массивам
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

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

После чего скачивание начнётся автоматически!

Кнопки:

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


Скачать эту презентацию

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


Скачать эту презентацию

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

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

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

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

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

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

№ слайда 4 Program massiv1;uses CRT;var a: array [1..7] of integer;S,i: integer;Beginclrscr
Описание слайда:

Program massiv1;uses CRT;var a: array [1..7] of integer;S,i: integer;Beginclrscr;for i:=1 to 7 doread( a[i]);s:=0;for i:=1 to 7 doif a[i]<0 thens:=s+a[i];write(s);end.

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

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

№ слайда 6 Program massiv2;uses CRT;var a: array [1..8] of integer;P,i: integer;Beginclrscr
Описание слайда:

Program massiv2;uses CRT;var a: array [1..8] of integer;P,i: integer;Beginclrscr;for i:=1 to 8 doread( a[i]);P:=1;for i:=1 to 8 doif a[i]>0 thenp:=p*a[i];write(p);end.

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

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

№ слайда 8 Program massiv3;uses CRT;var a: array [1..10] of integer;k,i: integer;Beginclrsc
Описание слайда:

Program massiv3;uses CRT;var a: array [1..10] of integer;k,i: integer;Beginclrscr;for i:=1 to 10 doread( a[i]);k:=0;for i:=1 to 10 doif a[i]<0 then k:=k+1;write(k);end. 

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

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

№ слайда 10 Program Massiv;uses CRT;var a:array [1..10] of integer;i,k,s:integer;c:Real;Begi
Описание слайда:

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 Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемен
Описание слайда:

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

№ слайда 12 Program Massiv;uses CRT;var a:array [1..10] of integer;i,max,n:integer;Beginclrs
Описание слайда:

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 to 10 doIf a[i]>max thenBeginmax:=a[i];n:=i;end;write('n=',n);write('max=',max);end. 

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

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

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

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

№ слайда 15 Program massiv1;uses CRT;var a: array [1..5,1..6] of integer;I,j,p: integer;Begi
Описание слайда:

Program massiv1;uses CRT;var a: array [1..5,1..6] of integer;I,j,p: integer;Beginclrscr;for i:=1 to 5 dofor j:=1 to 6 do read( a[i,j]);clrscr;for i:=1 to 5 doBeginFor j:=1 to 6 dowrite(a[i,j:5);writeln;end.P:=1;for i:=1 to 5 dofor j:=1 to 6 doIf a[I,j] < 0 thenP:=P*a[i,j];write (‘p=’,p);end.

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

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

№ слайда 17 Program massiv2;uses CRT;var a: array [1..3,1..3] of integer;max,i,j: integer;Be
Описание слайда:

Program massiv2;uses CRT;var a: array [1..3,1..3] of integer;max,i,j: integer;Beginclrscr;Randomize;for i:=1 to 3 dofor i:=1 to 3 doa[i,j]:=random(13)-5;for i:=1 to 3 doBegin for j:=1 to 3 dowrite(a[i,j]:5);writeln;end;max:=a[1,2];for i:=1 to 3 dofor j:=1 to 3 doIf (i<j) and (a[i,j]>max) thenmax:=a[i,j];write (‘max=’,max);end.

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

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

№ слайда 19 Program massiv3;uses CRT;var a: array [1..4,1..5] of integer;s,i,j: integer;Begi
Описание слайда:

Program massiv3;uses CRT;var a: array [1..4,1..5] of integer;s,i,j: integer;Beginclrscr; randomize;for i:=1 to 4 dofor i:=1 to 5 doa[i,j]:=random(13)-5;for i:=1 to 4 doBegin for j:=1 to 5 dowrite(a[i,j]:5);writeln;end;S:=0;for i:=1 to 3 dofor j:=1 to 3 doIf i=j thens:=s+a[i,j];write (‘s=’,s);end.

№ слайда 20 Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка
Описание слайда:

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

№ слайда 21 Program massiv4;uses CRT;var a: array [1..4,1..6] of integer;k,s,i,j: integer;d:
Описание слайда:

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 4 dofor i:=1 to 6 doa[i,j]:=random(13)-5;for i:=1 to 4 doBegin for j:=1 to 6 dowrite(a[i,j]:5);writeln;end;k:=0;s:=0;for i:=1 to 4 dofor j:=1 to 6 doIf i>j thenBeginS:=S+a[i];K:=k+1;End;d:=s/k;write (d);end.

№ слайда 22 Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка
Описание слайда:

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

№ слайда 23 Program massiv5;uses CRT;var a: array [1..5,1..5] of integer;k,i,j: integer;Begi
Описание слайда:

Program massiv5;uses CRT;var a: array [1..5,1..5] of integer;k,i,j: integer;Beginclrscr;randomize;for i:=1 to 5 dofor i:=1 to 5 doa[i,j]:=random(13)-5;for i:=1 to 5 doBegin for j:=1 to 5 dowrite(a[i,j]:5);writeln;end;k:=0;for i:=1 to 5 dofor j:=1 to 5 doIf i+j=6 thenK:=k+1;write (‘k=’,k);end.

Скачать эту презентацию

Презентации по предмету
Презентации из категории
Лучшее на fresher.ru