1 задание на языке Паскаль.

1 задание на языке Паскаль.

Задать свой вопрос
1 ответ
Const e=0.001;
var x,a,s:real; n:integer;
begin
write('x=');readln(x);
writeln(' x    S(x)      y(x)');
 a:=1; s:=1; n:=1;
 while абс(a)gt;e do
 begin
 a:=-a*x*x/(2*n-1)/(2*n);
 s:=s+a;
 n:=n+1;
 end;
 writeln(x:3:1,' ',s:8:5,' ',cos(x):8:5);
end.

Пример:
x=0.6
 x    S(x)      y(x)
0.6  0.82534  0.82534
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт