感激不盡
想打印一個大叉(就是X), 10行左右
用FOR LOOP和GOTOXY打印
求程序
用free pascal的for loop來打印圖案
2012-04-02 8:24 am
回答 (2)
2012-04-02 11:26 pm
✔ 最佳答案
簡單得很。例以yy為計算由第一行至第10行，咁寫成for YY:=1 to 10 do
begin
// 做野
end;
咁入面點寫呢?
由左上角畫去右下角那線，xx會等於yy，咁可以寫成
XX := YY;
GOTOXY(XX,YY);
定左位就顯示一個符號，例如星號或x，可以用WRITE或者outtext, 之類，視乎你用乜模式。
由右上角畫去左下角那線，xx會由10減到1，用數學方式，可 以用11-YY，即係寫成
XX := 11-YY;
GOTOXY(XX,YY);
定左位就顯示一個符號。
你可以放在同一個loop，或者寫成兩個loop。
2012-04-11 9:01 am
Program writex;
uses crt;
Var x:integer;
Begin
For x:=1 to 10 do
begin
GotoXY(x,x);
write('X');
GotoXY(x+1,11-x);
write('X');
writeln;
end;
end.
以上的PASCAL碼是我寫的，不過我發現同 Lee 的解法很似，如果你比分就比佢，我唔希望有抄襲的嫌疑出現。
收錄日期: 2021-04-26 11:29:39
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20120402000051KK00017