Презентация на тему к уроку в 9 классе Массивы в Паскале

табличный.
Таблицы могут состоять из 1 строки (линейная):
а1

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

столбцы слева направо. Элемент, расположенных на i – том

месте линейной таблицы обозначается A [ i ]

Номер элемента

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

в памяти место под него. Для этого используется зарезервированное

слово array – массив:
Var
a:array[1..n] of integer;

Число элементов массива

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

массива (распечатка)
Выполнение условий задачи
Вывод результата

i:=1 to n do
Read(a[i]);
Writeln;
For i:=1 to n do
Write(a[i]:4);




Ввод элементов

массива

Вывод элементов массива

чисел.
Randomize;
Write(‘Введите число элементов’);
Read(n);
For i:=1 to n do begin
a[i]:=random(10);
Write(a[i]:4);
End;






Ввод
элементов

массива

Вывод элементов массива

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.

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] writeln;
write('Мин. элемент= ',min);
readkey;
end.

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.

в массиве.
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.

на 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.
В

одномерном массиве найти произведение ненулевых элементов.

массив случайными числами от 0 до 15 и вывести

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

В-2
Создать и напечатать одномерный массив случайными числами от 0 до 12 и вывести на экран те из них, которые меньше 7.
Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше первого элемента массива.
Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 8, то заменить их первыми числами.

Вывести все нечетные элементы массива
Найти сумму нечетных элементов этого

массива.
Найти количество нечетных элементов массива
Найти номер наименьшего элемента в массиве

Второй уровень сложности
Задан одномерный массив целых чисел. Найти сумму четных элементов массива, имеющих нечетные индексы.
Дан одномерный массив размерностью N, заполненный случайными числами. Каждый третий элемент массива возвести в квадрат, если элемент отрицательный. Измененный массив вывести на экран

Элементы, заданные, например, на интервале [-19, 26], описываются так: a[i]:= random(46)-19;

состоящая из нескольких строк и столбцов.
-1 3

-2 6
-4 0 5 -2
9 -8 3 2

Обозначение: a[i,j],
где i – номер строки,
j – номер столбца

var
a:array[1..n, 1..m] of integer;

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;

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.

Пример 1
В двумерном массиве увеличить элементы 2 столбца в 2 раза и напечатать полученный массив.

Цикл открываем только по строкам

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.

Пример 2
Найти сумму всех элементов двумерного массива, больших первого элемента этого массива.

равно числу столбцов, называется квадратной, и у нее имеются

главная и побочная диагонали.
а11 а12 а13 а14
а21 а22 а23 а24
а31 а32 а33 а34
а41 а42 а43 а44

Главная диагональ

Побочная
диагональ

под диаг.
i < n-j+1 – над диаг.
i = j
i

> j – под диаг.
i < j – над диаг.