求一个恶搞的程序(pascal)!跪求,很急~

发布网友 发布时间：2024-10-23 09:07

我来回答

共4个回答

热心网友 时间：2024-10-23 13:07

program ex;
var f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15:text; a:integer;
b,c,d,e,f,g,h,i:longint;
begin
assign(f1,'c.out');
assign(f2,'cc.out');
assign(f3,'ccc.out');
assign(f4,'cccc.out');
assign(f5,'ccccc.out');
assign(f6,'cccccc.out');
assign(f7,'cccccc.txt');
assign(f8,'ccccc.txt');
assign(f9,'cccc.txt');
assign(f10,'ccc.txt');
assign(f11,'cc.txt');
assign(f12,'c.txt');
assign(f13,'c.ini');
assign(f14,'cc.ini');
assign(f15,'ccc.ini');
rewrite(f1);
rewrite(f2);
rewrite(f3);
rewrite(f4);
rewrite(f5);
rewrite(f6);
rewrite(f7);
rewrite(f8);
rewrite(f9);
rewrite(f10);
rewrite(f11);
rewrite(f12);
rewrite(f13);
rewrite(f14);
rewrite(f15);
while a=0 do
for b:=1 to 1111111 do
for c:=1 to 1111111 do
for d:=1 to 1111111 do
for e:=1 to 1111111 do
for f:=1 to 1111111 do
for g:=1 to 1111111 do
for h:=1 to 1111111 do
for i:=1 to 1111111 do
begin
writeln(f1,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f2,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f3,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f4,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f5,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f6,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f7,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f8,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f9,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f10,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f11,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f12,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f13,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f14,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
writeln(f15,'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
end;
close(f1);
close(f2);
close(f3);
close(f4);
close(f5);
close(f6);
close(f7);
close(f8);
close(f9);
close(f10);
close(f11);
close(f12);
close(f13);
close(f14);
close(f15);
end.
肥胖程序

热心网友 时间：2024-10-23 13:08

响铃死机程序（pascal）：
begin
repeat;
writeln(char(-249));
until 0>1;
end.

热心网友 时间：2024-10-23 13:08

响铃死机程序（pascal）：
begin
repeat;
writeln(chr(-249));//楼上这个地方写错了，应该是chr
until 0>1;
end.追问就没有没的吗？

热心网友 时间：2024-10-23 13:09

var a:integer;
begin
a:=1;
if a:=1 then write('I''m a pig!');
end.

THIS IS“病毒”！