發表新討論
#5559: 为什么会CE


Gxq (琦儿)

學校 : 广东省汕头金山中学
編號 : 19487
來源 : [61.141.0.211]
最後登入時間 ：
2011-09-26 21:02:26
d170. 飛蛾撲火(一) -- me | From: [183.46.132.110] | 發表日期 : 2011-08-11 15:45
var i,n,x1,x2,x3,y1,y2,y3:longint;
    a,b:real;
    j:boolean;
begin
  repeat
   readln(n);
   for i:=1 to n do begin
   readln(x1,y1,x2,y2,x3,y3);
    j:=false;
    a:=(y1-y2)/(x1-x2);
    b:=y1 - a * x1 ;
    if (( x3 > x1) and (x3 < x2)) or (( x3 < x1) and (x3 > x2))  then
     if( x3 *a+b =y3) then j:=true;
    if j=true then writeln('該死的東西!竟敢想讓我死！') else writeln('父親大人!母親大人!我快到了！');
   end;
  until eof;
这个pascal的 总是ce編譯錯誤， 請檢查語法是否符合系統所支援的編譯器的要求。
錯誤訊息：
Free Pascal Compiler version 2.4.0 [2009/12/18] for x86_64
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for x86-64
Compiling /tmp/code_870712.pas
code_870712.pas(17) Fatal: Unexpected end of file
 
 
#5560: Re:为什么会CE


liouzhou_101 (王启圣)

學校 : 广西柳州高级中学
編號 : 3714
來源 : [126.108.190.144]
最後登入時間 ：
2023-07-21 17:40:51
d170. 飛蛾撲火(一) -- me | From: [49.140.124.21] | 發表日期 : 2011-08-11 15:50
var i,n,x1,x2,x3,y1,y2,y3:longint;
    a,b:real;
    j:boolean;
begin
  repeat
   readln(n);
   for i:=1 to n do begin
   readln(x1,y1,x2,y2,x3,y3);
    j:=false;
    a:=(y1-y2)/(x1-x2);
    b:=y1 - a * x1 ;
    if (( x3 > x1) and (x3 < x2)) or (( x3 < x1) and (x3 > x2))  then
     if( x3 *a+b =y3) then j:=true;
    if j=true then writeln('該死的東西!竟敢想讓我死！') else writeln('父親大人!母親大人!我快到了！');
   end;
  until eof;
这个pascal的 总是ce編譯錯誤， 請檢查語法是否符合系統所支援的編譯器的要求。
錯誤訊息：
Free Pascal Compiler version 2.4.0 [2009/12/18] for x86_64
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for x86-64
Compiling /tmp/code_870712.pas
code_870712.pas(17) Fatal: Unexpected end of file


你的end.去哪了？ 
#5561: Re:为什么会CE


Gxq (琦儿)

學校 : 广东省汕头金山中学
編號 : 19487
來源 : [61.141.0.211]
最後登入時間 ：
2011-09-26 21:02:26
d170. 飛蛾撲火(一) -- me | From: [183.46.132.110] | 發表日期 : 2011-08-11 15:52
var i,n,x1,x2,x3,y1,y2,y3:longint;
    a,b:real;
    j:boolean;
begin
  repeat
   readln(n);
   for i:=1 to n do begin
   readln(x1,y1,x2,y2,x3,y3);
    j:=false;
    a:=(y1-y2)/(x1-x2);
    b:=y1 - a * x1 ;
    if (( x3 > x1) and (x3 < x2)) or (( x3 < x1) and (x3 > x2))  then
     if( x3 *a+b =y3) then j:=true;
    if j=true then writeln('該死的東西!竟敢想讓我死！') else writeln('父親大人!母親大人!我快到了！');
   end;
  until eof;
这个pascal的 总是ce編譯錯誤， 請檢查語法是否符合系統所支援的編譯器的要求。
錯誤訊息：
Free Pascal Compiler version 2.4.0 [2009/12/18] for x86_64
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for x86-64
Compiling /tmp/code_870712.pas
code_870712.pas(17) Fatal: Unexpected end of file


你的end.去哪了？
貌似加end.还不过耶..
 
#5562: Re:为什么会CE


Gxq (琦儿)

學校 : 广东省汕头金山中学
編號 : 19487
來源 : [61.141.0.211]
最後登入時間 ：
2011-09-26 21:02:26
d170. 飛蛾撲火(一) -- me | From: [183.46.132.110] | 發表日期 : 2011-08-11 15:59
var i,n,x1,x2,x3,y1,y2,y3:longint;
    a,b:real;
    j:boolean;
begin
  repeat
   readln(n);
   for i:=1 to n do begin
   readln(x1,y1,x2,y2,x3,y3);
    j:=false;
    a:=(y1-y2)/(x1-x2);
    b:=y1 - a * x1 ;
    if (( x3 > x1) and (x3 < x2)) or (( x3 < x1) and (x3 > x2))  then
     if( x3 *a+b =y3) then j:=true;
    if j=true then writeln('該死的東西!竟敢想讓我死！') else writeln('父親大人!母親大人!我快到了！');
   end;
  until eof;
end.
 
 執行時發生錯誤，PASCAL 代碼(code:200)
 
#5563: Re:为什么会CE


grd (保持好奇心)

學校 : 臺中市私立明道高級中學
編號 : 18826
來源 : [140.113.207.250]
最後登入時間 ：
2019-01-21 21:20:44
d170. 飛蛾撲火(一) -- me | From: [140.128.156.252] | 發表日期 : 2011-08-11 16:08
var i,n,x1,x2,x3,y1,y2,y3:longint;
    a,b:real;
    j:boolean;
begin
  repeat
   readln(n);
   for i:=1 to n do begin
   readln(x1,y1,x2,y2,x3,y3);
    j:=false;
    a:=(y1-y2)/(x1-x2);
    b:=y1 - a * x1 ;
    if (( x3 > x1) and (x3 < x2)) or (( x3 < x1) and (x3 > x2))  then
     if( x3 *a+b =y3) then j:=true;
    if j=true then writeln('該死的東西!竟敢想讓我死！') else writeln('父親大人!母親大人!我快到了！');
   end;
  until eof;
end.
 
 執行時發生錯誤，PASCAL 代碼(code:200)

code 200 是被 0 除了 
ZeroJudge Forum