代码搜索：Pascal
找到约 9,253 项符合「Pascal」的源代码
代码结果 9,253
www.eeworm.com/read/306033/13754614
pp pascal_test2.pp
var I, J, K, T;
T := GetTickCount();
for I := 1 to 100000 do
for J := 1 to 10 do
If I > J Then
K := I > 1000
else
K := J < 5;
println GetTickCount() - T;
www.eeworm.com/read/306033/13754625
pp pascal_test1.pp
var
I, J, P, S, T;
T := GetTickCount();
S := 0.0;
P := 1.0;
for I:=1 to 100000 do
for J:=1 to 10 do
begin
P := P / 4.0;
S := S + P;
end;
println GetTickCount() - T;
.
www.eeworm.com/read/306033/13754631
pp pascal_test4.pp
var T = GetTickCount();
Hanoi(20, 'A', 'B', 'C');
println GetTickCount() - T;
procedure Hanoi(N, X, Y, Z);
begin
if N > 0 then
begin
Hanoi(N - 1, X, Z, Y);
Hanoi(N - 1, Z, Y, X);
www.eeworm.com/read/306033/13754633
pp pascal_test3.pp
var
I, J, S, T;
T := GetTickCount();
S := '';
for I:=1 to 10000 do
S := S + 'abc';
println GetTickCount() - T;
println S;
println Length(S);
www.eeworm.com/read/306033/13754718
pp pascal_euler_algorithm.pp
program EulerAlgorithm;
function Cycle(InitV, A: Variant): Variant;
var
P, Stack, U, V;
begin
result := null;
Stack := [InitV, null];
while Stack null do
begin
V := Stack[0