Презентация к уроку информатики на тему "Массивы. Язык программирования Pascal" 9 класс

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. В одномерном массиве найти произведение ненулевых элементов. " width="640"

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

В-1

В-2

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

• Создать и напечатать одномерный массив случайными числами от 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;

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;

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

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.

Пример 1

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

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

а 11 а 12 а 13 а 14

а 21 а 22 а 23 а 24

а 31 а 32 а 33 а 34

а 41 а 42 а 43 а 44

Побочная

диагональ

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

n-j+1 – под диаг. i а 11 а 12 а 13 а 14 а 21 а 22 а 23 а 24 а 31 а 32 а 33 а 34 а 41 а 42 а 43 а 44 Главная диагональ i = j i j – под диаг. i " width="640"

Побочная

диагональ

i = n-j+1

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

i

а 11 а 12 а 13 а 14

а 21 а 22 а 23 а 24

а 31 а 32 а 33 а 34

а 41 а 42 а 43 а 44

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

i = j

i j – под диаг.

i