Модуль к процедуре

@wein173 · Регистрация: 29.04.2013

Author24 — интернет-сервис помощи студентам

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

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.

@Puporev · 04.06.2013, 15:22

Текст модуля

Pascal

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.

Текст программы

Pascal

program My_func;
uses crt,func;
var x,y2,y:real;
begin
clrscr;
writeln('vvedite x');
readln(x);
if cos(x)=0 then write('Функция не определена')
else
 begin
  tg(x,y);
  y2:=sqr(y)+2*y;
  writeln('y=',y2:0:3)
 end;
readln
end.

	04.06.2013, 15:22