汽配人首頁 > 問答首頁

pascal?中輸出一個奔馳或?qū)汃R的圖案（用循環(huán)做）有個性的圖案也行

: 問提問者：網(wǎng)友 | 2018-07-29

最佳回答

可以調(diào)用CRT單元來輸出。 CRT單元主要有如下語句： procedure assigncrt(var f:text); 將文本文件f與顯示器CRT建立聯(lián)系 function keypressed:boolean; 檢測是否有鍵按下,有則函數(shù)值為true function readkey:char; 等待從鍵盤輸入一個字符 procedure textmode(mode:integer); 設(shè)置字符顯示模式,mode值見下表,可以用常量標識符或常數(shù)值 procedure window(x1,y1,x2,y2:byte); 定義字符窗口:(x1,y1)為左上角坐標,(x2,y2)為右下角坐標;必須在設(shè)置模式允許范圍內(nèi).窗口定義后,所有顯示均在窗口進行 procedure gotoxy(x,y:byte); 將光標移至(x,y)處 function wherex:byte; 返回當前窗口中光標所在的列數(shù)(相對當前窗口) function wherey:byte; 返回當前窗口中光標所在的行數(shù)(相對當前窗口) procedure clrscr; 清除當前窗口或屏幕 procedure clreol; 從光標位置開始清除至本行末尾(不超過窗口右邊界) prlcedure insline; 在當前光標處插入一行 procedure delline; 刪除光標所在的當前行 procedure textcolor(color:byte); 設(shè)置正文前景顏色 procedure textbackground(color:byte); 設(shè)置正文背景顏色 procedure lowvideo; 選擇低亮度顯示字符 procedure highvideo; 選擇高亮度顯示字符 procedure normvideo; 選擇正常亮度顯示字符 procedure delay(ms:word); 等待或延遲ms個毫秒 procedure sound(hz:word); 以hz指定的頻率發(fā)聲 procedure nosound; 關(guān)閉內(nèi)部揚聲器希望我的回答對你有幫助！: 回答者：網(wǎng)友

產(chǎn)品精選

我來回答