Microsoft Word Лаб практ инф

Begin x[i]:=Random(100); {Обращение к датчику случайных чисел} 
Формирование 
исх. массива 
k=1 
 i=2 
max=x[1] 
max<x[i] 
max=x[i] 
k=i 
 i=i+1 
i≤n 
да 
да 
нет 
нет 
max, k 

---

83
Write(x[i]:4) 
End; {Конец циклического алгоритма арифметического 
типа} 
Writeln; 
k:=1; 
max:=x[1]; 
For i:=2 To n Do 
If max
Begin max:=x[i];k:=i End; 
Writeln(‘Максимальный элемент’,max:4,’ Его номер в массиве’,k:4) 
End. 
3. Наберите, откомпилируйте и исправьте возможные ошибки. Затем 
запустите программу на счет. 
4. Убедитесь в правильности работы программы. В противном случае 
внесите коррективы в алгоритм. 
5. Внесите изменения в программу так, чтобы она искала минимальный 
элемент. 
Задание № 
2. Построить алгоритм для вычисления корня уравнения 
29
8
3
2
4



x
x
x
с точностью ε=10
-4
методом простой итерации. Принять за 
начальное значение корня x
0
=2. Вывести на экран корень уравнения до 5-го 
знака и число итераций. Разработать, набрать и отладить программу, 
реализующую этот алгоритм. 
Методика выполнения работы
 
 
1. Алгоритм в виде блок-схемы: 
Рис. 5.8. Блок-схема алгоритма нахождения корней методом простой итерации 
ε,x
o
0
4
2
0
8
3
29
x
x
x



n=1 


 x
x
0
x
0
=x 
0
4
2
0
8
3
29
x
x
x



 n=n+1 
да 
x,n 
нет 

---

84
2. Программа на основе алгоритма рис.5.8: