Задание. Составить блок-схему алгоритма и программу решения поставленной задачи, которая в соответствии с исходными данными вычисляет значения заданных выражений.
Пример. Составить алгоритм и программу формирования массива Y на основе исходного массива Х размерностью N. Определить максимальный положительный элемент массива Y. Элементы массива Y вычисляются по формуле:
Программа на языке Турбо Паскаль:
Program Pr5;
Var x, y: array [1..20] of real;
i, N, imax: byte;
Begin
Write(‘Ввод N’); Readln(N);
for i:=1 to N do begin
Write(‘Ввод x[’, i, ’] =’); Readln(x[i]);
end;
imax:= 0;
for i:=1 to N do begin
if x[i] >= 0 then y[i]:= 1+exp(0.5*x[i])
else
if 1+x[i] <> 0 then y[i]:= 1/(1+x[i])
else begin writeln(‘Аномалия’); y[i]:= 0
end;
writeln(‘y[‘, i, ’]=’, y[i]: 6: 2);
if y[i] > 0 then
if imax = 0 then imax:= i
else if y[imax] < y[i] then imax:= i;
end;
writeln(‘y[’, imax, ‘]=’, y[imax]: 6: 2);
End.
Блок-схема алгоритма:
Варианты заданий.
№ п/п | Модель | Исходные данные | Выводимые данные |
Массив X i = 1¸10 | Массив Y Значение наибольшего отрицательного элемента массива Y | ||
Массив Y i = 1¸15 | Массив z. Максимальный элемент zmax и номера элементов массива Z меньших 0.5 zmax | ||
, если zi < -1 yi= , если , если - 1£ zi £ 3 | Массив X 1 ≤ xi ≤ 10 hxi =1 | Массивы Z, Y. Сумма и количество положительных элементов массива Y. Среднее арифметическое отрицательных элементов массива Y. | |
Массив X -1 ≤ xi ≤ 11 hxi =2 | Массивы z, Y. Порядковый номер и значение первого положительного числа в массиве Z. | ||
5 | yi= , если xi > 1.5 , если xi ≤ 1.5 Все отрицательные элементы массива Y заменить нулями, а нулевые элементы заменить значением элемента xi | Массив X i = 1¸15 | Массив Y до и после замены. Среднее арифметическое массива Y до и после замены. |
Продолжение таблицы к заданию 5
|
|
Массив X i = 1¸15 | Массив Y. Значение и номер эл-та yi,наиболее отличающегося отS. | ||
сi=max(ai, bi )-min(ai, bi ) | Массив X i = 1¸10 | Массивы A, B, C. максимальный элемент массива C среди четных элементов. | |
Массив X i = 1¸25 | Массив M. Разность между S и P. | ||
Если maxPi меньше суммы всех остальных элементов, то присвоить этому элементу значение 0. | Массив X -0.4≤ xi ≤1.2 hxi =0.2 | Массив P, maxРi. | |
Массив Y i = 1¸11 | Массивы X, P. Значения и номера мин. и макс. по модулю элементов P. | ||
t | Массив Y. Сумма и количество элементов массива Y, лежащих на отрезке [0;2]. |
Продолжение таблицы к заданию 5
Элементы Zi сгладить по формуле: Zi = (Zi-1 + Zi + Zi+1)/ 3 | Массив X i = 1¸15 | Массив Z до и после сглаживания. | |
Массив X -5 £ xi £ 4 hxi= 0.9 | Массивы X, A. S, P. Количество аi<0. | ||
Считать пары точек (yi, zi) координатами точек на плоскости YOZ | Массив X i = 1¸10 | Массивы Y, Z. Определить, какая из точек 2, 3…10 наиболее удалена от точки (y 1, z 1 ). | |
Заменить все отрицательные элементы массива Y суммой R и значения соответствующего элемента. | Массив A i= 1¸11 | Массив Y до и после замены. Ср. арифметическое (R) элементов массива Y. | |
Считать (Vi,Yi) координатами точек плоскости. Определить процент (PR) точек, лежащих в круге радиусом R с центром в точке(V0,Y0). | R, V0, Y0, Массив X i= 1¸10 | R, V0, Y0, PR. Массивы Y, V. |
Продолжение таблицы к заданию 5
|
|
Cчитать ai, bi, ci коэффициентами квадратного уравнения ax2+bx+c= 0 | Массив A i= 1¸20 | Массивы B, C. Порядковые номера уравнений, имеющих комплексные корни. | |
Считать значения элементов массива A и B длинами полуосей эллипса a и b. | Массив X4 ≤ xi ≤ 12 hxi =2 | Массивы A, B. Порядковый номер N эллипса, площадь которого S=p× a× b наибольшая. | |
Массив X i= 1÷12 | Массив Y. Индекс элемента, наиболее близкого по значению к ср. геометрическому (Р) массива Y. | ||
Массив X -0.3≤ xi ≤1.2 hxi =0.3 | Массив Y. Среднее арифметическое (А) массива Y и количество yi >A. |