1

問題があります！

テキストファイル「T」の偶数行にある感嘆符の数を定義する必要がありますまた、これらの文字が2つ以上ある行を印刷する必要があります

私のプログラムは正しいはずですが、PascalABC は 3 行目にエラーを表示します - 「予想される型」

私を助けてくださいまたはあなた自身を書いてください

program text;
var
  T: Text;
  fName: string;
  str: string;
  i: integer;
  numStr: integer;    {Number of current string in file}
  amtSymb: integer;   {count !}
begin
  clrscr;
  write('enter input file name: ');
  readln(fName);
  assign(T,fName); 
  reset(T);          {open file for reading}
  numStr := 0;
  while not EoF(T) do begin  {Reads a line, until we reach the end of file}
    readln(T,str);
    inc(numStr);
    if ((numStr mod 2) = 0) then begin     {If an even line}
      amtSymb := 0;                     
      for i := 1 to length(str) do begin   {We examine each character in the string and read "!"}
        if (str[i] = '!') then
          inc(amtSymb);
      end;
      if (amtSymb > 2) then    {Display the line if more than two "!"}
        writeln(str);
    end;
  end;
  close(T);
  writeln('press any key to exit...');
  readKey;
end.
4

1 に答える 1

3

最も可能性が高いのは、プログラム名textとTextファイル タイプの間で名前が競合していることが原因です。プログラムの名前を別の名前に変更してみてください。

また、本体では、偶数かどうかを確認する前に numStr をインクリメントします。おそらく、inc.

于 2014-03-16T14:16:03.973 に答える