一 pascal的乘法口诀程序:
program Main;
var i,j:integer;
begin
writeln;
write('乘法口诀');
writeln;
writeln;
for i:=1 to 9 do
begin for j:=1 to i do write(i,'x',j,'=',i*j:2,' ');
writeln;
end;
end.
二 Basic乘法口诀程序
2 print
4 print "云码Basic乘法口诀"
10 FOR i = 1 TO 9
20 FOR j = i TO 9
22 p=i*j
30 PRINT i;" x "; j ;"=";p
40 NEXT j
60 NEXT i
怎么感觉Basic程序要简单、明了一些。
pascal反而复杂。
program Main;
var i,j:integer;
begin
writeln;
write('乘法口诀');
writeln;
writeln;
for i:=1 to 9 do
begin for j:=1 to i do write(i,'x',j,'=',i*j:2,' ');
writeln;
end;
end.
二 Basic乘法口诀程序
2 print
4 print "云码Basic乘法口诀"
10 FOR i = 1 TO 9
20 FOR j = i TO 9
22 p=i*j
30 PRINT i;" x "; j ;"=";p
40 NEXT j
60 NEXT i
怎么感觉Basic程序要简单、明了一些。
pascal反而复杂。