Question

Составить программу для вычисления значения функции, на Turbo Basic

Answer 1

program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё