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

Question

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

---

Comments

2 вопроса. 1)что там в первом y=.. 2)cos в радианах(x внутри cos) вычислит или числом?

Answer 1

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

Comments

Нужно на Turbo Basic, а не Pascal.

---

Только 13 номер нужно делать.

---

ок.сейчас сделаю