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


Gxq (琦儿)

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 (王启圣)

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 (琦儿)

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 (琦儿)

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 (保持好奇心)

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