Массивы. Одномерные массивы - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

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

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

Слайд 1

Описание слайда:

Слайд 2

Описание слайда:

Слайд 3

Описание слайда:

Слайд 4

Описание слайда:

Слайд 5

Описание слайда:

Слайд 6

Описание слайда:

Слайд 7

Описание слайда:

Слайд 8

Описание слайда:

Слайд 9

Описание слайда:

Печать линейного массива.

Слайд 10

Описание слайда:

Слайд 11

Описание слайда:

План программы для работы с массивами.

Слайд 12

Описание слайда:

Слайд 13

Описание слайда:

Слайд 14

Описание слайда:

Пример 1 В одномерном массиве посчитать сумму положительных элементов program sum; uses crt; var a:array[1..10] of integer; i,n,s:integer; begin clrscr; write('Введите число элементов'); read(n); for i:=1 to n do read(a[i]); for i:=1 to n do begin write(a[i]:4); if a[i]>0 then s:=s+a[i]; end; gotoxy(5,10); {вывод в позиция экрана для ТР} write('s= ',s); end.

Слайд 15

Описание слайда:

Пример 2 В одномерном массиве вычислить минимальный элемент program minimum; uses crt; var a:array[1..10] of integer; i,n,min:integer; begin clrscr; write('Введите число элементов'); read(n); for i:=1 to n do read(a[i]); writeln; for i:=1 to n do write(a[i]:4); min:=a[1]; for i:=2 to n do if a[i]

Слайд 16

Описание слайда:

Пример 3 Дан массив целых чисел. Записать его наоборот program massiv; uses crt; var a:array[1..10] of integer;{описание массива} i,n:integer; begin clrscr; randomize; {генератор случайных чисел} write('Введите число элементов'); read(n); for i:=1 to n do begin a[i]:=random(10); {заполнение массива} write(a[i]:4); {вывод массива} end; writeln;{переход на след. строку} for i:=n downto 1 do write(a[i]:4); {вывод массива наоборот} end.

Слайд 17

Описание слайда:

Пример 4 Определить, сколько пар одинаковых соседних элементов содержится в массиве. program massiv; uses crt; var a:array[1..10] of integer;{описание массива} i,n,s:integer; begin clrscr; randomize; {генератор случайных чисел} write('Введите число элементов'); read(n); for i:=1 to n do begin a[i]:=random(10); {заполнение массива} write(a[i]:4); {вывод массива} end; writeln;{переход на след. строку} for i:=1 to n do if a[i]=a[i+1] then s:=s+1; write('s=',s); {вывод массива наоборот} end.

Слайд 18

Описание слайда:

Пример 5 В одномерном массиве заменить все нулевые элементы на 10 program massiv; uses crt; var a:array[1..10] of integer;{описание массива} i,n,s:integer; begin clrscr; randomize; {генератор случайных чисел} write('Введите число элементов'); read(n); for i:=1 to n do begin a[i]:=random(10); {заполнение массива} write(a[i]:4); {вывод массива} end; writeln;{переход на след. строку} for i:=1 to n do begin if a[i]=0 then a[i]:=10; write(a[i]:4); {вывод массива наоборот} end; end.

Слайд 19

Описание слайда:

Самостоятельно: В одномерном массиве найти разность наибольшего и наименьшего элементов. Дан одномерный массив. Вывести на экран числа > 5. В одномерном массиве найти произведение ненулевых элементов.