Составить программу вычисления значений функции f(x) на отрезке [a,b] с шагом h. результат представить в виде таблицы, первых столбец которой – значения аргумента, второй – соответствующие значения функции. программу составить двумя с использованием цикла с предусловием и с использованием цикла с постусловием. f(x) ctg x+ 1
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.
var
a, b, h, x, y: real;
begin
write('Введите a и b = ');
readln(a, b);
write('h(шаг) = ');
readln(h);
writeln('x':5,'y':10);
x := a;
while x <= b do
begin
y := sin(x)+0.5*cos(x);
writeln(x:7:2, y:10:3);
x := x + h;
end;
end.
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
end.
2)var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
end.
на тебе антисердечко. бездарб (асу асу асу)
Объяснение:
омэрыке продался, тварь?!
Объяснение:
var f:real;
a,b,h:integer;
begin
Write('Введите a');
readln(a);
Write('Введите b');
readln(b);
Write('Введите h');
readln(h);
while a<b do
begin
f:=sin(a)+sin(a)/cos(a);
write('F(',a,')=');
writeln(f:4:2);
a:=a+h;
end;
readln;
end.
На паскаль переводится очень легко
program for_znanija
implicit none
real :: a,b,dx,x,f
integer :: k
print *,'Введите левую границу'
read *, a
print *,'Введите правую границу'
read *, b
print *, 'Введите шаг'
read *, dx
x=a
k=0
do while (x<=b)
print '(a,f5.2,a,f8.4)','При x=',x, ' значение функции f=',f
f=tan(x)
x=x+dx
enddo
end
На скриншоте тоже моя программа, но написана ранее, поэтому там есть небольшие изменения.
Справа проверка на работо Функция tg(x).
uses crt;
Var a,b,x,y,h:real;
Begin
Writeln('Введите a,b');
readln(a,b);
Writeln('Введите шаг');
readln(h);
x:=a;
While x<=b do
Begin
y:=2*cos(x)-1;
Write('x=',x:6:2, ' y=',y:6:2);
Writeln;
x:=x+h;
end;
readln;
end.
Var a,b,h:real;
Begin
ClrScr;
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('h = ');ReadLn(h);
Repeat
WriteLn('F(',a,') = ',Sin(1/a)+2);
a:=a+h;
Until a > b;
ReadKey
End.
begin
writeln('Введи промежуток');
readln(a, b);
writeln('Укажи шаг');
readln(h);
while a<=b do
begin
write(a, ' ');
writeln(sin(a)-cos(a):5:2);
a:=a+h;
end;
end.