Помогите составить алгоритм

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Закрыто
cra5h_
Сообщения: 1
Зарегистрирован: 25 май 2006, 20:19

25 май 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
Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

17 ноя 2006, 10:31

А что значит "составить алгоритм к программе"? Программа сама по себе является готовым алгоритмом, записанным на языке программирования
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Закрыто