Вычисление выражения - перевод с Pascal - C#

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста с переводом
Листинг программы
  1. program cos_teilor;
  2. var x,stx,cost,e: real;
  3. i,fakt,z: integer;
  4. Begin
  5. Write('Введите x: ');
  6. Readln(x);
  7. Write('Введите точность e: ');
  8. Readln(e);
  9. stx:= x*x; {x в степени}
  10. fakt:= 2; {значение факториала в знаменателе}
  11. cost:= 1; {первый элемент в разложении}
  12. i:= 2; {счётчик}
  13. z:= -1; {знак элемента}
  14. while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности}
  15. cost:=cost+z*stx/fakt;
  16. inc(i,2);
  17. stx:=stx*x*x;
  18. fakt:=fakt*(i-1)*i;
  19. z:=z*(-1); {смена знака}
  20. end;
  21. Writeln('Количество элементов в разложении = ',i div 2 + 1);
  22. Writeln('Значение cos(',x:6:6,')= ',cost:6:6);
  23. Writeln('Значение компьютера: ',cos(x):6:6);
  24. Readln;
  25. End.

Решение задачи: «Вычисление выражения - перевод с Pascal»

textual
Листинг программы
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Threading.Tasks;
  6.  
  7. namespace ConsoleApplication
  8. {
  9.     class cos_teilor
  10.     {
  11.         static void Main(string[] args)
  12.         {
  13.             //var x,stx,cost,e: real;
  14.                 float x,stx,cost,e;
  15.             //i,fakt,z: integer;
  16.                 int i, fakt, z;
  17.             //Write('Введите x: ');
  18.                 Console.Write("Введите x: ");
  19.             //Readln(x);
  20.                 x = float.Parse(Console.ReadLine());
  21.             //Write('Введите точность e: ');
  22.                 Console.Write("Введите точность e: ");
  23.             //Readln(e);
  24.                 e = float.Parse(Console.ReadLine());
  25.             //stx:= x*x; {x в степени}
  26.                 stx = (float)Math.Pow((double)x,(double)2);
  27.             //fakt:= 2; {значение факториала в знаменателе}
  28.                 fakt = 2;
  29.             //cost:= 1; {первый элемент в разложении}
  30.                 cost = 1;
  31.             //i:= 2; {счётчик}          
  32.                 i = 2;
  33.             //z:= -1; {знак элемента}
  34.                 z = -1;
  35.             //while stx/fakt>=e do {до тех пор, пока элемент в разложении не меньше точности}
  36.                 while (stx / fakt >= e)
  37.                 //begin
  38.                     {
  39.                         //cost:=cost+z*stx/fakt;
  40.                              cost=cost + z * stx / fakt;
  41.                         //inc(i,2);
  42.                              i+=2;
  43.                         //stx:=stx*x*x;
  44.                              stx = stx * x * x;
  45.                         //fakt:=fakt*(i-1)*i;
  46.                              fakt = fakt * (i-1) * i;
  47.                         //z:=z*(-1); {смена знака}
  48.                              z = z * (-1);
  49.                 //end;
  50.                     }
  51.             //Writeln('Количество элементов в разложении = ',i div 2 + 1);
  52.                 Console.WriteLine("Количество элементов в разложении = " + i / 2 + 1);
  53.             //Writeln('Значение cos(',x:6:6,')= ',cost:6:6);
  54.                 Console.WriteLine("Значение cos({0:000000.000000}) ",cost);
  55.             //Writeln('Значение компьютера: ',cos(x):6:6);
  56.                 Console.WriteLine("Значение компьютера: {0:000000.000000}", Math.Cos(x));
  57.             //Readln;
  58.                 Console.ReadKey();
  59.         }
  60.     }
  61. }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы