Завдання: порахувати екстремуми функції ітераційним способом.
В рядку:
writeln ( 'Мінімальний елемент f (x): X =', iter1);
вибиває помилку.
Підкажіть будь ласка як усунути
Uses Crt;
Const dx = 0.01;
var
x0, xn, x, y: real;
integ: real;
function f (x: real): real;
begin
result: = sin (x) -cos (2 * x);
end;
function iter1 (x0, xn: real): real;
begin
y: = f (x0);
while x0 xn do
begin
x0: = x0 + dx;
if f (x0)> y then
begin
iter2: = f (x0);
end; end;
begin
clrscr;
begin
writeln ( 'Введіть нижню межу'); readln (x0);
writeln ( 'Введіть верхню межу'); readln (xn);
writeln ( 'Ітераційний варіант:');
writeln ( 'Мінімальний елемент f (x): X =', iter1);
writeln ( 'Максимальний елемент f (x): X =', iter2);
readln; end;
end.
Заходи і спілкуйся - нудно не буде!
integ: real;
Не варто називати одні змінні під інші (типи). навіть скорочено. Це плутає.
while x0 xn do
Це що за невичісляемая хрень. Якщо треба хн порівнювати з х0, то і порівнюйте з ним. А з собою порівнювати взагалі сенсу немає.
Що таке ітер2. Ви його 2 рази використовуєте, але не оголошує.
clrscr;
begin - ось цей Бегін зайвий. Він не завадить, але сенсу в ньому немає.