怎么把PASCAL编的代码变成系统(WINDOWS)可执行文件。

来源:百度知道 编辑:UC知道 时间:2024/06/24 08:07:43
我想看看我编的效果,拜托各位说的清楚点好吗?或着帮我弄好我的编码是这个:program escape(input,output);
var

m,ss,t,ma,ta,tt,i:longint;
s:longint;

begin

assign(input,'escape.in');
assign(output,'escape.out');

reset(input);rewrite(output);
readln(m,s,t);
ss:=0;tt:=0;
ta:=m div 10;ma:=m mod 10;
if ta>=t then
while (s>ss) and (tt<t) do
begin
ss:=ss+60;inc(tt);
end else
begin ss:=ss+60*ta;tt:=tt+ta;end;
while (s-ss>0) and ((t-tt)>0) do
begin
if (s-ss<=17) then begin ss:=ss+17;inc(tt);continue;end;
if ((s-ss>17)and(s-ss<=34)and (ma<6)) then begin ss:=ss+17;inc(tt);continue;end;
if ((s-ss>34)and (s-ss<=51)and (ma<2)) then begin ss:=ss+17;inc(tt);continue;end;
if ((s-ss>51)and (s-ss<=68)) then begin ss:=ss+17;inc(tt);continue;end;
if ((t-tt<7) and (ma<2)) or ((t-tt<3) and ((ma>1) and (ma<=5)))then

下载个free pascal
1.把上面的代码复制到记事本里保存,
2.运行free pascal,
用它open 刚保存的,按ctrl+f9运行后,
按ALT+F5看效果
如果出现"error while linking",关了再来

在DEBUG菜单中有COMPILE