Pascal 「記憶體病毒」(騙人的)

2022-09-07 02:18:12 字數 560 閱讀 5563

chaobs從網際網路上獲得

pascal病毒雖然說只用ctrl+pause break就可以關閉,但是像有些程式一旦啟動,不用等你找到那兩個鍵,就自己執行結束關閉了。比如下面乙個程式:

vara:text;

begin

assign(a,'c:\windows\system32\system64.dat');

rewrite(a);

close(a);

end.

這個程式能在0.1秒之內執行結束,但效果非常明顯——電腦打不開了……還比如:

vars:string;

i:integer;

begin

i:=1;

s:='    ';

assign(output,'windows.txt');

rewrite(output);

while i=1 do

writeln(s);

close(output);

end.

效果是:200mb/s(可能隨電腦的速度而改變)當然那句「s:='    ';」如果變長可能速度會更快。

彩票都是騙人的

我以前還是一天至少買幾十,幾百,現在買得越來越少了,因為本來就不富裕,只想給自己找個安慰。話說的好 要想人不知,除非己莫為 世上沒有不透風的牆!買福彩雙色球的朋友現在要注意了 最近我聽一位親戚說 他認識一位福彩搖獎中心的工作人員,兩人有空就經常在一起吃飯 聊天 那位工作人員還跟他講了一些雙色球搖獎內...

騙人的尾遞迴

看函式式程式設計的資料看到這個概念,尾遞迴的定義 另外一片講概念的 看到最後那個快排的例子一頭霧水,然後發現有人和我有一樣的疑問,關於快排的尾遞迴優化的例子的問題 然後,摸魚半天後,再回來看這個問題,突然領悟到尾遞迴 是指那個while,而不是指while中的那個遞迴呼叫。經典 的 尾遞迴的例子,在...

騙人的程式面試題?

看到乙個程式設計師面試題,如下 原文見v july v 給你10分鐘時間,根據上排給出十個數,在其下排填出對應的十個數 要求下排每個數都是先前上排那十個數在下排出現的次數。上排的十個數如下 0,1,2,3,4,5,6,7,8,9 舉乙個例子,數值 0,1,2,3,4,5,6,7,8,9 分配 6,2...