create a function y= sin x+a /cosx to work in Pascale?

Programming Programming..



The author posted a question in Programming

create a function y= sin x+a /cosx to work in Pascale? and got a better answer

Response from
var x,a:integer; function sinco:real; begin sinco:=cos x+a /cos x end; begin readln x,a ; writeln sinco end

Response from 0[+++]
var x,a:integer; function sinco:real; begin sinco:=cos x+a /cos x end; begin readln x,a ; writeln sinco end

Response from 0[+++++]
cosine through tangent and the rest is all too easy

 

To answer the question:

Name*

E-mail:*

Reply text:*
Verification code (enter 22):*