Перевод программы С++ ** Паскаль! #include #include const float e = 0.0001; int main() {...

Question

Перевод программы С++ на Паскаль! #include #include const float e = 0.0001; int main() { float x; std::cin >> x; float a = (x - 1 ) / x; float s = a; int n = 2; do { a *= (x - 1 ) / x * (n - 1) / n; s += a ; n++ ; } while ( a > e / n ); std::cout << log( x ) << " " << s << std::endl; system( "pause" ); return 0; }

Comments

На самом деле, с С++ на Паскаль перевести намного проще, чем наоборот.

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var e:=0.0001;

 var x:=ReadReal;

 var a:=(x-1)/x;

 var (s,n):=(a,2);

 repeat

   a*=(x-1)/x*(n-1)/n;

   s+=a;

   n+=1

 until a<=e/n;</p>

 Writeln(log(x),' ',s)

end.

---