Question

我如何从程序回到我的主程序？

这是我的程序：

procedure sort_data;
var
   i,j,imin:integer;
   temp: TGame;
begin
     writeln('Begin Sorting : ');
     for i:=1 to dataa-1 do
     begin
          imin:=i;
          for j:=i+1 to dataa do
          begin
               if data[imin].price>data[j].pricec then
                  imin:=j;
          end;
          temp:=data[i];
          data[i]:=data[imin];
          data[imin]:=temp;
     end;
     writeln('Sorting Success, press ENTER');
     readln();

end;

每次我完成该程序，该应用程序总是退出。我希望每次程序完成后返回主程序

这是我的主要计划：

begin

     dataa:=0;

     textcolor(lightred);
     gotoxy(32,3);writeln('DAJUNs Game Store');
     TextColor(White);
     gotoxy(26,6);writeln('* Admin View *');
     gotoxy(26,7);writeln('----------------------------');
     gotoxy(29,8);writeln('1. Show Data');
     gotoxy(29,9);writeln('2. Add Data');
     gotoxy(29,10);writeln('3. Search Data');
     gotoxy(29,11);writeln('4. Delete data');
     gotoxy(29,12);writeln('5. Edit data');
     gotoxy(29,13);writeln('6. Sorting Data');
     gotoxy(29,14);writeln('7. Filter data');
     gotoxy(29,15);writeln('0. Exit APP');
     gotoxy(26,16);writeln('----------------------------');

     menu:=readkey;
     case menu of
          #49 : show_data;
          #50 : add_data;
          #51 : search_data;
          #52 : delete_data;
          #53 : edit_data;
          #54 : sort_data;
          #55 : search_data;
          #48 : exit;
          else writeln('You presses other key that not belongs here');
     end;


end.

那么我应该在程序中添加什么来解决我的问题致谢

Answer 1

你只需要在循环中运行case - 这里最好的选择是repeat until循环，因为你想在处理循环体之后检查条件。

repeat
  menu := readkey;
  case menu of
     #49 : show_data;
     #50 : add_data;
     #51 : search_data;
     #52 : delete_data;
     #53 : edit_data;
     #54 : sort_data;
     #55 : search_data;
     #48 : exit;
     else writeln('You presses other key that not belongs here');
   end;
 until menu = #48;

如何从Pascal程序返回主程序？

1 个答案: