Как сделать ,чтобы нажималась клавиша либо#108 или либо #121, а потом закрывалась программа совсем?

@k3lwin · Регистрация: 29.10.2014

Author24 — интернет-сервис помощи студентам

Pascal

uses graph,crt,dos;
var gd,gm,x,y:integer;
 k:char;
begin
gd:=detect;
initgraph(gd,gm,'C:\tp\bgi');
setcolor(white);
setfillstyle(1,9);
x:=getmaxX div 2;
y:=getmaxy div 2;
outtextxy(200,10,'Ќ*¦¬ЁвҐ ¤(¤Ґ*м) Ё«Ё *(*®зм)');
if readkey=#108       then
begin
setcolor(yellow);
floodfill(x,y,white);
line(x-200,y,x,y-100);
line(x-200,y,x,y+100);
line(x+200,y,x,y+100);
line(x+200,y,x,y-100);
line(x,y-200,x-100,y);
line(x,y-200,x+100,y);
line(x,y+200,x+100,y);
line(x,y+200,x-100,y);
line(x,y+100,x+150,y+150);
line(x,y-100,x-150,y-150);
line(x-100,y,x-150,y-150);
line(x+100,y,x+150,y+150);
line(x-150,y+150,x,y+100);
line(x+150,y-150,x+100,y);
line(x+150,y-150,x,y-100);
line(x-150,y+150,x-100,y);
end;
if readkey=#121      then
begin
setcolor(white);
floodfill (x,y+90,white);
arc(x,y,270,90,100);
arc(x,y,270,90,90);
line(x,y-100,x,y+100);
end;
closegraph;
readkey;
end.

@ZX Spectrum-128 · 13.11.2014, 17:58

Пытаетесь использовать функциональные клавиши?
Для F1..F10 выдается так называемый расширенный код. Сначала выдается 0, а затем уже код клавиши. Посмотрите как сделано в исправленном коде. Клавиша читается дважды (#68 - F10):

Pascal

  k:=readkey;
  if k = #0 then
    begin
      k := ReadKey;
      if k=#68 then

Pascal

uses
  graph,crt,dos;
var
  gd,gm,x,y:integer;
  k:char;
begin
  gd:=detect;
  initgraph(gd,gm,'C:\bp\bgi');
  setcolor(white);
  setfillstyle(1,9);
  x:=getmaxX div 2;
  y:=getmaxy div 2;
  outtextxy(200,10,'?*│┐Ёв? ¤(¤?*м) Ё<Ё *(*Rзм)');
  k:=readkey;
  if k = #0 then
    begin
      k := ReadKey;
      if k=#68 then
        begin
          setcolor(yellow);
          floodfill(x,y,white);
          line(x-200,y,x,y-100);
          line(x-200,y,x,y+100);
          line(x+200,y,x,y+100);
          line(x+200,y,x,y-100);
          line(x,y-200,x-100,y);
          line(x,y-200,x+100,y);
          line(x,y+200,x+100,y);
          line(x,y+200,x-100,y);
          line(x,y+100,x+150,y+150);
          line(x,y-100,x-150,y-150);
          line(x-100,y,x-150,y-150);
          line(x+100,y,x+150,y+150);
          line(x-150,y+150,x,y+100);
          line(x+150,y-150,x+100,y);
          line(x+150,y-150,x,y-100);
          line(x-150,y+150,x-100,y);
        end;
    end;
if readkey=#121      then
begin
setcolor(white);
floodfill (x,y+90,white);
arc(x,y,270,90,100);
arc(x,y,270,90,90);
line(x,y-100,x,y+100);
end;
closegraph;
readkey;
end.

	13.11.2014, 17:58