Что будем делать?
Будущая программа должна принимать с клавиатуры очки, набранные командами, и распечатывать команды в порядке убывания этих чисел.
var T1, T2 : integer;
begin
readln (T1, T2);
if T1>T2
then begin
writeln (‘1.Динамо’);
writeln (‘2. Спартак’);
end;
else begin
writeln (‘1. Спартак’);
writeln (‘2. Динамо’);
end;
readln;
end.
Ввод и вывод массивов.
Обработка массивов.
Задание 1.
4
6
8
Задание 2.
Итоги урока.
Имя массива – это обычный идентификатор, его программист придумывает сам.
Диапазон для индексов – определяет допустимые номера элементов внутри массива.
Имя массива – это обычный идентификатор, его программист придумывает сам.
Диапазон для индексов – определяет допустимые номера элементов внутри массива.
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
Источники информации
Одномерные массивы в Паскале
Урок информатики и ИКТ в 9 классе
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть