Переделать программы на языке 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(); } }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д