帕斯卡案例无法正常工作

Question

直说吧，我怎样才能让这个菜单正常工作？当我运行程序并想要 select 1 程序只是暂停，当我按下另一个按钮时它只是关闭。

如何让程序读取（显示其中的内容）并使用我从菜单中选择的 selection？

program project1;
uses crt;

Var
izv: Integer;

begin
clrscr;

   Writeln('1. selection');
   Writeln('2. selection');
   Writeln('3. selection');
   Writeln('4. selection');
   writeln;
   writeln('choose: ');

   if izv = 1 then
          begin
             writeln('1. selection');      
          end;

   if izv = 2 then
       begin
        writeln('2. selection');    
        end;

      if izv = 3 then
       begin
        writeln('3. selection');
        end;

     if izv = 4 then
       begin
       writeln('4. selection');
      end;

Readkey;

结束。

Answer 1

您没有读取 izv 变量。您应该使用 readln() 来读取用户输入。

帕斯卡案例无法正常工作

Pascal case not working right

pascal

case