1樓：匿名使用者
1:var
a,b,c:integer;
begin
for b:=1 to 7 do
begin
for c:=b to 2*b-1 do
begin
a:=c mod 10;
write(a,' ');
end;
for c:=2*b-2 downto b dobegin
a:=c mod 10;
write(a,' ');
end;
writeln;
end;
end.
2:var
z:array[1..7,1..7] of integer;
a,b,c:integer;
begin
for a:=1 to 7 do
for b:=1 to 7 do
z[a,b]:=0;
for a:=1 to 7 do
for b:=1 to a do
for c:=a downto 1 do
if c=1 then
z[a+1,1]:=z[1,a]+1
else z[b+1,c-1]:=z[b,c];
for a:=1 to 7 do
for b:=1 to 7 do
begin
if z[a,b]<>0 then
write(z[a,b],' ');
writeln;
end;
end.
pascal列印字三角形，用pascal列印「 」字三角形
var n,i,j integer n為層數 begin read n for i 1 to n do begin for j 1 to n i do write for j 1 to i 2 1 do write write for j 1 to n i 2 1 do write writeln ...
pascal程式優化，一道pascal程式設計題目，不知道怎麼優化程式才能不超時？只能乙個乙個加減？實在想不到，求大神們指點指點！
var ans i j n longint begin readln n for i 1 to 20 n dofor j 1 to 50 n doif 100 n 5 i 2 j 0 then inc ans writeln ans end.varmax,i,j,n longint begin re...
求PASCAL簡單程式，求乙個PASCAL簡單程式
var a longint begin read a if a 100 then writeln 1 else writeln 0 end.var a string begin readln a if a 100 then writeln 1 else writeln 0 end.這是我寫的，都對，...
判斷是否為素數（pascal），用Pascal語言 如何判斷素數
通俗一點講 n的因數都分布在數軸上。如果n不是完全平方數，那麼因數總是成雙成對的出現，總有一半因數在sqrt n 的前面。如 24 sqrt 24 4 24的因數有1,2,3,4,6,8,12,24，可以看出，在sqrt 24 4以後，每乙個24的因數都與4和以前的乙個24的因素相對應 1 24 2...
如何知道pascal程式的執行時間
經驗證明，在程式裡面自己測試時間是很不準確的，如果真正希望測試時間，建議選擇cene等外部測試軟體，比較準確。還有乙個簡單的粗測法，就是關聯好檔案輸入輸出後生成exe，然後不停地點選可執行檔案再利用windows的自帶秒錶計時。如果30秒內點了31次，基本1s內就可以完成。沒問題請採納，有問題請追問...