Найти разность мин и макс значение функции

[J0n1cK]

Найти разность мин и макс знач функции
y=(1-exp(в степени x)*sin(x/2) от Xn до Xk с шагом h;

P.S. Массив использовать нельзя только циклы: repeat или while.

[Gongled]

Сообщение от J0n1cK

Найти разность мин и макс знач функции
y=(1-exp(в степени x)*sin(x/2) от Xn до Xk с шагом h;

P.S. Массив использовать нельзя только циклы: repeat или while.

Наверное так:

program prg;
uses CRT;
var
Xn, Xk, h, minf, maxf, x, y : real;
k : boolean;
begin
clrscr;

write('Введите интервал: ');
read(Xn, Xk);
write('Введите шаг: ');
read(h);

x := Xn;
k := false;

while x <= Xk do
begin
    // x*ln(exp(1)) -- экспонента в степени x
    y := (1 - exp(x*ln(exp(1)))) * sin(x/2);
    
    // Допустим, первое число минимальное
    if not k then
    begin
        minf := y;
        maxf := y;
        k := true;
    end;

    // Ищем максимум и минимум
    if minf > y then minf := y;
    if maxf < y then maxf := y;

    writeln(x,': ',y,' | ',minf,' | ',maxf);
    // Делаем шаг
    x := x + h;
end;

writeln('Минимальное значение: ', minf);
writeln('Максимальное значение: ', maxf);

writeln('Разность: ', maxf - minf);
end.