Формат ввода Вводится число n, затем последовательность чисел, пока не будет введено отрицательное число - id1603608920200301 от nadiamandrik23 01.03.2020 12:58

Question

Информатика: Формат ввода Вводится число n, затем последовательность чисел, пока не будет введено отрицательное число (в последовательность не входит, служит признаком окончания ввода). Формат вывода Для каждого числа последовательности нужно найти остаток от деления его на n и вывести строку: Призрачный дом ( ) Пример 1 Ввод Вывод 5 16 42 28 4 -2 Призрачный дом (1) Призрачный дом (2) Призрачный дом (3) Призрачный дом (4) Пример 2 Ввод Вывод 17 34 52 -186 Призрачный дом (0) Призрачный дом (1)

nadiamandrik23 · Accepted Answer

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function f(x:real):=3+x*(4+x*(5+x*6));

begin
var a:=-1.0;
var b:=0.0;
var eps:=1e-6;
var fa:=f(a);
var x,fx:real;
if abs(fa)<=eps then Writeln('x=',a,',y=',fa)
else begin
    var fb:=f(b);
    if abs(fb)<=eps then Writeln('x=',b,',y=',fb)
    else
      if fa*fb>0 then Writeln('На указанном интервале корней нет')
      else
        repeat
          x:=(a + b)/2;
          fx:=f(x);
          if abs(fx)<=eps then Writeln('x=', x, ', y=', fx)
          else
            if fa*fx>0 then a:=x else b:=x;
        until abs(fx)<=eps
end
end.

Результат выполнения программы:
x=-0.790308952331543, y=-6.74849237825015E-07

MOGZ ответил