帕斯卡案例无法正常工作
Pascal case not working right
直说吧,我怎样才能让这个菜单正常工作?当我 运行 程序并想要 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;
结束。
您没有读取 izv
变量。您应该使用 readln() 来读取用户输入。
直说吧,我怎样才能让这个菜单正常工作?当我 运行 程序并想要 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;
结束。
您没有读取 izv
变量。您应该使用 readln() 来读取用户输入。