написать программу на языке паскаль

+ 0 -

Vik10629003a

02 окт. 2014 г., 15:05:54 (9 лет назад)

var
  x, xa, y, ya, a, b, h: double;
  flag: boolean;

begin
  Write('Введите через пробел границы интервала для поиска решения -> ');
  Readln(a, b);
  Write('Введите шаг для просмотра интервала -> ');
  Readln(h);
  if a = b then Write('Интервала нет - Вы задали точку')
  else begin
    if a > b then begin x := a; a := b; b := x end;
    xa := a;
    ya := -4 + xa * (1 + 3 * xa);
    flag := false;
    x := xa;
    repeat
      x := x + h;
      y := -4 + x * (1 + 3 * x);
      if y * ya < 0 then
      begin
        flag := true;
        Writeln('Корень находится на интервале [', xa, ';', x, ']')
      end
      else
      if y = 0 then
      begin
        flag := true;
        Writeln('Корень равен ', x)
      end
      else begin xa := x; ya := y end
    until flag;
    if (not flag) then
      Writeln('На заданном интервале и с заданным шагом корень не найден')
  end
end.

Результаты решения:

*** 1й запуск ***
Введите через пробел границы интервала для поиска решения -> 0 5
Введите шаг для просмотра интервала -> 0.4
Корень находится на интервале [0.8;1.2]

*** 2й запуск ***
Введите через пробел границы интервала для поиска решения -> 0.8 1.2
Введите шаг для просмотра интервала -> 0.1
Корень равен 1

*** 3й запуск ***
Введите через пробел границы интервала для поиска решения -> -5 0
Введите шаг для просмотра интервала -> 0.25
Корень находится на интервале [-1.5;-1.25]

*** 4й запуск ***
Введите через пробел границы интервала для поиска решения -> -1.25 -1.5
Введите шаг для просмотра интервала -> 0.1
Корень находится на интервале [-1.4;-1.3]

*** 5й запуск ***
Введите через пробел границы интервала для поиска решения -> -1.4 -1.3
Введите шаг для просмотра интервала -> 0.001
Корень находится на интервале [-1.33400000000001;-1.33300000000001]

*** 6й запуск ***
Введите через пробел границы интервала для поиска решения -> -1.334 -1.333
Введите шаг для просмотра интервала -> 0.000001
Корень находится на интервале [-1.33333400000005;-1.33333300000005]