Одномерные массивы в Паскале

Одномерные массивы в Паскале

Автор: учитель информатики и ИКТ

МБОУ Савинская СОШ

Панина Ольга Васильевна

Массивы.

Лесной массив

Горный массив

Массивы.

Рассмотрим жилой массив :

Улица Мира дом №1 –

Ивановы

Улица Мира дом №2 –

Степановы

Улица Мира дом №3 –

.

Петровы

.

.

Улица Мира дом №10 –

Ивановы

Ответьте на вопросы.

Кто живет по адресу: улица Мира дом №2?

По какому адресу живут Ивановы?

Рассмотрим числовой массив :

М

5

-4

0,3

0

7

1

3

12

5

8

2

1 2 3 4 5 6 7 8 9 10 11

Выполните задание в тетради

число

0

адрес

1

5

7

М [ 4 ]

М [ 6 ]

, М [ 9 ]

М [ 1 ]

М [ 5 ]

Задание

• Массив – это упорядоченный набор однотипных элементов, имеющий общее имя.

• Чтобы осуществить доступ к конкретному данному в массиве необходимо указать имя массива, а в скобках индекс( порядковый номер).
• Прежде чем воспользоваться массивом для решения задач необходимо его построить, т.е.:

• описать тип и указать количество элементов массива,

например: VAR М :array[1..1 1 ] of real ;

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

Программа построения одномерного массива

PROGRAM PM ;

VAR М :array[1..1 1 ] of real , I: integer;

Begin

FOR I:=1 TO 1 1 DO

b egin

WRITE(’ введи T[‘,I,’] = ‘) ;

READLN (T[I]);

end;

End .

Программа нахождения количества месяцев в году с отрицательной температурой

PROGRAM temperature ;

VAR T:array[1..1 2 ] of real , I: integer;

Begin

FOR I:=1 TO 12 DO

b egin

WRITE(’ введи T[‘,I,’] = ‘) ;

READLN (T[I]);

end;

K:=0;

FOR I:=1 TO 12 DO

IF T[I]

WRITELN(’ число месяцев с отрицательной

температурой — ‘,K) ;

READLN

END.

K,

Программа построения одномерного массива помощью функции случайного числа

PROGRAM PM 2;

VAR М : array[1.. 20 ] of real , I: integer;

randomize;

Begin

FOR I:=1 TO 2 0 DO

Begin

M[I] : = RANDOM(50);

WRITE (M[I]: 4) ;

end;

END.

Программа нахождения в массиве заданного числа х

PROGRAM PM 2;

VAR М : array[1.. 20 ] of real , I: integer;

RANDOMIZE;

Begin

FOR I:=1 TO 2 0 DO

b egin

M[I] : = RANDOM(50);

WRITE(M[I]:4 ) ;

end;

WRITELN(‘ введи число ’ ) ; READLN (x);

K:=0;

FOR I:=1 TO 20 DO

IF М [I] =Х THEN K:=K+1;

WRITELN(’ число ’, x,’ встретилось в массиве ’, K, ’ раз ’) ;

READLN

END.

K, х,

1вариант

В массиве L (10) ( ввод чисел с клавиатуры ) найти сумму положительных элементов .

2 вариант

В массиве К(15) ( интервал ввода чисел [ 0;30) )

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