Найти сумму ряда - 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.
Объяснение кода листинга программы
- В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
- Переменные i, n, sum, ch и zn объявлены как целые числа, число с плавающей запятой и логические значения соответственно.
- Строка clrscr очищает экран перед началом работы программы.
- В строке write('n=') считывается значение переменной n.
- В строке read(n) считывается значение переменной n.
- Переменная sum инициализируется значением 0.
- Переменная zn инициализируется значением 1.
- Переменная ch инициализируется значением 1.
- Запускается цикл for, который выполняется от 1 до n.
- Внутри цикла переменная zn умножается на i.
- Переменная ch умножается на 10.
- Переменная sum суммирует значение ch, деленное на zn.
- Строка write(ch:1:1,'/',zn:1:1,'+') выводит на экран значение ch/zn с разделителем
/
. - После завершения внутреннего цикла переменная sum выводится на экран.
- Программа завершается вызовом функции readkey, который ожидает ввода пользователя.