Question

Напечатать таблицу значений функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде ( с циклом for, пожалуйста):

_x______sin(x)_____cos(x)___
0.0000 0.0000 1.0000
0.1000 0.0998 0.9950
............................
1.0000 0.8415 0.5403

Заранее благодарен

Answer 1

Var
X:integer;
Begin
WriteLn('X        Sin(X)   Cos(X)');
For X:= 0 to 10 do
    WriteLn((X/10):0:4,'   ',Sin(X/10):0:4,'   ',Cos(X/10):0:4);
End.