[Pascal ABC] Что можно сделать, чтобы после окончания игры, окно с игрой закрывалось и пользователь переходил к меню? Может есть какой то оператор?

[Aлена]

Что можно сделать, чтобы после окончания игры, окно с игрой закрывалось и пользователь переходил к меню? Может есть какой то оператор?

program Graphika;

Uses GraphABC;
var
  kol, v, raz, cordix, cordiy, k, x, y: integer;
  x1, y1, winx, winy, cordx, cordy: real;
  ch: char;
  f: text;

procedure Shablon(i, x, Nasechka, y: integer);{Процедура отрисовки шаблона}
begin
  
  Line(0, 300, 800, 300);     {Сама ось}  {Ось x}
  Line(800, 300, 780, 290);   {Кусок стрелки}                                  
  Line(800, 300, 780, 310);   {Кусок стрелки}
  
  Line(400, 0, 400, 600);     {Сама ось}  {Ось y}
  Line(400, 0, 380, 20);      {Кусок стрелки}                                   
  Line(400, 0, 420, 20);      {Кусок стрелки}                                   
  for i := 1 to 9 do          {Насечки}
  begin
    x := i * 80;              {Преобразование счетчика в пиксели}
    Line(x, 304, x, 296);            {Рисование текущей насечки}             
    TextOut((x - 5), 310, inttostr(Nasechka));   {Текст насечек}               
    Nasechka := Nasechka + 1;         {Переход к следующей насечке}            
  end;                                                                 
  for i := 0 to 9 do           {Насечки}
  begin{}  {}                                
    y := i * 60;                         {Преобразование счетчика в пиксели}     
    Line(396, y, 404, y);                    {Рисование текущей насечки}    
    TextOut(380, (y - 5), inttostr(Nasechka));   {Текст насечек}               
    Nasechka := Nasechka - 1;         {Переход к следующей насечке}        
  end;                                                  
end;

procedure Spravka(f: text);{процедура справки}        
var
  s: string;
begin
  assign(f, 'Spravka.txt');
  reset(f);
  while not eof(f) do 
  begin
    readln(f, s);
    writeln(s);
  end;
  readln;
end;


procedure Game(r: real; var k: integer; winx, winy, x, y, cordx, cordy: real);{Процедура игры}    
begin
  repeat
    read(x, y); {Считываем вариант}                                                 
    x1 := x + 5; {Модификация центра координат}                                         
    y1 := y + 5;                                                                        
    cordx := x1 * 80; {Преобразуем число в координату для рисования}                   
    cordy := y1 * 60;   
    
    r := sqrt(sqr(x - winx) + sqr(y - winy));
    raz := round(r);
    cordix := round(cordx);
    cordiy := round(cordy);
    case raz of             {Получаем число для CASE}
                            {В зависимости от полученного числа рисуем тот или иной кружок}  
      0: 
        begin{}
          Pen.Color := clGreen;                                                        
          Circle(cordix, (600 - cordiy), 5);   
          Pen.Color := clBlack;  {Возвращение цвета пера}
        end;                                                                        
      1: 
        begin{1..5 - Интервал для разницы меж вариантом и искомым}        
          Pen.Color := clRed;  {Назначаем цвет}                                       
          Circle(cordix, (600 - cordiy), 5); {Рисуем окружность с радиусом 5}                        
          Pen.Color := clBlack;  
        end;                                                                           
      2: 
        begin{}
          Pen.Color := clOrange;                                                         
          Circle(cordix, (600 - cordiy), 5);                                                           
          Pen.Color := clBlack;  
        end;                                                                                                                                               
      3..4: 
        begin{}
          Pen.Color := clBlue;                                                         
          Circle(cordix, (600 - cordiy), 5);                                                         
          Pen.Color := clBlack;  
        end;                                                                         
      5..99: 
        begin{}
          Pen.Color := clPurple;                                                       
          Circle(cordix, (600 - cordiy), 5);
          Pen.Color := clBlack;  
        end;                                                                           
    end;                                                                                   
    k := k + 1{Подсчет попыток}                                                           
  until (raz = 0) or (k > 9);                                                                              
  
end;

begin{Основная  программа}
  Randomize;  
  SetWindowSize(800, 600); {Задаем размер экрана}                                 
  
  ch := 'y';
  
  writeln('1 Запуск программы');
  writeln('2 Инструкция');
  writeln('3 Выход');
  repeat
    readln(v);
    
    case v of 
      1: 
        begin
          Pen.Color := clWhite;  {Очистка нижней части экрана}
          Rectangle(0, 0, 800, 100);
          Pen.Color := clBlack;{}
        end;
      2: Spravka(f);
      3: halt;
    end;
  until (v = 1) or (v = 4);
  {Подпрограмма отрисовки шаблона} {счетчик, обнуление преобразований, шаг насечек}
  repeat
    Clearwindow;
    Shablon(1, 0, -4, 0);   
    winx := random(10) - 5;{Рандомим число}
    winy := random(10) - 5; 
    kol := 0; {Обнуляем количество}{Обнуление разницы, координаты, вводимого, передача рандомного, количество}
    
    writeln(winx);
    writeln(winy);
    
    Game(0, kol, winx, winy, x, y, cordx, cordy); {Вызов процедуры игры}
    if raz = 0 then begin
      TextOut(420, 380, 'Вы угдали! Количество попыток составило');{Вывод информации}
      TextOut(420, 400, inttostr(kol));
    end
    else TextOut(420, 380, 'Вы не угадали');
    TextOut(420, 420, 'Хотите сыграть еще?(y/n)');
    readln(ch);
    readln;
  until ch = 'n';
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Aлена

Паскаль АВС

у Вас программа на Pascal ABC.NET

[Serge_Bliznykov]

переключиться из графического окна в обычное (консольное) уже не получится (ну, по крайней мере, я не знаю, как это сделать).
Но Вы можете организовать меню прямо в графическом окне.

посмотрите пример, как это сделано тут - http://studassistent.ru/pascal-abc-n...-pascalabc-net
и сделайте у себя таким же образом.

[Вадим Мошев]

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

переключиться из графического окна в обычное (консольное) уже не получится (ну, по крайней мере, я не знаю, как это сделать).

Вот нашёл: http://pascal.net.ru/RestoreCrtMode

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Вот нашёл: http://pascal.net.ru/RestoreCrtMode

это для Turbo (Borland) Pascal. к PascalABC.NET это отношения не имеет.

[Вадим Мошев]

А оно не будет в PascalABC.NET работать?

[Serge_Bliznykov]

Сообщение от Вадим Мошев

А оно не будет в PascalABC.NET работать?

нет.
начиная с того, что в PascalABC.NET нет модуля Graph (есть GraphABC)
в нём нет (и нет необходимости) процедуры InitGraph().
Впрочем, как и многих остальных, начиная с OutText, CloseGraph
и заканчивая тем, что нет процедуры RestoreCrtMode;

впрочем, я же выше дал ссылку на то, как можно решить задачу.
никто не мешает выводить текст меню в графическом окне, отпадает необходимость переключать окна.

я уже молчу о том, что Pascal ABC.NET - это полноценное Windows приложение, в нём можно создавать окна, использовать события мышки, клавиатуры, использовать системные функции (стандартное меню Windows) и т.д. и т.п.