Язык программирования Паскаль 9 часть

Массивы

В языках программирования подобные типы данных описываются с помощью массивов. это набор однотипных данных, к которым можно обратиться с помощью единственного имени Каждое значение в массиве называется элементом. Номер элемента в списке называется индексом. Элементы представляют собой символьные или числовые значения, которые можно использовать в выражениях ЯП ПАСКАЛЬ

В качестве иллюстрации можете представить себе шкаф, имеющий множество нумерованных ящиков. Шкаф – это массив. Ящики – это индексы. Содержимое ящиков – элементы массива. Доступ к содержимому конкретного ящика (элемента массива) осуществляется после указания шкафа –имени массива – и номера ящика – индекса массива Шкаф

Чтобы представить себе двумерный массив, вспомните зрительный зал кинотеатра. Название кинотеатра – имя массива. Ряд, место - индексы. Человек на определенном месте – элемент массива.

A массив A[1] A[2] A[3] A[4] A[5] A[2] =10 НОМЕР (ИНДЕКС) элемента массива: 2 ЗНАЧЕНИЕ элемента массива: 10

Var имя_массива : array [ размер ] of тип_элементов; Размер: [начальный_индекс.. конечный_индекс ] [1..5 ] [ ] [ ] [нач_индекс.. конечн_индекс, нач_индекс.. конечн_индекс ] Например, Var Name : array [1..30] of string; Temperature : array [1..31] of real; Kino : array [1..25, 1..40] of string; Количество столбцов Количество строк

Заполнение массивов - с клавиатуры; - с помощью датчика случайных чисел; - с помощью формулы.

Заполнение массивов Пример Заполнить массив А с клавиатуры for i:=1 to 5 do begin write('a[', i, ']='); read ( a[i] ); end; for i:=1 to 5 do begin write('a[', i, ']='); read ( a[i] ); end; с клавиатуры

Число из интервала [0, M-1] random (М) Заполнение массива случайными числами for i:=1 to 10 do begin a[i]:=random(101); {числа от 1 до 100} end; Вещественное число от 0 до 1 random

Заполнение массива с помощью формулы Пример: Заполнить одномерный массив из 10 чисел по формуле b[i]:=i*3. var b: array [1..10] of integer; i: integer; begin for i:=1 to 10 do b[i]:=i*3; end;

Вывод массива writeln('Массив А:'); For i:=1 to 3 do write (А[i]:4); End; Для одномерного массива А из 3 элементов:

Написать программу, которая сначала должна обеспечить ввод 5 чисел в одномерный массив, затем вычислить их сумму и вывести ее на экран. Начало i:=1, 5 Ввести m[i] Sum:=0 i:=1, 5 Sum:=sum+m[i] Вывести Sum Конец

Program Sum_mas; Var i: integer; Sum : real; M : array [1..5] of Real; begin For i:=1 to 5 do begin write ('m[',i,']='); readln(m[i]); end; sum:=0; For i:=1 to 5 do Sum:=sum+m[i]; Writeln ('Sum=',sum:6:2); readln; end.

Задание: Опишите на языке программирования Pascal алгоритм получения из заданного целочисленного массива размером 30 элементов другого массива, который будет содержать модули значений элементов первого массива.

var a,b:array[1..30] of integer; i:integer; begin for i:=1 to 30 do begin write('a[',i,']='); read(a[i]); end;

for i:=1 to 30 do if a[i]

Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then max:=a[i]; writeln; write(наибольший элемент массива =,max); readlnend. Максимальный элемент

Домашнее задание 1) Написать программу, которая вычисляет среднее арифметическое элементов массива М[1..10], элементы которого вычисляются по формуле: М[i]=2*i*sqr(i).