代码搜索：pascal
找到约 9,253 项符合「pascal」的源代码
代码结果 9,253
www.eeworm.com/read/306033/13754743
pp pascal_polynomials.pp
program Polynomials;
procedure Add(InitP, InitQ: Variant);
var
P, Q: Variant;
begin
P := @ InitP;
Q := @ InitQ;
repeat
while P[0][1] < Q[0][1] do
Q := @ Q[1];
if P[
www.eeworm.com/read/306033/13754752
pp pascal_trees.pp
program BinaryTrees;
const
Key = 0;
Left = 1;
Right = 2;
procedure AddNode(const Root, X: Variant);
begin
if Root = null then
Root := [X, null, null]
else if X < Root[Key
www.eeworm.com/read/306033/13754756
pp pascal_lists.pp
program Lists;
var
L, P: Variant;
I: Integer;
begin
writeln('Create a list');
L := [100, [200, [300, null]]];
writeln(L);
writeln('Insert new item at the beginning');
L := [
www.eeworm.com/read/306033/13754763
pp pascal_complex.pp
program OperatorOverloading;
type
Complex = record
re, im: Double;
class const i: Complex = (0.0, 1.0);
// "+"
operator + (x, y: Complex): Complex;
begin
result.re