Объясните часть программы

[aleko05]

Задали написать программу для возведения х в степень у и проверить её в двоичной системе
т.к сам пока не очень в этом понимаю и написать программу с 0 не смог, скинули готовую. Немного оптимизировал её, рассмотрев исключительную ситуацию, но кусок, где происходит само возведение в степень, не понимаю.
1) каким образом идет проверка в двоичной системе?
2) в какой конкретной строке происходит возведение х в степень у?
3) почему при возведение х=0 в степень у меня помимо 0 выводится на экран '1' ?

Program St;
var x,s,p:real;
    y,z,c:integer;
begin
     write ('x=');
     readln(x);
     write ('y=');
     readln(y);
     begin
     if x=0 then
                if y>0 then
                           writeln('0')
                       else
                           writeln('Неопределенность')
            else

                z:=abs(y);
                p:=x;
                s:=1;
            repeat
                c:= z mod 2;
                z:= z div 2;
                if c=1 then
                           s:=s*p;
                           p:=p*p;
                until
                 z<=0;
     end;
     if y<0 then
                writeln (1/s)
            else
                writeln (s);
end.

Заранее благодарен.

[ViktorR]

3) почему при возведение х=0 в степень у меня помимо 0 выводится на экран '1' ?
Вначале срабатывает этот код:

if x=0 then
   if y>0 then
      writeln('0')
   else
      writeln('Неопределенность')
else
   z:=abs(y);

а затем:

s:=1;

и

if y<0 then
   writeln (1/s)
else
   writeln (s);

(Тут только основные моменты отмечены).
2) в какой конкретной строке происходит возведение х в степень у?
А конкретной строки и нет
Есть только набор строк.

И по смыслу, второй begin стоит не в том месте...
Он вроде должен быть тут:

 ...
  else
  begin
      z:=abs(y);
      p:=x;
      ...
  end;

Как-то так ...

[aleko05]

Сообщение от ViktorR

3) почему при возведение х=0 в степень у меня помимо 0 выводится на экран '1' ?
Вначале срабатывает этот код:

if x=0 then
   if y>0 then
      writeln('0')
   else
      writeln('Неопределенность')
else
   z:=abs(y);

а затем:

s:=1;

и

if y<0 then
   writeln (1/s)
else
   writeln (s);

как это исправить, не подскажете?

Есть только набор строк

это значит, что код настолько ужасен, или я себя накручиваю?

[ViktorR]

как это исправить, не подскажете?

Например:

if x=0 then
begin
  if y>0 then
     writeln('0')
  else
     writeln('Неопределенность');
  Exit;
end
else
begin
...
...
end;

это значит, что код настолько ужасен, или я себя накручиваю?

Ну, вроде такой алгоритм выбран...


Как-то так ...