Модуль к процедуре - Turbo Pascal

Формулировка задачи:

Нужен модуль к этому коду. Буду очень благодарен ))))

program func;
uses crt;
var x,y2,y:real;
procedure tg(a:real;var s:real);
begin
s:=sin(a)/cos(a);
end;
begin
clrscr;
writeln('vvedite x');
readln(x);
tg(x,y);
y2:=sqr(y)+2*y;
writeln('y=',y2:4:3);
readln;
end.

Решение задачи: «Модуль к процедуре»

textual
                            Листинг программы 
                        

                            unit func;
interface
procedure tg(a:real;var s:real);
implementation
procedure tg(a:real;var s:real);
begin
s:=sin(a)/cos(a);
end;
end.
                        

Оцени полезность:

12 голосов , оценка 4.333 из 5

Похожие ответы