Основы программирования на языке Turbo Pascal. Беляева И.В. - 96 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

96
{5 } function tg:real;
{6 } var
{7 } xRad : Real; {Значение угла в радианах}
{8 } begin
{9 } xRad := x * Pi / 180.0; {Перевод градусов в радианы}
{10 } tg := sin(xRad) / cos(xRad);
{11 } end;
{12 }
{13 } var
{14 } y : real;
{15 } begin
{16 } Write('Введите x = ');
{17 } Read(x);
{18 } y := tg;
{19 } Writeln( 'tg(', x:0:2, ')=', y:0:4);
{20 } end.
Эта программа начинает свою работу со строки
{15 } begin
Затем выполняется
{16 } Write('Введите x = ');
и
{17 } Read(x);
Затем в строке
{18 } y := tg; – вызывается функция tg, в результате чего управление
передается на строку
{8 } begin
Затем выполняется
{9 } xRad := x * Pi / 180.0; {Перевод градусов в радианы}
Затем в строке
{10 } tg := sin(xRad) / cos(xRad); – вычисляется значение тангенса, которое
в строке
{11 } end; – возвращается в точку вызова функции tg – в строку

Страницы