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

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

Задать свой вопрос
1 ответ
program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1lt;=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
Это 2-ая задачка.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё
Олег
Необходимо на Turbo Basic, а не Pascal.
Ромка Пначин
Только 13 номер необходимо делать.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт