Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач. до Хкон. с шагом dX.

[antoshka17]

Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач. до Хкон. с шагом dX.
функция F= {ax^2+b^2x при c<0 и b не равн 0;
(x+a)/x+c) при с>0 и b=0;
x/c в остальных случаях.

где а, b, с — действительные числа.
Функция F должна принимать действительное значение, если выражение (Ац ИВц) ИЛИ (Ац И Сц)
не равно нулю, и целое значение в противном случае. Через Ац, Вц и Сц обозначены целые части значений а, b, с, операции Ии ИЛИ — поразрядные. Значения а, b, с, Хнач., Хкон., dX ввести с клавиатуры.
напишите программу пожалуйста.

[min@y™]

Функция F должна принимать действительное значение, если выражение (Ац ИВц) ИЛИ (Ац И Сц)
не равно нулю, и целое значение в противном случае. Через Ац, Вц и Сц обозначены целые части значений а, b, с, операции Ии ИЛИ — поразрядные.

Что это значит?

[Iron Monk]

Сообщение от min@y™

Что это значит?

бабунадоибосреда

[p51x]

Что это значит?

Если (...), то результат = округлить результат.

[min@y™]

Либо я чото не понимаю, либо автор гонит.

284950.jpg

[p51x]

ну есть еще с < 0, b = 0 и c > 0, b <> 0. а про с = 0 просто забыли или ТС должен был смекнуть про ОДЗ

[min@y™]

ну есть еще с < 0, b = 0 и c > 0, b <> 0. а про с = 0 просто забыли или ТС должен был смекнуть про ОДЗ

И чо теперь делать?
Вопрос наболевший. Постоянно приходят страдальцы (по работе) с просьбой написать им прогу а-ля "дерево там - такое, и мужик в пинжаке".

Удолбали. Приходится инфу выбивать электошоком и скополамином.

[newerow1989]

function step2(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function F(x,a,b,c:real):real;
begin
   If (c<0) and (b<>0) then
      F:=a*x*x+step2(b,2*x) else
   If (c>0) and (b=0) then
      F:=(x+a)/(x+c) else
      F:=x/c;
end;

var x,a,b,c,x0,x1,dx:real;
begin
   Write('a  = ');Readln(a);
   Write('b  = ');Readln(b);
   Write('c  = ');Readln(c);
   Write('x0 = ');Readln(x0);
   Write('x1 = ');Readln(x1);
   Write('dx = ');Readln(dx);
   x:=x0-dx;
   Repeat
      x:=x+dx;
      Writeln(x:5:5,'  ',F(x,a,b,c):5:5);
   Until x>=x1;
   Readln;
end.

Сойдет?

[min@y™]

сойдёт?