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

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

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2015, 23:09   #1
Нариманчик
 
Регистрация: 27.05.2015
Сообщений: 7
По умолчанию Перевод с Паскаль на C#

Помогите пожалуйста с переводом, срочно нужно
Код:
program sin_teilor;
var x,stx,sint,e: real;
    i,fakt,z: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
 stx:= x;  {x в степени}
 fakt:= 1;  {значение факториала в знаменателе}
 sint:= 0;  {первый элемент в разложении}
 i:= 1;  {счётчик}
 z:= 1;  {знак элемента}
while stx/fakt>=e do begin  {до тех пор, пока элемент в разложении не меньше точности}
                      sint:=sint+z*stx/fakt;
                      inc(i,2);
                      stx:=stx*x*x;
                      fakt:=fakt*(i-1)*i;
                      z:=z*(-1);  {смена знака}
                      end;
Writeln('Количество элементов в разложении = ',i div 2);
Writeln('Значение sin(',x:6:6,')= ',sint:6:6);
Writeln('Значение компьютера: ',sin(x):6:6);
Readln;
End.
Нариманчик вне форума Ответить с цитированием
Старый 28.05.2015, 14:36   #2
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Поможем. Что именно не получается?
FaTaL вне форума Ответить с цитированием
Старый 29.05.2015, 12:47   #3
Нариманчик
 
Регистрация: 27.05.2015
Сообщений: 7
По умолчанию

Код:
static void Main(string[] args)
        {
            double x = 0.5, stx, sint, e = 0.000001;
            int i, fakt, z;
            stx = x;
            fakt = 1;
            sint = 0;
            i = 1;
            z = 1;
            while (stx/fakt>=e)
            {
                sint = sint + z * stx / fakt;
                i = i + 2;
                stx = stx * x * x;
                fakt = fakt * (i - 1) * i;
                z = z * (-1);
            }
            Console.WriteLine(i / 2);
            Console.WriteLine(sint);
            
            Console.ReadLine();
        }
вот как я смог перевести, надо проверить

а вот моё задание

Последний раз редактировалось Stilet; 29.05.2015 в 12:59.
Нариманчик вне форума Ответить с цитированием
Старый 29.05.2015, 12:52   #4
Нариманчик
 
Регистрация: 27.05.2015
Сообщений: 7
По умолчанию

Код:
static void Main(string[] args)
        {
            double x = 2, stx, sint = 0;
            int z = 1, n = 5;
            stx = x;
            int[] fakt = { 1, 6, 120, 5040, 362880 };
            foreach (int i in fakt)
            {
                sint = sint + z * stx / i;
            }
            for (int j = 1; j < n; j++)
            {
                stx = stx * x * x;
            }
            Console.WriteLine(sint);
            Console.ReadLine();
        }
вот, что я смог по этому заданию
Нариманчик вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод с VB на паскаль NeferSky Общие вопросы Delphi 4 17.01.2014 14:03
перевод в паскаль julian97 Общие вопросы C/C++ 4 01.12.2013 23:39
Перевод с С++ в Паскаль Fmk Паскаль, Turbo Pascal, PascalABC.NET 1 18.05.2012 10:18
Перевод из C в паскаль KAIIUK Помощь студентам 2 12.12.2011 23:40
Перевод из Бэйсика в Паскаль Heming Помощь студентам 13 03.12.2011 17:29