🗊Презентация Массивы в 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 Одномерные массивы
Описание слайда:
Массивы в Pascal Одномерные массивы

Слайд 2


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

Слайд 3


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

Слайд 4


Массивы Одномерные массивы Прежде чем использовать массив в программе необходимо зарезервировать в памяти место под него. Для этого используется зарезервированное слово array – массив: Var a:array[1..n] of integer;
Описание слайда:
Массивы Одномерные массивы Прежде чем использовать массив в программе необходимо зарезервировать в памяти место под него. Для этого используется зарезервированное слово 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);
Описание слайда:
Способы задания элементов массива: Ввод с клавиатуры. 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;
Описание слайда:
Способы задания элементов массива: 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.
Описание слайда:
Пример 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]<min then min:=a[i]; writeln; write('Мин. элемент= ',min); readkey; end.
Описание слайда:
Пример 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]<min then min:=a[i]; writeln; write('Мин. элемент= ',min); readkey; end.

Слайд 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.
Описание слайда:
Пример 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.
Описание слайда:
Пример 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.
Описание слайда:
Пример 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. В одномерном массиве найти произведение ненулевых элементов.
Описание слайда:
Самостоятельно: В одномерном массиве найти разность наибольшего и наименьшего элементов. Дан одномерный массив. Вывести на экран числа > 5. В одномерном массиве найти произведение ненулевых элементов.

Слайд 14


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

Слайд 15


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

Слайд 16


Массивы в Pascal Двумерные массивы
Описание слайда:
Массивы в Pascal Двумерные массивы

Слайд 17


Массивы Двумерные массивы Двумерный массив (матрица) – это прямоугольная таблица, состоящая из нескольких строк и столбцов. -1 3 -2 6 -4 0 5 -2 9 -8 3 2
Описание слайда:
Массивы Двумерные массивы Двумерный массив (матрица) – это прямоугольная таблица, состоящая из нескольких строк и столбцов. -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;
Описание слайда:
Задание элементов двумерного массива 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.
Описание слайда:
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.
Описание слайда:
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
Описание слайда:
Главная и побочная диагонали Матрица, у которой число строк равно числу столбцов, называется квадратной, и у нее имеются главная и побочная диагонали. а11 а12 а13 а14 а21 а22 а23 а24 а31 а32 а33 а34 а41 а42 а43 а44

Слайд 22


Квадратная матрица
Описание слайда:
Квадратная матрица

Слайд 23


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

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию