1樓：再現芙蓉
varch:char;
i,n:longint;
num:array[1..100] of longint;
begin
for i:=1 to n do
begin
read(num[i]);
write('*');
end;
read(ch);
if ch='*' then halt;
end.
希望這個回答對你有幫助！~
2樓：匿名使用者
放一個tedit控制元件，設定它的passwordchar屬性為『x』即可。
至於按x鍵退出程式就很簡單了，設定個快捷鍵就可以了
3樓：pascal博士
var a,b,c:longint;
d:array[1..100000]of char;
ch,ch1:char;
begin
read(ch);
a:=0;
while ch<>'x' do
begin
a:=a+1;
read(ch);
write('x');
end;
readln;
end.
4樓：破落金合歡
再現芙蓉說的不對=w= 那樣的話就是顯示一個數字然後輸出'*' 要想像qq那樣的話應該是弄crt單元 然後每讀一個數就清屏 重新打i個『*』
另外吧好像沒有這個n啊...還有half是個什麼命令...
5樓：匿名使用者
uses crt；
vars:string;
n,i,j:integer;
c:char;
begin
clrscr；
readln(s);
n:=length(s);
clrscr；
if s='x' then exit;
for i:=1 to n do
for j:=1 to n do
if j=i then write('x');
readkey；
end.
不過必須先判斷，所以不能完全達到你的要求。
希望能幫助你。
6樓：打醬油小盆
是不是程式錯誤？
補充原因，在幫你解決
求高手解pascal題目！！急，明天要！！
第一題 varmax,min,i,data longint beginmax maxlongint min maxlongint for i 1 to 10 do beginread data if data max then max data if datamin data end writeln...
跪求高手幫忙解籤跪求高手幫忙解籤，謝謝！
九五籤 中籤戌宮 曹丕稱帝 志氣功業在朝朝，今將酒色不勝饒 若見金雞報君語，錢財福祿與君招。詩意 此卦志氣功名之象。凡事守常大吉也。解曰 志氣心動。守己未遲。金雞報諾。無不歡喜。故事 曹丕為曹操之次子。曹操挾天子 漢獻帝 以令諸侯。曹丕廢獻帝自立。改國號為魏。七年後又被手下司馬炎廢掉。改國號為晉。亦...
請解籤高手幫忙解下，請各位解籤高手幫忙解籤啊
說簡單點 簡單的說你是鳳凰 但是因為學校 同學 老師 家長等等和你命相相剋，所以命運多舛。雖然心有大抱負，但是卻不得伸張，甚至遇到小人。不過只要堅持不懈的努力，終有一天會雲開霧散。金榜題名也未嘗可知。說你本是大人物，因為暫時的某些原因，連一隻小麻雀都可以欺負你 只要你能堅持住過一段時間 你以前擁有的...