Автор EtoZheMichael задал вопрос в разделе Другие языки и технологии
Задача о 8 ферзях. паскаль и получил лучший ответ
Ответ от Metotron[гуру]
Забей все значения статически, чтобы каждый раз их не пересчитывать, и просто меняй их при нажатии чего там тебе нужно.
Ответ от Олег Батіг[активный]
В разделе var добавь еще "c:char;" без кавычек.//....BeginRepeat begin write(' y-еще раз, n-стоп'); readln(c);clrscr;For i:=1 to 8 do a[i]:=true;For i:=2 to 16 do b[i]:=true;For i:=-7 to 7 do c[i]:=true;CorrectPlace(1);end;Until begin c='N'; c='n'; end;End.
В разделе var добавь еще "c:char;" без кавычек.//....BeginRepeat begin write(' y-еще раз, n-стоп'); readln(c);clrscr;For i:=1 to 8 do a[i]:=true;For i:=2 to 16 do b[i]:=true;For i:=-7 to 7 do c[i]:=true;CorrectPlace(1);end;Until begin c='N'; c='n'; end;End.
Ответ от Jurii[гуру]
Не знаю как на PascalABC, а на PascalABC.Net для окна в GraphABC можно отловить нажатие клавиши обработчиком KeyPress:
var keyPressed : Boolean;
{процедурка реакции на нажатие клавиши}
procedure KeyPress(Key: char);
begin
keyPressed := True;
end;
…
{Где-то в модуле, где нужно подождать}
SetWindowTitle('Для продолжения поиска нажмите любую клавишу.. . ');
keyPressed := False;
repeat
Sleep(100);
until keyPressed;
…
{В основном модуле программы}
…
OnKeyPress := KeyPress;
…
Не знаю как на PascalABC, а на PascalABC.Net для окна в GraphABC можно отловить нажатие клавиши обработчиком KeyPress:
var keyPressed : Boolean;
{процедурка реакции на нажатие клавиши}
procedure KeyPress(Key: char);
begin
keyPressed := True;
end;
…
{Где-то в модуле, где нужно подождать}
SetWindowTitle('Для продолжения поиска нажмите любую клавишу.. . ');
keyPressed := False;
repeat
Sleep(100);
until keyPressed;
…
{В основном модуле программы}
…
OnKeyPress := KeyPress;
…
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Задача о 8 ферзях. паскаль