Причина перевыполнения, исправить repeat - Turbo Pascal

Формулировка задачи:

  x, y, z, w, n: LongInt;
 
var
  x, y, z, w, n: LongInt;
begin
  n := MaxLongInt;
  n := Trunc(Sqrt(n));
  n := n - 7;
  x := 0:
  WriteLn('Все целые решения уравнения x^3 = y^2 + 63,');
  WriteLn('для 1 <= y <= ', n, ':');
  for y := 1 to n do
  begin
        z := y * y + 63:
        repeat
                Inc(x);
                w := x * x * x;
                until w>= z;
                if w = z then
                Writeln('(x, y) = (', x, ' ,' ,y, ')')
                else Dec(x);
  end
  Write('Работа закончена, нажчмите <Enter>:');
  ReadLn;
end.

Код к задаче: «Причина перевыполнения, исправить repeat - Turbo Pascal»

textual
var
  x, y, z, w, n: LongInt;
 
begin
  n := MaxInt;
  n := Trunc(Sqrt(n));
  n := n - 7;
  x := 0;
  WriteLn('Все целые решения уравнения x^3 = y^2 + 63,');
  WriteLn('для 1 <= y <= ', n, ':');
  for y := 1 to n do
  begin
    z := y * y + 63;
    repeat
      Inc(x);
      w := x * x * x;
    until w >= z;
    if w = z then
      Writeln('(x, y) = (', x, ' ,', y, ')')
    else Dec(x);
  end;
  Write('Работа закончена, нажчмите <Enter>:');
  ReadLn;
end.

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы
Для поиска решения или похожих решений вы можете воспользоваться "Поиском по сайту" или "Поиском по разделу"
Поиск по сайту