Найти сумму ряда - Turbo Pascal (35280)

Узнай цену своей работы

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

турба паскаль задача s=10/1+10^2/ * 2+10^3/1*2*3+...
Срочно нужно, с меня спасибки
http://saveimg.ru/show-image.php?id=8461788663d8c645f2bbee96f661d924 Вот так она выгледит

Решение задачи: «Найти сумму ряда»

textual
Листинг программы
uses crt;
var
   i,n:integer;
   sum,ch,zn:real;
begin
   clrscr;
   write('n=');
   read(n);
   sum:=0;
   zn:=1;
   ch:=1;
   for i:=1 to n do
    begin
       zn:=zn*i;
       ch:=ch*10;
       sum:=sum+ch/zn;
       write(ch:1:1,'/',zn:1:1,'+');
    end;
   write('=',sum:2:2);
   readkey;
end.

Объяснение кода листинга программы

  1. В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Переменные i, n, sum, ch и zn объявлены как целые числа, число с плавающей запятой и логические значения соответственно.
  3. Строка clrscr очищает экран перед началом работы программы.
  4. В строке write('n=') считывается значение переменной n.
  5. В строке read(n) считывается значение переменной n.
  6. Переменная sum инициализируется значением 0.
  7. Переменная zn инициализируется значением 1.
  8. Переменная ch инициализируется значением 1.
  9. Запускается цикл for, который выполняется от 1 до n.
  10. Внутри цикла переменная zn умножается на i.
  11. Переменная ch умножается на 10.
  12. Переменная sum суммирует значение ch, деленное на zn.
  13. Строка write(ch:1:1,'/',zn:1:1,'+') выводит на экран значение ch/zn с разделителем /.
  14. После завершения внутреннего цикла переменная sum выводится на экран.
  15. Программа завершается вызовом функции readkey, который ожидает ввода пользователя.

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

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