Question

我的代码出了问题。它开始很好但是当要求在开始时从用户那里获得输入时它将不会移动到if语句。我怎样才能解决这个问题。我已经尝试过很多东西来解决这个问题并最终让它读取数据，但不断说它是无效的。

Inject

Answer 1

像这样的问题经常会引起像＃34这样的评论;所以不是做作业服务＆＃34。这个q有点特殊，因为我没有礼貌的方式可以思考描述它。它的所有迹象都是由某人写的并不是真的知道他们在做什么 - 但不要绝望，我们都是初学者一次！

我不打算为你重写所有代码 - 因为你不会从中学到任何东西 - 但是以下内容应该至少给出你是一个功能性的主循环，你可以自己完成并根据需要进行修饰。

我修复的主要内容是循环中的动作序列 - 原始动作温和地说，这完全是混乱。我在大括号{}中添加了各种评论。有一种更新的评论风格使用//但我不知道什么风味 Pascal你正在使用。

代码：

const
    band6 = 90;
    band5 = 80;
    band4 = 70;
    band3 = 60;
    band2 = 50;
    ArraySize = 20;  { to set explicit array sizes }
var
    studname : array[1..ArraySize] of string;
    studmark : array[1..ArraySize] of integer;
    flag : boolean;
    studinfo : text;
    kbdinput : string; { to avoid name clash with program Input param}
    count : integer;
    num : integer;
    {input2: integer; not used}
    highmark,
    lowmark : integer;
    median, average : integer;

begin
    lowmark := 100;
    highmark := 0;
    median := 0;
    assign (studinfo, 'c:\temp\examresults.txt'); { always use full path for file name }
    Rewrite(studinfo);  { set studinfo in the state to allow writing to the file}

    flag := false;
    writeln('welcome to the band generator.');
        writeln('to enter student results, please enter the number of students when prompted.');
    while flag = false do
    begin
        write('please enter a valid number of students. ');
        readln(num);
        for count := 1 to num do { not change of start and stop values}
        begin
          write('please enter name of student #', count, ' followed by [Enter] ');
          readln(studname[count]);
          write(studinfo, studname[count]);

          write('please enter mark of student #', count, ' out of 100 (nearest whole number) followed by [Enter] ');
          readln(studmark[count]);
          write(studinfo, studmark[count]);
        end;
{
            if studmark[count] >=band6 then
                writeln(studinfo, 'band6');
            if studmark[count] >=band5 then
                writeln(studinfo, 'band5');
            if studmark[count] >=band4 then
                writeln(studinfo, 'band4');
            if studmark[count] >=band3 then
                writeln(studinfo, 'band3');
            if studmark[count] >=band2 then
                writeln(studinfo, 'band2');
            if studmark[count] <band2 then
                writeln(studinfo, 'band1');
            if studmark[count] >= highmark then
                highmark := studmark[count];
            if studmark[count] <= lowmark then
                lowmark := studmark[count];
            end;
        median := highmark mod 2;
}

      writeln('to see class statistics, please type zzz. to clear the screen type zzz and to exit the program, type exit');
      readln (kbdinput);
      if kbdinput = 'zzz' then
      {  The following does nothing useful
          while not eof(studinfo) do
          begin
              writeln(studinfo);
          end;
      }
      ;
      if kbdinput = 'exit' then
          flag := true
      else
        if kbdinput = 'clear screen' then
          {clrscr;'}

      close(studinfo);
    end;
end.

Answer 2

看看你的专栏：

While flag = false DO
        ReadLN (input);

标志永远不会是假的，所以它永远读取。您的开始/结束块有问题。

代码没有超过Read

2 个答案: