Сделать "рерайт" кода и прокомментировать. Век не забуду.

[Vilgelm]

Здравствуйте. У меня есть код программы, требуется его "переписать своими словами", т.е. сделать всю программу или хотя бы её часть по другому. Ну и прокомментировать код.

Был бы очень, очень признателен.

Код:

uses crt;
var i,n:integer;
    t,x,s,l,a,z:double;
begin
clrscr;
write('Vvedite kolichestvo shagov i=');
readln(n);
write('Vvedite chislo x=');
readln(x);
writeln(x:2:2,'  ');
a:=1;
l:=x;
z:=x;
for i:=1 to n-1 do begin
a:=a*(2*i+1)*2*i;
z:=-1*z*x*x;
t:=z/a;
l:=l+t;
writeln(l:5:5,'  ');
end;
readkey;
end.

[NetSpace]

по строчкам:
1. модуль crt, чтоб работали некоторые дополнительные функции, кроме ввода/ вывода.
2.перечисляешь используемые переменные: Integer - целочисленный тип, 3 double - числа с плавающей запятой.
4. начало тела программы
5.очистка экрана от работы предыдущих программ под DOS'ом
6.выводит текст с предложением ввести число i ( хотя должно быть n )
7. оператор ввода этого числа i с клавиатуры
8. выводит текст с предложением ввести число x
9.оператор ввода этого числа i с клавиатуры
10. выводит строчку, в которой выводятся 2 знака до запятой и после неё
11.начальное значение a=1
12. переменной l присваивается значение x
13. переменной z присваивается значение x
14. цикл по всем i от 1 до n-1 начало
15. счиатем новое значение переменной a
16. счиатем новое значение переменной z
17. счиатем новое значение переменной t
18. счиатем новое значение переменной l
19. выводим на экран значение l: 5 знаков до запятой и после, так по-моему...
20. конец цикла
21. ждёт нажатия клавиши, чтоб закрыть консольное окно.
22. конец программы.


а что она делает? какую-то прогрессию считает? это математикам нужно выводить такое, нам, физикам, такого простого не давали...