汽配人首頁(yè) > 問(wèn)答首頁(yè)

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

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

最佳回答

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

產(chǎn)品精選

我來(lái)回答