[PascalABC] Как правильно составить блок-схему с рекурсией ?

[artems67]

Здравствуйте,

Составил программу по тз с рекурсией

ТЗ: Написать подпрограмму для вычисления a^b

Код:

Program Laba_24_Ivan;
uses crt;

var x,p,s:real; n:integer;

Procedure Power (a: real; b:integer; var Y:real);
begin
 if b=0 then
   y:=1
 else begin Power (a,b-1,y); {Рекурсия}
    y:=y*a;
  end;
end;

begin
clrscr;
p:=1;
Write('a= ');
 readln(x);
Write('b= ');
 readln(n);
Power(x,n,p);
write('Ответ: y= ',p:2:2);
readln;
end.

Как правильно составить блок-схему подпрограммы-процедуры Power, отразив в ней рекурсию ?

Заранее спасибо!

[ura_111]

Сам я не знаю, но вот в интернете что-то нашёл:

6.jpg

p.s.: обращай внимание на значки - они по ГОСТУ или нет? Как вас учили?