Перевести уравнение на язык С# - C#

  1. Помогите перевести уравнение на сишечку =) Заранее спасибо.


textual

Код:

 double z, x;
            x = 2;
            z = 2 * ((Math.Sqrt(Math.Pow(Math.E, Math.Sin(x)+1))+2*x)/(2+Math.Pow(Math.E,Math.Sin(x)+1))
                *Math.Tan(x)+(Math.Abs(Math.Pow(Math.E,Math.Sin(x)))));
            MessageBox.Show(z.ToString());


Похожие ответы
  1. Дано равенство, в котором цифры заменены на буквы: rsrx + sru = rutr Найдите сколько у него решений, если различным буквам соответствуют различные цифры. может знаете менее прямолинейное решение?) а то как-то даже выглядит не хорошо.

  1. Описать класс, представляющий нелинейное уравнение вида ах - cos(x) = 0. Опи¬сать метод, вычисляющий решение этого уравнения на заданном интервале ме¬тодом деления пополам (см. раздел «Цикл с параметром for») и выбрасывающий исключение в случае отсутствия корня. Описать свойства для получения состоя¬ния объекта.Написать программу, демонстрирующую все разработанные элементы класса. Код:

  1. Приветствую. Есть такая строка - "[ "70", "70", "48", "48", "70", "70" ]" Как её перевести в массив байт? 1. Допустим, что первый шаг это через рег. выражения преобразовать в строку такого вида - "70 70 48 48 70 70". Хотя для меня это тоже вопрос. 2. А дальше не представляю что делать. Позадавал по разному запросы поисковику, больше не представляю какие слова туда вставлять.

  1. Как перевести Char в Double?

  1. Здравствуйте! Необходимо разработать программу для решения уравнения tg(x)=|m|/x, где m изменяется в интервале [-79.5;79.5]. Точность решения 0.001 Пожалуйста помогите хотя бы с алгоритмом :с

  1. Кликните здесь для просмотра всего текста Pascal1 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 program Vetka2;   uses Graph, CRT;   const     min = 1;   var     gd, gm : Integer;   procedure lineto1(x, y : Integer; l, u : real); begin     Line(x, y, Round(x + l * cos(u)), Round(y - l * sin(u))); end;   procedure Draw(x, y : Integer; l, u : real); begin     if KeyPressed then         exit;     if l > min then     begin         lineto1(x, y, l, u);         x := Round(x + l * cos(u));         y := Round(y - l * sin(u));         Draw(x, y, l*0.4, u - pi/4);         Draw(x, y, l*0.4, u + pi/4);         Draw(x, y, l*0.7, u);     end; end;   begin     gd := Detect;     InitGraph(gd, gm, 'c:\bp\bgi');     Draw(320, 460, 120, pi/2);     ReadKey;     CloseGraph; end. ... procedure Draw(x, y : Integer; l, u : real); begin     if KeyPressed then         exit;     if l > min then     begin         lineto1(x, y, l, u);         x := Round(x + l * cos(u));         y := Round(y - l * sin(u));         Draw(x, y, l*0.4, u - pi/4);         Draw(x + Round(l*0.4*cos(u)),             y - Round(l*0.4*sin(u)), l*0.4, u + pi/4);         Draw(x, y, l*0.7, u);     end; end; ... program Tree3;   uses CRT, Graph;   var     gd, gm: Integer;   procedure FrTree(x, y, l, u : Real; t : Integer); begin     if t > 0 then     begin         l := l*0.5;         Line(Round(x), Round(y),             Round(x + l*cos(u)), Round(y - l*sin(u)));         x := Round(x + l * cos(u));         y := Round(y - l * sin(u));         FrTree(x, y, l, u, t-1);         FrTree(x, y, l, u+pi/4, t-1);         FrTree(x, y, l, u-pi/4, t-1);     end; end;   begin     gd:=Detect;     InitGraph(gd, gm, 'c:\bp\bgi');     FrTree(320, 460, 350, pi/2,   6);     FrTree(320, 460, 350, 3*pi/4, 6);     FrTree(320, 460, 350, pi/4,   6);     ReadKey;     CloseGraph end. Помогите, пожалуйста,перевести.

  1. Написать данную программу на си шарп с файлами,можно безPascal1 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 Program Lab2;       //Вывод матрицы а размера NxN   procedure PrintMatrix(n:integer;a:matrix);   begin   for i:=0 to n-1 do   begin     for j:=0 to n-1 do       write(a[i,j]:4);     writeln;   end; end;     {Фунция вычисляет для элемента k из змейки чисел его координаты в матрице размера NxN : a[i,j]=k} procedure GetCoordinates(k,n:integer;var i,j:integer);     begin   if (n mod 2=1) then   begin     k1:=sqr(n)-k;  //Симметричный элемент k с другого конца - Обратная спираль(ОСп)     d:=(1+sqrt(k1))/2+0.999;     q:=trunc(d);  //Номер витка ОСп, считая изнутри(начиная с 1)     max:=sqr(2*q-1); //Максим. элемент на витке ОСп - левый верхинй угол     L:=n div 2-q+1; //Левый столбец витка     R:=n div 2+q-1; //Правый столбец витка     T:=n div 2-q+1; //Верхняя столбец витка     B:=n div 2+q-1; //Нижняя столбец витка     Len:=2*q-1;  //Длина стороны витка (кол-во элемнтов на ней)         If k1>max-(Len-1) then       //Верхняя сторона витка       begin         i:=T;         j:=L+max-k1;       end     else      if k1>max-2*(Len-1) then        //Правая сторона витка       begin         i:=T+(max-(Len-1)-k1);         j:=R;       end      else       if k1>max-3*(Len-1) then         //Нижняя сторона витка         begin           i:=B;           j:=R-(max-2*(Len-1)-k1);         end       else        //Левая сторона витка        begin         i:=B-(max-3*(Len-1)-k1);         j:=L;        end   end   end;     {Заполнение матрицы а размера NxN  числами от 0 до N^2-1 по спирали с помощью функции вычисления координат} procedure FillMatrix(n:integer;var a:Matrix);   begin  for k:=0 to N*N-1 do  begin   GetCoordinates(k,n,i,j);   a[i,j]:=k;    end; end;   Begin   writeln('Enter size of matrix n=');   readln(n);   FillMatrix(n,a);   PrintMatrix(n,a); End.

  1. Подскажите, пожалуйста, как перевести программу из Pascal в C#Pascal1 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 procedure AnalizeIdentifier(StrTmp : string); const   //Множество цифр.   Digits = ['0'..'9'];   //Множество разрешённых символов - те которые могут участвовать в записи идентификатора.   ResolvChars = ['_','a'..'z', 'A'..'Z'] + Digits;   var   i : Integer;   IsIdentifier : boolean;   //Флаг, показывающий является ли анализируемая строка идентификатором   begin   //Запускаем цикл последовательной обработки символов строки.   IsIdentifier := True;   for i := 1 to Length(StrTmp) do begin     if       //Текущий символ не принадлежит множеству разрешённых для индентификаторов символов.       not ( StrTmp[i] in ResolvChars )       //Либо текущий символ является первым символом строки и является цифрой.       or ( (i = 1) and (StrTmp[i] in Digits) )     then          begin           //Тогда данная строка не является идентификатором Pascal.             IsIdentifier := False;           //Выходим из цикла.            Break;          end         else          begin                       //Тогда данная строка не является идентификатором Pascal.                       IsIdentifier := False;                       //Выходим из цикла.                       Break;                     end;       end; end;

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 program try; var s :string[10]; t :char; i :integer; begin writeln('Введите слово'); readln(s); t:=s[3]; s[3]:=s[length(s)]; s[length(s)]:=t; writeln(s); end.

  1. 1)Pascal1 2 3 4 5 6 7 8 9 10 var a:array[1..29] of real; m:real; i:byte; begin m:=0;        for i:=1 to 29 do        begin write('kol-vo osadkov ',i,'-go dnya: ');              readln(a[i]);              if a[i]=0 then inc(m);        end;        writeln('kol-vo dney: ',m);        readln; end2)Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 const n=25; var a:array[1..n] of integer; s1,s2:real; i,k,m:integer; begin for i:=1 to n do begin readln(a[i]); if a[i]>100 then begin s1:=s1+a[i]; k:=k+1 end else begin s2:=s2+a[i]; m:=m+1 end; end; writeln('sr massa polnih',s1/k:5:2); writeln('sr massa ostalnih',s2/m:5:2); readlnend.