با سلام.
من آن حلقه را برای آشنایی دادم و گفتم برید داخل اون دو تاپیک چند نوع حلقه بحث شده.
حلقه زیر را تست بزنید:
کد:
program test1 ;
uses crt,graph;
var
Keypress : char ;
begin
WHILE Keypress<>'q' DO
begin
if keypressed then
begin
Keypress := readkey;
if Keypress='a' then
begin
Writeln('raket pak shavad');
Writeln('az mokhtasate raket kam shavad');
Writeln('raket dar jaye jadid rasm shavad');
end;
end;
Writeln(Keypress);
{circle move here}
end;
end.
در آنجایی که نوشتم circle move here محل تغییر مکان دایره(توپ) است. یعنی جایی است که حلقه با سرعت در حال چرخش است. داخل این حلقه پر سرعت if keypressed را داریم. نوعی اندرونی حساب میشه که وقتی اجرا میشه که کاربر دکمه ای را بزنید و الا گویی وجود ندارد و جلوی چرخش حلقه پر سرعت را نمی گیره.
