Найти значения F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем. Составить программу в Delphi7 номер 18
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Varx0, xk, dx, e, x, aa: real;
i: integer;
function f(x, a: real): real;
begin
if x < 0 then
f := 1 / Tan(x) + sqrt(1 + abs(x - 2))
else if x = 0 then
f := (a + x) + sin(Pi)
else
f := a * x * cos(x * Pi);
end;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
write('a =');
readln(aa);
x := x0;
writeln(' x ':10, ' | ', ' F(x,a) ':10);
repeat
writeln(x:10:3, ' | ', f(x, a):10:3);
x := x + dx;
until x >= xk;
end.