Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2017, 20:32   #1
Vladislav125
Пользователь
 
Регистрация: 27.09.2016
Сообщений: 66
Сообщение [Pascal] Дано вещественное число X и целое число N (> 0). Найти значение выражения

Дано вещественное число X и целое число N (> 0). Найти значение выражения
1 − X2/(2!) + X4/(4!) − … + (−1)N-1·X2·N-2/((2·N-2)!)
(N! = 1·2·…·N).

Нужно сделать 3 программы с помощью циклических операторов while, repeat, for

Это пример решения что у меня получилось но преподаватель сказал не правильно нужно через операторы while repeat for. Помогите сделать хоть одну прогу через любой из этих трех операторов а дальше я сам как нибудь.

Код:
var
  i, N: integer;
  Sum, a, x, y: real;

begin
  write('x = ');
  readln(x);
  Sum := 1; { <== Начальное значение суммы }
  { Дальнейшие вычисления производим при x ? 0, так как в противном
  случае искомая сумма равна 1 (все слагаемые равны 0): }
  if x <> 0 then
  begin
    write('N = ');
    readln(N);
    y := sqr(x); { <== Вычисляем x в квадрате }
    a := 1; { <== первое слагаемое в данной сумме }
    for i := 1 to N - 1 do
    begin
     { Для вычисления i-го значения предыдущее значение (с
     противоположным знаком) умножаем на x в квадрате (число y) и
     делим на произведение последовательных натуральных чисел: }
      a := -a * y / ((2 * i - 1) * 2 * i);
      Sum := Sum + a { <== Увеличиваем сумму }
    end
  end;
  writeln;
  writeln('Значение суммы: ', Sum:0:5);
  readln
end.

Последний раз редактировалось Вадим Мошев; 23.06.2017 в 20:59.
Vladislav125 вне форума Ответить с цитированием
Старый 24.06.2017, 16:13   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var
  i, N, fac: integer;
  Sum, a, x, y: real;
  znak: -1..1;
begin
  write('x = ');
  readln(x);
  Sum := 1;
  znak:=1;
  fac:=1;
  y:=1;
  if x <> 0 then
  begin
    write('N = ');
    readln(N);
    for i := 1 to N do
    begin
      znak:=-znak;
      y:=y*x*x;
      fac:=fac*(2*i-1)*2*i;
      a:=znak*y/fac;
      Sum := Sum + a;
    end
  end;
  writeln;
  writeln('Значение суммы: ', Sum:0:5);
  readln
end.


Цитата:
Сообщение от Vladislav125 Посмотреть сообщение
а дальше я сам как нибудь.
Надеюсь...
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 24.06.2017, 16:54   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

У ТС симпатичней решение. А факториал в integer уже для 13 загнется
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 24.06.2017, 18:14   #4
Vladislav125
Пользователь
 
Регистрация: 27.09.2016
Сообщений: 66
По умолчанию

Это через оператор For??
Vladislav125 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано вещественное число. Проверить: принадлежит ли данное число промежутку: [-1;1]. valodu Помощь студентам 1 02.03.2016 13:41
дано вещественное число a, найти последовательность чисел, первое число больше a derenikp1996 Помощь студентам 3 23.05.2015 12:16
Паскаль. цикл FOR. Дано вещественное число Х(|X|<1) и целое число N(>0) Найти значение выражения ... schibeki Помощь студентам 10 06.02.2014 23:19
Задача на использования оператор цикла for C++. Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму /Crow/ Помощь студентам 0 19.12.2013 12:02
Дано вещественное число X и целое число N (> 0). Вывести X – X3/3! + X5/5! – ... + (–1)NX2N+1/(2N+1)!? Ахилес Помощь студентам 2 20.05.2010 20:34