toribash.ru — программирование на turbo pascal

Re: программирование на turbo pascal

null@example.com (Mariacho) — Fri, 04 Mar 2011 19:44:32 +0000

[b]ego22[/b]
ну.. вся рекурсия это один большой цикл, в котором [b]i[/b] играет ключевую роль.
Вообще, делать рекурсией не очень выгодно, ибо он СТЕПЕНЬ-1 раз прокручивает в холостую.
[b]i[/b] по сути дела самый обычный счетчик;
изначально i:=1 (задаю в первой строке головной программы), в конце i=СТЕПЕНЬ;

Mariacho пишет:

if step>1 then begin for f:=1 to i-1 do otvet:=otvet*chisl; if i

это ключевые строки;
даже не знаю.. понятно ли я объяснил.. могу чуток преобразовать программу, чтобы она выводила каждый шаг все значения переменных, чтобы
ты мог отследить изменения [b]i[/b]

Re: программирование на turbo pascal

null@example.com (ego22) — Fri, 04 Mar 2011 19:24:48 +0000

[b]Mariacho[/b]
а чему равно i изначально и после? и для чего ето надо?

Re: программирование на turbo pascal

null@example.com (Mariacho) — Fri, 04 Mar 2011 19:17:30 +0000

[b]ego22[/b]
inc - это инкриминтировать расшифровывается;
используется для увеличения числа, стандартно [b]inc(i)[/b] - означает i+1, т.е. вместо этого можно было написать [b]i:=i+1[/b] (более привычный вид)
вообще, это довольно удобная функция, можно задать на сколько ты хочешь увеличить, например [b]inc(i,3) [/b]- как думаю ты уже понял i:=i+3.. ну и дальше по аналогии.
зы: обратная команда, dec(i) уменьшает.

Re: программирование на turbo pascal

null@example.com (ego22) — Fri, 04 Mar 2011 19:10:58 +0000

[b]Mariacho[/b]
все работает спасибо. поставил пять плюсов
только поясни это:

inc (i);

Re: программирование на turbo pascal

null@example.com (Mariacho) — Fri, 04 Mar 2011 13:48:32 +0000

[b]Niew[/b]
ну я уже ее выложил, но

Niew пишет:

function func(x:[b]double,n:long):double[/b];
begin
[b] if(n == 0) [/b][b]return[/b] 1;
if(n < 0) [b]return power[/b] ( 1 / x, -n);
if(n mod 2) [b]return[/b] x * [b]power[/b] (x, n - 1);
[b]return power[/b](x * x, n / 2);
end;

подчеркнутого в паскале как бы нет @_@
что-то можно ввести, например типы переменных, но тут явно паскалем не пахнет

Re: программирование на turbo pascal

null@example.com (Niew) — Fri, 04 Mar 2011 13:15:35 +0000

Mariacho пишет:

это не паскаль =\

Это алгоритм - что я буду писать что ли всё с бигинами эндами и врайтлайнами ) я там выше разобрал кое что.... самим тож надо думать ... на самом деле лень качать турбопаскаля раде одной простой задачки вам.

Re: программирование на turbo pascal

null@example.com (Mariacho) — Fri, 04 Mar 2011 12:56:38 +0000

[b]Niew[/b]

Niew пишет:

function func(x:double,n:long):double;
begin
if(n == 0) return 1;
if(n < 0) return power ( 1 / x, -n);
if(n mod 2) return x * power (x, n - 1);
return power(x * x, n / 2);
end;

это не паскаль =\

Re: программирование на turbo pascal

null@example.com (Niew) — Fri, 04 Mar 2011 12:53:36 +0000

ego22 пишет:

верно

Хм... а я вроде как рекурсию вам и дал ну только деление через мод див надо делать - я на сях пишу дано уже просто .
провеняем n - наша рекурсивная переменная степени
if(n == 0) return 1;
Если степень равна 0 = выдаёт еденицу ->геймовер ->выход
if(n < 0) return power ( 1 / x, -n);
Если степень отрицательна, то выводим->pow ( 1 mod x, n) (я непомню как в турбо уже функция степени выглядит)
и уменьшаем n на еденицу
if(n mod 2) return x * power (x, n - 1);
Если степень кратна двум умнажем Х на икс в спенени -1 ) (это чтобы значение икса не затереть)
return power(x * x, n / 2);
Мобщем читаем алгебру и алгоритм будет понятен )
end;
Если это не рекурсия то тогда что рекурсия ?

Re: программирование на turbo pascal

null@example.com (Mariacho) — Fri, 04 Mar 2011 12:43:43 +0000

сори за дабл,
[b]ego22[/b]
бро, с тебя большущий пирожок, ибо долго просидел =D

uses crt;
var otvet,a:integer; b,i:byte;
Procedure vozvedeniye (chisl:integer;step:byte);
var f:byte;
begin
f:=1;
otvet:=chisl;
if step=0 then otvet:=1;
if step>1 then begin
               for f:=1 to i-1 do otvet:=otvet*chisl;
               if i