МАССИВЫ Если работа программы связана с хранением и обработкой большого количества однотипных переменных, для их представления в программе можно использовать. - презентация

1 МАССИВЫ

2 Если работа программы связана с хранением и обработкой большого количества однотипных переменных, для их представления в программе можно использовать массивы. Массив представляет собой совокупность данных одного типа с общим для всех элементов именем. a: array [1..10] of real: Массив относится к структурированным типам данных ( упорядоченная совокупность данных ).

3 Элементы массива пронумерованы, и обратиться к каждому из них можно по номеру Номера элементов массива иначе называются индексами, а сами элементы массива переменными с индексами ( индексированными переменными ) Значение элементов массива а[3]=2, а а[7]=4, а[9]=6.

4 var Имя Массива : array[ Нижняя Граница.. Верхняя Граница ] of Тип Элементов ; var a: array[1..100] of real; { 100 элементов вещественные числа } b: array[0..50] of char; { 51 элемент символы } c: array[1..20] of integer; { 20 элементов целые числа }

5 program sadacha; var a:array [1..10] of real: I: integer; begin for i:=1 to 10 do readln(a[i]);

6 блок обработки массива : s:=0: for i:=1 to n do s:=s+a[i]; блок вывода результатов обработки : writeln(' сумма элементов равна ',s:4:2); readln; end.

7 Суммирование 1.1. Для нахождения суммы всех элементов : s:=0: for i:=1 to n do s:=s+a[i]; 1.2. Для нахождения суммы по условию : s:=0: for i:=1 to n do if условие поиска then s:=s+a[i];

8 2. Произведение элементов 2.1. Для нахождения произведения всех элементов : р :=1: for i:=1 to n do р := р *a[i]; 2.2. Для нахождения произведения по условию : р :=1: for i:=1 to n do if условие поиска then р := р *a[i];

9 Программа, вычисляющая сумму всех элементов массива program sadacha; var a:array [1..10] of real; s: real; i: integer; begin for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do s:=s+a[i]; Writeln('s=',s:4:2); readln; end.

10 Программа, определяющая наименьший элемент массива program sadacha; var a:array [1..15] of real; Min,s: real; i: integer; begin for i:=1 to 15 do readln(a[i]); for i:=1 to 15 do if a[i]