有一个小程序(做实验报告时用),编译时无错误,运行不了,因为出现错误...

Question

read(year,month);
我想应该是这里的问题。
你改成
read(year);
read(month);
吧。

Answer 1

不行哦,还是不行!
怎么办呢?我刚测试了一下,它又出现 Runtime error 6 00003D3C
但这个error code 我就查都查不到了.
怎么办呢?

Answer 2

改成 read(year);
     readln(month);呢？
如果还不行，找TP7编译吧

Answer 3

writeln('input year');
readln(year);
writeln('input month');
readln(month); 
看看是不是运行到那里了??

Answer 4

我刚又试过了,不行,这下error code是103,
应该是出在writeln('input year')那里了
也就是说I/O error
如果readln语句在前就出在readln语句处,如果writeln语句在前就出在writeln语句处

Answer 5

{ $ I - }
writeln('input year');
readln(year);
writeln('input month');
readln(month); 
{ $ I + }

Answer 6

PROGRAM monthday(input,output);
  {输入年.月,输出该月天数}
{$APPTYPE CONSOLE}  VAR
    year,month,days:integer;
  BEGIN
    {输入年.月}
    read(year,month);
    {计算该月天数}
    CASE month OF
      1,3,5,7,8,10,12:days:=31;
      4,6,9,11      :days:=30;
      2              :IF(year MOD 4=0)
                        AND(year MOD 100<>0)
                        OR(year MOD 400=0)
                      THEN days:=29
                      ELSE days:=28
    END;{CASE}
    {输出年.月.该月天数}
    writeln('year=',year,'month=',month,'days=',days)
END.

Answer 7

PROGRAM monthday(input,output);
  {输入年.月,输出该月天数}
{$APPTYPE CONSOLE}  VAR
    year,month,days:integer;
  BEGIN
    {输入年.月}
writeln('input year');
readln(year);
writeln('input month');
readln(month);
    {计算该月天数}
    CASE month OF
      1,3,5,7,8,10,12:days:=31;
      4,6,9,11      :days:=30;
      2              :IF(year MOD 4=0)
                        AND(year MOD 100<>0)
                        OR(year MOD 400=0)
                      THEN days:=29
                      ELSE days:=28
    END;{CASE}
    {输出年.月.该月天数}
    writeln('year=',year,'month=',month,'days=',days);
    readln;
END.帮忙帮到底了:没错了吧?

Answer 8

Thank you,brothers.
這個程序代碼像第一二個貼子那樣改就行了,雖然在TP FOR WINDOWS V1.5和DEPHI5中運行出錯,但我又裝了TP7.0,運行OK!
愿你們都成為一個優秀的程序員...