как пишется в турбе паскале на графическом и программный и схемный вид? подскажите. (внутри есть фото 'задача')

Question

Полина Фролова · Accepted Answer

дам в программном а дальше сам думай 
 
var 
y,x:real; 
begin 
y:= (sin(x)/cos(x))/(1-(cos(x)/sin(x))); 
writeln(y:1:3); 
readln; 
end.

Светлана Sova Соловей · Answer

упрости формулу, перейди на син и кос

Лея Премыслер · Answer

var 
y,x:real; 
begin 
y:= (sin(x)/cos(x))/(1-(cos(x)/sin(x))); 
writeln(y:1:3); 
readln; 
end.