Напечатать таблицу значений функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде ( с циклом for, пожалуйста):_x______sin(x)_____cos(x)___0.0000 0.0000 1.00000.1000 0.0998 0.9950……………………….1.0000 0.8415 0.5403Заранее благодарен

Вопрос школьника по предмету Информатика

Напечатать таблицу значений функций 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

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

Ответ учителя по предмету Информатика

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.