Линейные массивы. Описание типа

Дли описания массива предназначено словосочетание

Array [нач.индекс.. конечный индекс ] of < Тип компонент>

Многомерные массивы. Двухмерные массивы – матрицы.

Если в качестве базового типа взят другой массив, образуется структура, которую принято называть многомерным массивом.

Упорядочивание по возрастанию элементов массива из 20 целых величин.

Для сортировки будем использовать метод выбора. Алгоритм состоит в том, что сначала выбирается наименьший элемент массива и меняется местами с первым элементом, затем просматриваются элементы, начиная со второго, и наименьший из них меняется местами со вторым элементом, и так далее n – 1 раз. На последнем проходе цикла при необходимости меняются местами предпоследний и последний элементы массива.

Вариант 9

1. Напишите программу, которая вводит с клавиатуры 20 дробных чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее арифметическое элементов с четными индексами, и среднее арифметическое элементов с нечётными номерами. Результат выдаётся на экран пользователя.

(Написать 2 варианта программы – ввод чисел с клавиатуры и заполнение массива случайным образом с выводом массива и результатов).

Тело программы(ввод с клавиатуры):

Program z2;

Var

mas: array [1..20] of integer;

a, c, e, k, l, g: integer; d, r: real;

Begin

c: =0;

for a: =1 to 20 do

Begin

writeln('введите число');

readln(mas[a]);

c: =c+mas[a];

if mas[a] mod 2=0 then

Begin

e: =e+mas[a];

k: =k+1;

r: =e/k;

end;

if mas[a] mod 2> 0 then

l: = l+mas[a];

g: =g+1;

d: =l/g;

end;

writeln('среднее арифметическое элементов с нечетными номерами ', r);

writeln('среднее арифметическое элементов с чётными индексами ', d);

end.

Блок-схема:

Тело программы(рандом):

Program z2;

Var

mas: array [1..20] of integer;

a, c, e, k, l, g: integer; d, r: real;

Begin

c: =0;

for a: =1 to 20 do

Begin

mas[a]: =random(20);

write (mas[a], ' ');

if mas[a] mod 2=0 then

Begin

e: =e+mas[a];

k: =k+1;

r: =e/k;

end;

if mas[a] mod 2> 0 then

l: = l+mas[a];

g: =g+1;

d: =l/g;

end;

writeln('среднее арифметическое элементов с нечетными номерами ', r);

writeln('среднее арифметическое элементов с чётными индексами ', d);

end.

Блок-схема:

Тело программы(упорядоченный):

Program z2;

Var

mas: array [1..20] of integer;

a, c, e, k, l, g: integer; d, r: real;

Begin

c: =0;

for a: =1 to 20 do

Begin

mas[a]: =random(20);

write (mas[a], ' ');

if mas[a] mod 2=0 then

Begin

e: =e+mas[a];

k: =k+1;

r: =e/k;

end;

if mas[a] mod 2> 0 then

l: = l+mas[a];

g: =g+1;

d: =l/g;

end;

writeln('среднее арифметическое элементов с нечетными номерами ', r);

writeln('среднее арифметическое элементов с чётными индексами ', d);

end.

Блок-схема:

Лабораторная работа №10

«Расчет отметок проектной линии на вертикальной выпуклой или вогнутой кривой»

1. Цель лабораторной работы: научиться на практике использовать массивы и операторы циклов на примере разработки программы для расчета отметок проектной линии на вертикальной кривой, использовать процедуры модуля CRT для вывода на экран результатов в табличной форме.