Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
Рис. 8.2. Блок-схема к примеру 2 

---

119 
Пример 3. Составьте блок-схему (рис. 8.3) и напишите программу 
решения следующей задачи: одномерный массив х, который 
содержит не более 40 вещественных чисел, задайте с помощью 
функции случайных чисел. Для каждого элемента массива х 
вычислите значение y = (x
2
 + 5x – 6) / (x
2
 + 4) и составьте из значений 
у другой массив. 
Program Primer_3; 
Var x,y: Array[1..40] of Real; i,n,m:Integer; 
Begin Writeln('Ввести размер массива'); Readln(n); 
{Ввод элементов массива с помощью функции случайных чисел} 
For i:=1 to n do x[i]:=100*(Random-Random); 
{Вывод элементов массива х на экран} 
Writeln('Массив x:'); 
For i:=1 to n do Write(x[i]:8:2); Writeln; 
{Составление массива у и одновременно вывод этого массива на 
экран} 
Writeln('Массив y:'); 
For i:=1 to n do
Begin y[i]:=(x[i]*x[i]+5*x[i]-6)/(x[i]*x[i]+4); Write(y[i]:8:2); 
End;
End. 

---

120 
 
Рис. 8.3. Блок-схема к примеру 3
 
 

---

121 
Процедуры ввода и вывода элементов одномерного массива 
Поскольку в задачах с использованием массивов всегда нужно 
вводить элементы массива и этот массив на экран, создадим 
процедуры ввода элементов массива и вывода на экран. Этими 
процедурами будем пользоваться во всех остальных программах. 
 
Пример 4. Составьте блок-схему (рис. 8.5) и напишите программу 
решения следующей задачи: одномерный массив х, который содержит 
не более 40 вещественных чисел, задайте с помощью функции 
случайных чисел.