Помогите решить задачу в паскале Задание 2. номер 8
Приложения:
Ответы на вопрос
Ответил Аноним
0
var a,b,h,x,f:real;
begin
write('Введите a,b,h: ');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':12);
repeat
f:=2*tan(x/2)+1;
writeln(x:10:3,f:10:3);
x:=x+h;
until x>b;
end.
begin
write('Введите a,b,h: ');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':12);
repeat
f:=2*tan(x/2)+1;
writeln(x:10:3,f:10:3);
x:=x+h;
until x>b;
end.
Приложения:
Новые вопросы