Geum.ru



ГОТОВЫЕ ДИПЛОМНЫЕ РАБОТЫ, КУРСОВЫЕ РАБОТЫ, ДИССЕРТАЦИИ И РЕФЕРАТЫ

Обработка одномерных массивов.

Автор Ольга
Вуз (город) Москва
Количество страниц 6
Год сдачи 2008
Стоимость (руб.) 800
Содержание 1.1. Описание массивов на языке Турбо Паскаль;
Массив описывается в разделе переменных посредством указания типа его элементов и максимального их количества. Тип элементов может быть любым. При задании максимального числа элементов массива (числа ячеек таблицы) обычно употребляют диапазон целых чисел. Общий вид описания массива следующий:
VAR Имя массива : ARRAY[размерность] OF тип элементов ;
К имени массива предъявляются те же требования, что и к имени переменной.
Размерность - это диапазон целых чисел, каждое из которых является порядковым номером (индексом) одной из ячеек массива. Обычно диапазон индексов задают, начиная от единицы: [1..100]. Это удобно, но не обязательно. Важно лишь, чтобы правая граница диапазона была больше или равна левой границе.
Program Primer;
Const Max=100;
Var A:Array[1..50] of Real; {массив "А" состоит из 50-ти вещественных чисел}
B:Array[1..Max] of integer; {массив "В" состоит из ста целых чисел}
Mas:Array[1999..2000] of integer; {массив "Mas" состоит из 2-х целых чисел}
Mas2:Array[-700..-1] of Real; {массив "Mas2" состоит из 700 вещественных чисел}
...................................
При описании массивов, задавая числовые пределы изменения индексов, обычно указывают максимально возможное число элементов, которое может быть востребовано в данной программе; при этом допускается, что фактическое количество элементов может оказаться меньше, чем затребовано. Но если значение индекса элемента массива не входит в указанный при описании диапазон, это приведет к ошибке.
Список литературы 1.2. Ввод с клавиатуры и вывод на экран одномерных и двумерных массивов;

Вводить и выводить значения из массивов целесообразно поэлементно, используя в цикле операторы Readln, Write, Writeln и оператор присваивания.
Program Vvod_Vivod;
Var i:integer;
A:Array[1..20] of Real;
Begin
Writeln('Введите числа в массив: ');
FOR i:=1 TO 20 DO
begin Write('A[',i,']= '); Readln(A[i]) end;
FOR i:=1 TO 20 DO Writeln('A[',i,']=',A[i]:6:2);
Readln
End.

Для двумерных массивов:

Program Vvod_Vuvod2;
Var a:array[1..9,1..9] of real;
i,j:integer;
Begin;
writeln('Введите элементы из диапазона ');
for i:=1 to 9 do
for j:=1 to 9 do
write('A[',i,',',j,']='); readln(a[i,j]);
writeln('ВВЕДЕННАЯ МАТРИЦА:');
for i:=1 to 9 do
begin
for j:=1 to 9 do
write(a[i,j]:5:2,' ':3);
end;
end.
Выдержка из работы 1.3. Реализация алгоритмов вычисления суммы или произведения элементов массива, нахождения наибольшего или наименьшего элементов.

Вычисление суммы, произведения, наибольшего и наименьшего значений массива покажем в одной блок-схеме.
Обозначения в блок-схеме алгоритма:
A[n] – одномерный массив из n элементов (чисел);
i – счетчик элементов;
S – сумма элементов массива;
P – произведение элементов массива;
Amin – минимальный элемент массива;
Amax – максимальный элемент массива.

В алгоритме допущено, что массив уже введен;