PDA

Просмотр полной версии : Помогите составить алгоритм



cra5h_
25.05.2006, 20:24
Вот гланый кусок программы на Турбо-паскаль, люди помогите составить к ней алгоритм.


begin
n:=0;
sum:=0;
while ((exp((2*n+1)*ln(x)))/fact)>limit do
begin
fact:=1;
k:=2*n+1;
for I:=1 to k do
begin
fact:=fact*i;
end;
if(n mod 2) = 0
then sum:=sum+((exp((2*n+1)*ln(x)))/fact)
else
begin
sum:=sum-((exp((2*n+1)*ln(x)))/fact)
end;
n:=n+1;
end;
kur:=sum;
end;
begin
clrscr;
write('Введите значение Х_1 -');
readln(x);
writeln ('Ситемная функция sin='',sin(x):5:4:);
writeln ('Мой синус = ',kur(x):5:4:);
writeln('////////////////////////////////////////////////////////');
write('Введите значение Х_2');
writeln ('Ситемная функция sin='',sin(x):5:4:);
writeln ('Мой синус = ',kur(x):5:4:);
readln;
end.

Если что шлите мне на мыло lee-ebay@ukr.net

Хыиуду
17.11.2006, 10:31
А что значит "составить алгоритм к программе"? Программа сама по себе является готовым алгоритмом, записанным на языке программирования