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

VAR
{30 строковых переменных с фамилиями учеников класса}
Names : ARRAY [1..30] OF string;

{30 байтовых переменных с оценками учеников этого класса}
Ratings : ARRAY [1..30] OF byte;

{16 целых переменных с очками, набранными командами в чемпионате}
ChampShip : ARRAY [1..16] OF integer;

Массив может быть составлен из элементов любого типа.

Преимущество заключается в том, что стоит лишь однажды объявить нужный нам тип, и его можно применять где угодно.

TYPE
{ тип для 30 строковых переменных с фамилиями учеников класса}
TNames = ARRAY [1..30] OF string;

{тип для 30 байтовых переменных с оценками учеников }
TRatings = ARRAY [1..30] OF byte;

{ тип для 16 целых переменных с очками, набранными командами в чемпионате}
TChampionShip = ARRAY [1..16] OF integer;

Для доступа к элементу массива необходимо указать его индекс, то есть порядковый номер в массиве.

Пример 1. Трем элементам массива Names присваиваются фамилии хоккеистов.
Names[1] :=’Петров‘;
Names[2] :=’Михайлов‘;
Names[3] :=’Харламов‘;

Пример 2. Сравниваются третий и четвертый элемент массива Ratings.
i:= 3;
if Ratings[i] > Ratings[i+1] then … else …;

Алгоритм ввода массива с использованием безусловного цикла

Вывод массива организуется аналогично вводу.

Program Temperature;
{Ввод массива среднемесячных температур. Вычисление среднегодовой температуры}
Var T: array[1..12] of real; {Описание одномерного массива}
I: integer; Tsred: real;
Begin
for I:=1 to 12 step 1 do begin {Цикл ввода}
Write('T[',I:2,']=');
Readln(T[I]);
End;
Tsred:=0; {Цикл суммирования}
for I:=1 to 12 do
Tsred:=Tsred+T[I];
Tsred:=Tsred/12; {Вычисление средней температуры}
Writeln('Среднегодовая температура', Tsred:6:2,' гр-в')
End.

1) c [4]:=10

2) c[2]:=3;
c[4]:=c[2]*2;

3) a[1]:= -10;
b[2]:=10;
c[4]:=a[1]+b[2];

4) c[4]:=3;
c[4]:=c[4]+1;

5) a[4]:=100;
b[4]:=0;
c[4]:=a[4]/b[4]

6) for i:=1 to 5 do c[i]:=50;

7) for i:=1 to 5 do c[i]:=50;
for i:=1 to 5 do c[i]:=c[i]-10;

1) c [4]:=10

10

2) c[2]:=3;
c[4]:=c[2]*2;

6

3) a[1]:= -10;
b[2]:=10;
c[4]:=a[1]+b[2];

0

4) c[4]:=3;
c[4]:=c[4]+1;

4

5) a[4]:=100;
b[4]:=0;
c[4]:=a[4]/b[4]

ошибка

6) for i:=1 to 5 do c[i]:=50;

50

7) for i:=1 to 5 do c[i]:=50;
for i:=1 to 5 do c[i]:=c[i]-10;

40

Решение:
program pr1;
var a: array [1..5] of integer;
max,i: integer;
begin
for i:=1 to 5 do readln(a[i]);
max:=a[1];
for i:=2 to 5 do if a[i]>max then max:=a[i];
writeln('максимальный элемент: ', max);
readln;
end.

Переделать данную программу так, чтобы определить минимальный элемент массива.

Решение:
program pr1;
var a: array [1..5] of integer;
min, I: integer;
begin
for i:=1 to 5 do readln(a[i]);
min:=a[1];
for i:=2 to 5 do if a[i] < min then min:=a[i];
writeln(‘минимальный элемент: ', min);
readln;
end.