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

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

Массивы в Pascal. Одномерные массивы, слайд №1

Массивы в Pascal. Одномерные массивы, слайд №2

Массивы в Pascal. Одномерные массивы, слайд №3

Массивы в Pascal. Одномерные массивы, слайд №4

Массивы в Pascal. Одномерные массивы, слайд №5

Массивы в Pascal. Одномерные массивы, слайд №6

Массивы в Pascal. Одномерные массивы, слайд №7

Массивы в Pascal. Одномерные массивы, слайд №8

Массивы в Pascal. Одномерные массивы, слайд №9

Массивы в Pascal. Одномерные массивы, слайд №10

Массивы в Pascal. Одномерные массивы, слайд №11

Массивы в Pascal. Одномерные массивы, слайд №12

Массивы в Pascal. Одномерные массивы, слайд №13

Массивы в Pascal. Одномерные массивы, слайд №14

Массивы в Pascal. Одномерные массивы, слайд №15

Массивы в Pascal. Одномерные массивы, слайд №16

Массивы в Pascal. Одномерные массивы, слайд №17

Массивы в Pascal. Одномерные массивы, слайд №18

Массивы в Pascal. Одномерные массивы, слайд №19

Массивы в Pascal. Одномерные массивы, слайд №20

Массивы в Pascal. Одномерные массивы, слайд №21

Массивы в Pascal. Одномерные массивы, слайд №22

Массивы в Pascal. Одномерные массивы, слайд №23

Содержание ▲

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

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

Слайд 1

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

Массивы в Pascal Одномерные массивы

Слайд 2

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

Массивы Один из самых распространенных способов организации данных – табличный. Таблицы могут состоять из 1 строки (линейная): а1 а2 а3 а4 и из нескольких строк и столбцов (прямоугольная): а11 а12 а13 а14 а21 а22 а23 а24 а31 а32 а33 а34 Массив – совокупность данных одного типа.

Слайд 3

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

Массивы Одномерные массивы Обозначаются массивы латинскими буквами, строки нумеруются сверху вниз, столбцы слева направо. Элемент, расположенных на i – том месте линейной таблицы обозначается A [ i ]

Слайд 4

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

Массивы Одномерные массивы Прежде чем использовать массив в программе необходимо зарезервировать в памяти место под него. Для этого используется зарезервированное слово array – массив: Var a:array[1..n] of integer;

Слайд 5

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

Алгоритм решения задач с использованием массивов: Описание массива Заполнение массива Вывод массива (распечатка) Выполнение условий задачи Вывод результата

Слайд 6

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

Способы задания элементов массива: Ввод с клавиатуры. Write(‘Введите число элементов’); Read(n); For i:=1 to n do Read(a[i]); Writeln; For i:=1 to n do Write(a[i]:4);

Слайд 7

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

Способы задания элементов массива: 2. С помощью генератора случайных чисел. Randomize; Write(‘Введите число элементов’); Read(n); For i:=1 to n do begin a[i]:=random(10); Write(a[i]:4); End;

Слайд 8

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

Пример 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); readkey; end.

Слайд 9

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

Пример 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]

Слайд 10

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

Пример 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); {вывод массива наоборот} readkey end.

Слайд 11

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

Пример 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); {вывод массива наоборот} readkey end.

Слайд 12

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

Пример 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; readkey end.

Слайд 13

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

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

Слайд 14

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

Самостоятельная работа. Генератор случайных чисел В-1 Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше 10. Создать и напечатать одномерный массив случайными числами от 0 до 10 и вывести на экран те из них, которые больше последнего элемента массива. Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 3, то заменить их последующими числами.

Слайд 15

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

Решение задач: Первый уровень сложности Задан одномерный массив целых чисел. Вывести все нечетные элементы массива Найти сумму нечетных элементов этого массива. Найти количество нечетных элементов массива Найти номер наименьшего элемента в массиве

Слайд 16

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

Массивы в Pascal Двумерные массивы

Слайд 17

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

Массивы Двумерные массивы Двумерный массив (матрица) – это прямоугольная таблица, состоящая из нескольких строк и столбцов. -1 3 -2 6 -4 0 5 -2 9 -8 3 2

Слайд 18

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

Задание элементов двумерного массива randomize; write(‘Введите число строк’); readln(n); writeln(‘Введите число столбцов’); readln(m); for i:=1 to n do for j:=1 to m do a[i,j]:=random(10); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); Writeln; end;

Слайд 19

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

program uvelich; program uvelich; uses crt; var a:array[1..10,1..10] of integer; n,m,i,j:integer; begin clrscr; randomize; writeln('Введите число строк'); read(n); writeln('Введите число столбцов'); read(m); for i:=1 to n do begin a[i,2]:=a[i,2]*2; end; writeln; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; readkey end.

Слайд 20

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

uses crt; uses crt; var a:array[1..10,1..10] of integer; n,m,i,j,s:integer; begin clrscr; randomize; writeln('Введите число строк'); read(n); writeln('Введите число столбцов'); read(m); for i:=1 to n do for j:=1 to m do a[i,j]:=random(10); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; for i:=1 to n do begin for j:=1 to m do if a[i,j]>a[1,1] then s:=s+a[i,j]; end; writeln; write('Сумма=',s); readkey end.

Слайд 21

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

Главная и побочная диагонали Матрица, у которой число строк равно числу столбцов, называется квадратной, и у нее имеются главная и побочная диагонали. а11 а12 а13 а14 а21 а22 а23 а24 а31 а32 а33 а34 а41 а42 а43 а44