代码大全

28-1

Basic

for i=1 to 100
x(i)=0
next i
i Basic ,
Basic

for i%=1 to 100
x(i%) 0
next i%
Basic Fortran

Basic 5.54 0.94 83 6:1

Fortran 5.51 0.93 83 6:l

for Row:=1 to NumRows do
begin
for Col:=lto NumRows do
begin
Matrix[Row col]: 0
end;
end;
50 20 3.32
2.28
for Entry:=1 to NumRows * NumCols do
begin
Matrix[Entry]:=0
end;

C C++