1樓：匿名使用者
我就答12題吧~
program df;
type arr1=array[1..50] of integer;
var s,d,f,i,j,n:integer;a,b:arr1;
begin
write('hang shu=');
readln(n);
for i:=1 to 2*n+1 do a[i]:=0;
a[(2*n+1) div 2+1]:=1;for i:=1 to 2*n+1 do if a[i]=0 then write(' ') else write(a[i]);writeln;
for i:=1 to 2*n+1 do b[i]:=a[i];
for i:=2 to n do
begin
for s:=2 to 2*n do
a[s]:=b[s-1]+b[s+1];
for j:=1 to 2*n+1 do
if a[j]=0 then write(' ') else write(a[j]);
writeln;
for j:=1 to 2*n+1 do b[j]:=a[j];
end;
readln;
end.
freepascal通過。
思路就是利用楊輝三角的空格，把他們模擬成0，這樣上一行（陣列a）a[x]與a[x+2]就是下一行（陣列b）b[x+1]的值，就能輸出了，避免運用公式
2樓：
三角優化：
type arr=array[1..50] of integer;
var s,d,f,i,j,n:integer;a,b:arr;
begin
write('hang shu=');
readln(n);
for i:=1 to 2*n+1 do a[i]:=0;
a[(2*n+1) div 2+1]:=1;for i:=1 to 2*n+1 do if a[i]=0 then write(' ') else write(a[i]);writeln;
for i:=1 to 2*n+1 do b[i]:=a[i];
for i:=2 to n do
begin
for s:=2 to 2*n do
a[s]:=b[s-1]+b[s+1];
for j:=1 to 2*n+1 do
if a[j]=0 then write(' ') else write(a[j]);
writeln;
for j:=1 to 2*n+1 do b[j]:=a[j];
end;
readln;
end.
3樓：牽寒楣
你這人是電教館的吧!哈哈哈哈~~~~~~~~~
4樓：
1個pascal程式嗎?
幾道簡單的pascal題目，跪求答案！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
5樓：匿名使用者
dos 系統
基礎知識bai
我認為這些對於初du賽做初步了解即可
zhi因為dao現在windows作業系統普及高內如果要系統的了解，可容以在windows系統中用等效的應用程式cmd.exe (命令提示符) 做試驗推薦閱讀（dos命令大全）
6樓：匿名使用者
dos 是一種作業系統。
pascal檔案輸入輸出
跪求pascal填空題，大俠幫幫忙
什麼內容的，例如閱讀程式寫結果還是完善程式？先給你道完善程式題 最大連續子段和 給出乙個數列 元素個數不超過100 數列元素均為負整數 正整數 0。請找出數列中的乙個連續子數列，使得這個子數列中包含的所有元素之和最大，在和最大的前提下還要求該子數列包含的元素個數最多，並輸出這個最大和以及該連續子數列...
pascal題 裝箱問題求解法，PASCAL題 裝箱問題求解法
這裡不但有這一題的詳細解答，還有其他相似題目，可供參考。附程式 program ll vars,i,j,n,min,v longint a array 0.10000 of longint procedure run k,va longint begin if va min then min va ...
一道Pascal題目，急，一道Pascal題目，急！
var i,j integer begin for i 1 to 3 do begin for j 1 to 3 i do write for j 1 to 5 do write writeln end end.var i,j integer begin i 3 while i 1 do begin...
求貪心演算法題（Pascal）
程式設計之美 裡面有一道買書問題的貪心演算法。題目是這樣的 在節假日的時候，書店一般都會做 活動。由於 哈利波特 系列相當暢銷，店長決定通過 活動來回饋讀者。上櫃的 哈利波特 平裝本系列中，一共有五卷。假設每一捲單獨銷售均需8歐元 如果讀者一次購買不同的兩卷，就可以扣除5 的費用，三卷則更多。假設具...
pascal求解問題描述由檔案給出n個1到30000間無
我覺得這個資料範圍完全不用什麼快排,大材小用,30000內的數直接計數排序就可以了 你的程式就是計數排序 你這麼做我覺得是完全正確的,我也寫了個資料生成器來試了試,你的程式時間複雜度完全過關,正確性應該沒有問題.空間不應該有問題,你的空間複雜度十分低,低到了基本可以忽略的地步,不可能mle的 學過快...