Предмет: Информатика,
автор: SergeyGW
Pascal Вычислить и вывести на экран значение заданной функции, используя условный оператор if
Приложения:
Ответы
Автор ответа:
0
var w,a,b,c,x:real;
begin
x:=2.8;
b:=-0.3;
c:=4;
writeline ("Input X");
readline (x);
if (x<1.2) then w:=a*x*x+b*x+c;
if (x<1.2) then w:=a*(Pow (x),2) + b*x+c; // Аналогичен предыдущей строке, только там умножали х на х, а тут возводим через функцию pow.
if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (x>1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.
begin
x:=2.8;
b:=-0.3;
c:=4;
writeline ("Input X");
readline (x);
if (x<1.2) then w:=a*x*x+b*x+c;
if (x<1.2) then w:=a*(Pow (x),2) + b*x+c; // Аналогичен предыдущей строке, только там умножали х на х, а тут возводим через функцию pow.
if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (x>1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.
Автор ответа:
0
if (x>1.2) then w:=(a+b*x)/( Pow (x),2 + 1 );
Автор ответа:
0
исправиь
Автор ответа:
0
Да, точно, коряво просто написано, не заметил
Автор ответа:
0
Все условия идут в ряд, но если исполнилось одно - другие исполняться не должны. Поставь If then else if then else
Похожие вопросы
Предмет: Українська мова,
автор: gornikvitalij00651
Предмет: Математика,
автор: sofiia2140
Предмет: Математика,
автор: olichkachorniy81
Предмет: Математика,
автор: карим44
Предмет: История,
автор: троечникпомогитеему