Вычислить через for и repeat в паскале(1+sin0,1 )(1+sin0,2 )(1+sin10)

Вычислить через for и repeat в паскале
(1+sin0,1 )(1+sin0,2 )(1+sin10)

Задать свой вопрос
1 ответ
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Цикл for

begin
  var p:=1.0;
  for var i:=1 to 100 do p*=(1+Sin(i/10));
  Writeln(p)
end.

Итог
1.72984094681772E-14

Цикл repeat

begin
  var (p,i):=(1.0,0.1);
  repeat
    p*=(1+Sin(i));
    i+=0.1
  until igt;10;
  Writeln(p)
end.

Итог
1.72984094681773E-14

Контрольное решение с точностью 20 цифр приведено во вложении. В согласовании с ним верные цифры в результатах подчеркнуты.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт