Нужно с C++ переписать программу на паскаль с пояснением - Pascal

  1. Буду очень признателен)C++1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 #include <iostream> using namespace std;   int main() {     setlocale(0,""); // Чтобы корректно отображались русские буквы       cout << "Вычисление значения гиперболического синуса с точность eps = 0.01\n\n "          << "y = sh(x) = x + x^3/3! + ... + x^(2n+1)/(2n+1)! + ...\n\n";       double x;     cout << "Задайте x = ";     cin >> x;       double an = x, sum = an, eps = 0.01;     int i = 1;     while (abs(an) > eps)      { an *= (x*x)/(2*i*(2*i+1));        sum += an;        i++;      }       cout << "\n sh(" << x << ") = " << sum << endl;       system("pause > null");     return 0; }Если что, вот сама задача: Не используя стандартные функции (за исключением abs), вычислить с точностью eps > 0 у = shx = x + x3/3! + x5/5! +…+x2n+1/(2n + 1!) +…; Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps, все последующие слагаемые можно уже не учитывать.

textual

Код:

const eps=0.01;
var
  x, an, sum: Real;
  i: Integer;
begin
  WriteLn('Вычисление значения гиперболического синуса с точность eps = ',eps);
  WriteLn('y = sh(x) = x + x^3/3! + ... + x^(2n+1)/(2n+1)! + ...');
  Write('Задайте x = '); ReadLn(x);
  an:=x; sum:=x; i:=1;
  while Abs(an)>eps do begin
    an:=an*Sqr(x)/(2*i*(2*i+1));
    sum:=sum+an;
    Inc(i); 
  end;
  WriteLn('sh(',x,') = ',sum);
  Write('Нажмите Enter...'); ReadLn;
end.

Похожие ответы
  1. C++1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 #include #include #include using namespace std;   const int nUspev = 5;       struct Student      {      char FIO[30];      int group;      int uspev[nUspev];          };  void Input(Student a[], int length)  {      for(int i=0;i>a[i].FIO;        cout<<"Vvesti nomer grupy: ";        while(!(cin>>a[i].group) ||(a[i].group<0))      {             cout<<"Osibka vvod

  1. Нужно найти максимальный элемент строки чисел, и поменять его знак на противоположный:

  1. Здравствуйте, есть программа, как написать её с помощью процедур?


Нашли ошибку?
Развитие проекта
Яндекс.Метрика