Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 120 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

118
Пример 23. Составить
программу
для
нахождения
экстремумов
целевой
функции
y = x
2
на
отрезке
[a; b]
методом
перебора
.
Алгоритм
программы
представлен
на
рис
. 7.2.
Рис. 7.2. Алгоритм программы поиска экстремумов целевой функции методом перебора
Program Perebor;
uses crt;
var a,b,x,xmin,xmax,y,ymin,ymax,h: real;
i,n: integer;
begin
clrscr;
write(‘
Введите
A:’);
readln(a);
write(‘
Введите
B:’);
readln(b);
write(‘
Введите
N:’);
Ввод a,b,n
h=(b-a)/n
ymax=
-
10000; ymin=10000; x=a
x<=b
y=x
Вывод x,y
y<ymin
ymin=y
xmin=x
y>ymax
ymax=y
xmax=x
x=x+h
Вывод
xmin, ymin,
xmax, ymax
нет
да
да нет
Начало
Конец
нет
да

Страницы