1樓：羅不理
一。容易哦！樓主！！我跟你提高檔次，不是5*5的，是n*n的，行不？
var a,b,c:longint;
beginread(a);
for b:=1 to a do
for c:=1 to a do
beginwrite('*
if c<>1 then
if a mod c=0 then
writeln;
end;end.
二。好經典啊！這個也改成n的行不？爽些。
var a,b,c:longint;
beginread(a);
for b:=1 to a do
beginwrite(' 41-b);
for c:=1 to b-1 do write('
writeln;
end;end.
經過自己除錯證明百分之百對哦。
2樓：星之水君
vari:integer;
beginfor i:=1 to 5 dowriteln('*end.
beginwriteln('
writeln('
writeln('*
writeln('*end.
額……你問這麼簡單的幹啥。
用pascal語言計算圓周率
3樓：網友
很簡單啊，一次把資料儲存下來就可以了，20分少了點！！！
用pascal語言實現三個數從大到小排列並輸出
4樓：網友
我的程式不僅能對三個數進行排序，而且能對500000個數進行排序。
首先輸入乙個數n，表示有n個數（你的要求的話就是輸入3）然後輸入n個數後加回車就是了。
基本思路就是快速排序。
program sort_hewr;
constmaxn=500000;
vara:array[0..maxn]of longint;
n,i:longint;
procedure qsort(x,y:longint);
vari,j,k:longint;
begini:=x;
j:=y;k:=a[(x+y) shr 1];
repeat
while a[i]k do dec(j);
if i<=j then begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
inc(i);
dec(j);
end;until i>j;
if x1 then write(' ');
write(a[i]);
end;writeln;
end.
5樓：網友
樓上真是高射炮打蚊子。。。nlog2n和n^2在n=3的情況下。。。寫哪個合適？更何況快排寫不好就成了死迴圈。。。
pascal語言怎麼使用odd求奇函式？
6樓：網友
odd的返回值是布林型。
樓主可以這樣。
i:=1;repeat
begininc（i,ans）;
inc（i,2）;
end;until i＞=100;
pascal語言可以編寫小遊戲嗎
7樓：允建業
可以！但是要用基於pascal語言的delphi軟體，、
這款軟體可以設計視窗，引數，引入控制項等一系列你想要的功能。
只是沒有官方的漢化版，不管怎樣，這都是個不錯的選擇。
8樓：教育與娛樂
答案是肯定的，但沒有這樣做過。
比如可以編寫貪吃蛇之類，製作當然需要pascal程式設計軟體，不需要其他的，到時編譯成可執行的檔案就可以了。
9樓：網友
當然可以，只不過不容易調dos
如何用做雜誌，如何用WORD做雜誌？
1.新建文件，輸入所需文字。2.標題居中，放大，字型變換。3.選中文件，首行縮排。4.然後運用段落把文件整體下移幾行。5.雙行合一，把署名排版重排。6.新建文件，從網上找來文章貼入。7.選中所有文字，清除格式後縮小字型。8.應用分欄命令將文字重排。9.通過插入 調整 文字混合模式為環繞四周。10.最...
如何用c語言輸出檔案，如何用C語言輸出檔案？
1 c語言標準庫提供了一系列檔案操作函式。檔案操作函式一般以f 單詞的形式來命名 f是file的簡寫 其宣告位於stdio.h標頭檔案當中。例如 fopen fclose函式用於檔案開啟與關閉 fscanf fgets函式用於檔案讀取 fprintf fputs函式用於檔案寫入 ftell fsee...
如何用PS做出人物的影子
1，首先，我們選一張人物 可以看到，這個場景裡的人物沒有影子 2，我們用photoshop裡的 磁性套索工具 把人物從場景中摳出來，把前景色設定成黑色，按alt delete鍵讓摳出來的人物變成黑色，新建一個透明圖層，把扣出來的黑色人物拉到新建的圖層裡。3，在新圖層裡，按ctrl t鍵選中人物圖層，...