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

НОД (32;24) по алгоритму Евклида
Задание 2, 3 стр. 105

Проверка домашнего задания:

2 3) 16
В операторе присваивания summa := sqr(x)+3*a переменными являются
1) a, x, summa
2) x, a
3) sqr,x,a
4) summa, sqr, x, a
Оператор цикла с предусловием
1) Repeat… until
2) While…do
3) For … to…do
4) If…then…else

Тест:

урока:

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

в памяти рядом.
Особенности:
все элементы имеют один тип
весь массив имеет одно имя
все элементы расположены в памяти рядом
Примеры:
список учеников в классе
квартиры в доме
школы в городе
данные о температуре воздуха за год

10

A[5]:=3;

3

в памяти
Массив целых чисел:


Размер через константу:

имя

начальный индекс

конечный индекс

тип
элементов

var A: array[1.. ] of integer;

const N=5;

N

var A : array[ 1 .. 5 ] of integer ;

Y: array [1..10] of real;

var Q: array [0..9] of real;

var A: array ['A'..'Z'] of real;
B: array [False..True] of integer;
...
A['C'] := 3.14259*A['B'];
B[False] := B[False] + 1;

['z'..'a'] of integer;
...
A['B'] := 15;

A['b']

['a'..'z']

var a: array [0..9] of integer;
...
A[10] := 'X';

n,i: integer;

WriteLn('Введите кол-во элементов массива:');
ReadLn(n);
for i:=1 to n do begin
write('a[', i, ']=');
readln ( a[i] );
end;

a[1] =
a[2] =
a[3] =
a[4] =
a[5] =

5
12
34
56
13

for i:=1 to n do
a[i]:=a[i]*2;

writeln('Массив A:');
for i:=1 to n do write(a[i]:4);

Массив A:
10 24 68 112 26

:= 1, 12

вывод ” T [ i ] = ”

ввод T [ i ]

var имя массива : array [ нижняя граница индекса . . верхняя граница индекса ] of тип массива ;

PROGRAM

VAR

READLN

:

INTEGER

T

(

)

FOR

TO

Temperature

;

T [ i ]

;

END

.

:=

i

1

12

DO

BEGIN

WRITE

(

)

’ T [ ’ , i : 2, ’ ] = ’

:

ARRAY

[ 1 . . 12 ]

OF

REAL

i

;

BEGIN

END

;

;

1,12

вывод ” T [ i ] =”

ввод T [ i ]

PROGRAM

VAR

READLN

:

INTEGER

T

(

)

FOR

TO

Temperature

;

T [ i ]

;

END

.

:=

i

1

12

DO

BEGIN

WRITE

(

)

’ T [ ’ , i : 2, ’ ] = ’

:

ARRAY

[ 1 . . 12 ]

OF

REAL

i

;

BEGIN

END

;

;

;

:

Tsred

;

REAL

:=

0

;

Tsred

FOR

TO

:=

i

1

12

DO

:=

;

Tsred

Tsred +

T [ i ]

:=

Tsred

Tsred /12

;

WRITELN

(

)

’ Среднегодовая температура = ’ ,

Tsred : 6 : 2 ,

’ градусов ’

Tsred := 0

i := 1,12

Tsred := Tsred + T[i]

Tsred := Tsred / 12

вывод Tsred

элементов
Элемент с индексом 3
Сумму элементов с четными индексами
Сумму элементов с нечетными индексами
A[2]+A[4]
A[4]-A[1]
A[2]/A[3]
(A[3]*A[1])/A[5]
A[A[2]]
A[A[2]+1]

Задан массив А = (1,4,2,5,3) Найти:

1

5

3

3

3

2

9

6

9

4

2

2/3

5

3

2 и вывести на экран.
Пример:
Введите пять чисел:
4 15 3 10 14
Результат: 8 30 6 20 28
«4»: Ввести c клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива.
Пример:
Введите пять чисел:
4 15 3 10 14
среднее арифметическое 9.200

них.
Пример:
Введите пять чисел:
4 15 3 10 14
минимальный элемент 3