Часть 1. Вычислить значения 30 элементов одномерного целочисленного массива F в интервале (-7,8) с использованием генератора случайных чисел.

Часть 2. Вычислить сумму положительных элементов третьей четверти массива

где […] – округление до целого.

Часть 3. Определить наибольший элемент среди нечетных по номеру элементов второй трети массива.

 

Часть 4. Упорядочить нечетные по номеру элементы второй половины массива по убыванию квадратов значений.

 

3.2. Алгоритм решения

 

3.2.1. Структура алгоритма

 

Алгоритм состоит из основного алгоритма (для основной программы) и вспомогательных алгоритмов (для подпрограмм) для решения задач:

- вычисление вектора – процедура vector (n,a,b,f);

- вычисление параметра вектора – функция sum (n,f);

- определение параметра вектора – функция max (n,f);

- сортировка массива – процедура porjadok (n,f);

где n – размерность вектора, a,b – интервал значений элементов вектора (a,b вводится при запуске программы);

F – вектор из n элементов.

Кроме того используется процедура вывода: вектора – writevect (n,k,f);

k – число выводимых строк.

 

 

Алгоритм основной программы

 

 

 

vector (n,a,b,f)

s=sum(n,f)

mx=max(n,f)

 

 

	porjadok (n,f)

 

 

Таблица переменных

 

Имя	Тип	Назначение	Параметр
n	целый	размерность	глобальный
a,b	интервал
f[1..n]	вектор
s	сумма
mx	максимум

 

begin

clrscr;

write('Введите размерность вектора');readln(n);

write('Интервал значений от ');read(a);

write('до ');readln(b);

writeln;writeln(' ':25,’Исходные данные’);

writeln('Размерность вектора n = ',n);

writeln('Интервал [',a,',',b,']');writeln;

writeln(' ':26,'Результаты расчета');

randomize;

writeln('-----------------Часть 1---------------------');

writeln(‘Вектор F из ‘,n,’ элементов в интервале [‘,a,’,’,b,’], полученных’);

writeln(‘при помощи генератора случайных чисел’);

vector(n,a,b,f);

writevect(n,4,f);

writeln('-----------------Часть 2---------------------');

writeln('Сумма положительных элементов третьей четверти вектора');

s:=sum(n,f); writeln(‘ s=’,s);

writeln('-----------------Часть 3---------------------');

writeln('Наибольший элемент второй трети среди нечетных по номеру');

writevect(n,3,f);

mx:=max(n,f);writeln(‘ mx=’,mx);

writeln('-----------------Часть 4---------------------');

writeln(‘Вектор F с упорядоченными по убыванию квадратов значений’);

writeln(‘нечетными по номеру элементами второй половины’);

porjadok(n,f);

writevect(n,2,f);

writeln('---------------Конец задачи----------------');

end.

 

Алгоритмы подпрограмм

 

Получение элементов вектора

	Вычислить значения 30 элементов одномерного целочисленного массива F в интервале (-7, 8) с использованием генератора случайных чисел

 

Алгоритм процедуры vector

 

n, a, b

f[i..n]

Таблица переменных

Имя	Тип	Назначение	Параметр
n	целый	размерность	формальный
i	параметр цикла	локальный
a, b	интервал	формальный
f[1..n]	вектор

 

procedure vector(n,a,b:integer;var f:vect);

var i:integer;

begin

for i:=1 to n do f[i]:=round((b-a)*random(100)/100+a);

end;