Переделать программы на языке 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.Решение задачи: «Переделать программы на языке 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();
}
}