Переделать программы на языке Pascal в C#

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

                    Листинг программы
                
 
                        
                          
                    
var
  a,b,r: real;
  i,N:integer;
begin
  a:=0;
  b:=0;
  r:=1;
  write('N = ');
  readln(N);
  for i:=1 to N do
    begin
      a:=a+cos(i);
      b:=b+sin(i);
      r:=r*(a/b);
    end;
  writeln('Результат = ',r:0:2);
  readln;
end.

                    Листинг программы
                
 
                        
                          
                    
const e=0.001;
var
  sum,m: real;
  i,n:integer;
begin
  n:=0;sum:=0;m:=0;
  writeln('n');
  readln(n);
  repeat
    inc(n);
    sum:=sum+m;
    m:=1/((3*n-2)*(3*n-1));
  until m<e;
writeln('Сумма членов = ',sum:0:2);
readln;
end.

Заранее огромное спасибо:3

Решение задачи: «Переделать программы на языке Pascal в C#»

textual
                            Листинг программы 
                        
 
                        
                          
                    
using System;
 
    class Program
    {
        static void Main(string[] args)
        {
            const double e = 0.001;
            double sum = 0, m = 0;
            Console.WriteLine("n");
            double n = double.Parse(Console.ReadLine());
            do
            {
                n++;
                sum += m;
                m = 1 / ((3 * n - 2) * (3 * n - 1));
            }
            while (m >= e);
            Console.WriteLine("Сумма членов = {0:f2}", sum);
 
            Console.ReadKey();
        }
    }

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

6 голосов , оценка 4 из 5

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

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

Похожие ответы