Переделать программы на языке 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
Похожие ответы