Составить программу вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблицы, первых столбец которой – значения аргумента, второй – соответствующие значения функции. Программу составить двумя способами: с использованием цикла с предусловием и с использованием цикла с постусловием. F(x) ctg x+ 1
Ответы
Ответ дал:
0
var a,b,h,x,x1,x2:real;
function F(x:real):real;
begin
F:=cos(x)/sin(x)+1;
end;
begin
writeln('Функция: F(x)=ctgx+1');
write('Введите крайние точки отрезка: '); readln(x1,x2);
write('Введите шаг: '); readln(h);
writeln('| x | F(x) |');
writeln('_________________');
if x1>x2 then begin
a:=x2; b:=x1; end
else begin
a:=x1; b:=x2; end;
x:=a;
while x<=b do
begin
writeln('|',x:7:3,'|',f(x):7:3,'|');
x:=x+h;
end;
end.
function F(x:real):real;
begin
F:=cos(x)/sin(x)+1;
end;
begin
writeln('Функция: F(x)=ctgx+1');
write('Введите крайние точки отрезка: '); readln(x1,x2);
write('Введите шаг: '); readln(h);
writeln('| x | F(x) |');
writeln('_________________');
if x1>x2 then begin
a:=x2; b:=x1; end
else begin
a:=x1; b:=x2; end;
x:=a;
while x<=b do
begin
writeln('|',x:7:3,'|',f(x):7:3,'|');
x:=x+h;
end;
end.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад