§ Массивы. Определение
| Вид материала | Лекция |
СодержаниеПример. Найти сумму значений элементов массива. |
- Лекции раздел I массивы, 23.1kb.
- Краткий курс лекций "Основы программирования на языке Паскаль", 291.49kb.
- Лекция 11. Массивы языка C# Общий взгляд на массивы. Сравнение с массивами C++. Почему, 195.36kb.
- Двумерные массивы, 69.42kb.
- Адреса и указатели. Операции получения адреса и косвенной адресации. Отождествление, 82.09kb.
- Адреса и указатели. Операции получения адреса и косвенной адресации. Отождествление, 124.21kb.
- Конспект по теме: Двумерные массивы Учитель информатики Батракова, 97.71kb.
- Двумерные массивы, 90.55kb.
- Тема: Массивы, 422.12kb.
- Методические рекомендаци по решению задач на массивы Массивы. Некоторые теоретические, 194.32kb.
Лекция № 8.
§ 8. Массивы.
Определение: массив – это объединение в одно множество нескольких переменных одинакового типа, каждая из которых получает уникальный номер.
Определение: переменные, составляющие массив, называются элементами массива.
Определение: номер элемента массива называется индексом.
Замечание: все элементы массива имеют имена, совпадающие с именем массива, но различаются индексами.
Формат: ИмяМассива: array [ ДиапазонИндексов ] of ТипЭлементов;
Пример.
PROGRAM Arrays;
VAR
IntMas: array [1..10] of integer;
RealMas: array [0..100] of real;
StrMas: array [5..7] of string;
BoolMas: array [-10..-1] of boolean;
BEGIN
i := 1;
while (i <= 10) do
begin
IntMas[i] := 0;
i := i + 1;
end;
i := -10;
while (i <= -1) do
begin
BoolMas[i] := FALSE;
i := i + 1;
end;
И так далее…
END.
Пример.
Найти сумму значений элементов массива.
PROGRAM SummaMas;
CONST
N = 3;
VAR
S, i: integer;
Mas: array [1..N] of integer;
BEGIN
i := 1;
while (i <= N) do
begin
Write(’Введи элемент: ’); ReadLn(Mas[i]);
i := i + 1;
end;
S := 0;
i := 1; <- Зачем???
while (i <= N) do
begin
S := S + Mas[i];
i := i + 1;
end;
WriteLn(’Сумма равна ->’, S);
END.
Пример.
Найти минимальный элемент массива и его номер.
PROGRAM Minimum;
CONST
N = 4;
VAR
i, Min, MinNo: integer;
Mas: array [1..N] of integer;
BEGIN
i := 1;
while (i <= N) do
begin
Write(’Введи ’, i, ’-й элемент: ’); ReadLn(Mas[i]);
i := i + 1;
end;
Min := Mas[1];
MinNo := 1;
i := 2;
while (i <= N) do
begin
if (Mas[i] < Min) then
begin
Min := Mas[i];
MinNo := i;
end;
end;
WriteLn(’Номер минимального элемента: ’, MinNo);
WriteLn(’Значение минимального элемента: ’, Min);
END.