1樓：網友
vari:integer;
beginfor i:=30 to 60 doif i mod 2=0
或者用odd函式 if not odd(i)}odd(x) 判斷x是否為奇數。如果是值為true，反之值為false. }
then write(i,'
writeln;
end.
2樓：手機使用者
for i:=30 to 60 do
if(i mod 2 =0)then
writeln(i);
3樓whlie 後貌似有個do忘了吧？？？
可以加我，長期交流！~~ha
用pascal程式編寫列印出30至60的偶數
3樓：網友
vari:integer;
beginfor i:=30 to 60 doif i mod 2=0
或者用odd函式 if not odd(i)}odd(x) 判斷x是否為奇數。如果是值為true，反之值為false. }
then write(i,' ');
writeln;
end.
4樓：網友
var i:integer;
beginfor i:=15 to 30 do write(i*2,' ');
end.把15到30之間每個數×2的結果輸出}
列印數字金字塔的pascal程式
5樓：翎魔
如下是簡潔的程式，可以很快驗證，program jzt;
var i,j:integer;
begin for i:=1 to 9 dobegin for j:=1 to i do write(j，#
for j:=i-1 downto 1 do write(j，#
writeln;
end;end.
樓主，6樓的『#』相當於『chr'，chr（x)含義：序號為x的字元；和 #x 含義一樣，
6樓：egg蛋
program jinzita;
varn,i,j:integer;
beginreadln(n);
for i:=1 to n do
beginfor j:=1 to i do write(j,' ');
for j:=i-1 downto 1 do write(j,' ');
writeln;
end;end.
說明：n是指行數。writeln是換行，空格直接' '就可以了。
偶數之和 pascal
7樓：網友
program asdf;
vari,n,m:longint;
u,j,k:longint;
y:real;
a:string;
num:array[1..20000]of integer;
beginreadln(n,m);
u:=20000;
for i:=n to m do
if i mod 2=0 then
beginstr(i,a);
k:=length(a);
for j:=20000 downto 20000-length(a)+1 do
beginnum[j]:=num[j]+ord(a[k])-ord('0');
dec(k);
num[j-1]:=num[j-1]+num[j] div 10;
num[j]:=num[j] mod 10;}
end;for j:=20000 downto u do
beginnum[j-1]:=num[j-1]+num[j] div 10;
num[j]:=num[j] mod 10;
end;while num[u-1]<>行飢0 do dec(u);
end;for j:=u to 20000 do write(num[j]);
writeln;
的12次方，你讓我怎麼讀入檔滲返，我喊裂的程式肯定比一樓強但會超時。
用pascal語言列印從2開始的25個正偶數的平方
8樓：網友
樓上 的錯了吧。
是輸出25個數的平方 不是到25的輸的平方。
var i,a：integer;
beginrepeat
begininc(i);
if i mod 2=0 then beign inc(a); writeln(i*i); end;
end;until (a=25);
end.
pascal程式列印如下圖形
9樓：網友
//這樣可以麼？需要讀入資料麼？需要用迴圈麼？需要的話我在改。
beginwriteln('1:');
writeln(' 1 ');
writeln(' 1 2 3 ');
writeln('1 2 3 4 5');
writeln;
writeln('2:');
writeln('e d c b a');
writeln(' c b a ');
writeln(' a ');
readln;
end.
用CorelDRAW12作圖為什麼列印出來會與在電腦上看到的效果不一樣？該怎麼做才不會出現這種情況
偏差.這是很難避免的.別說列印了.就算是印刷也有偏差的.主要原因是我們顯示器和列印的差別.每臺顯示器的色彩都有不同程度的偏差.所以顯示器不能作為標準.你在做圖的時候可以拿本色卡對照一下.cdr裡做圖要注意 1.cdr的顏色模式.2.cdr做圖的時候不要又是rgb又是cmyk.最好用cmyk 這樣輸出...
用cad列印圖紙設定的是a3的,列印出來的是a4紙
你最好確認一下印表機進紙是不是a3那個紙盒。 傲遊 翅膀 列印的時候，有一個定義列印屬性的，你順著點就ok了 魂歸幸福 印表機特性要選擇a3紙張 沒選的話沒用 在cad中如何將a3的圖紙用a4的紙列印出來？ 列印的時候把圖紙尺寸改為a4，列印範圍用視窗 選擇 視窗 列印，同時將 佈滿圖紙 和 居中列...
怎樣用ps做騎縫章，要列印出來。
用ps做騎縫章二的方法 首先，ps的列印設定中有個頁邊距設定 其次，幾乎所有的印表機都會有一個它自己的列印邊距 所以如果想直接列印出來就是對齊的話基本是不可能的 應該將列印出來多餘的部分裁掉就可以了。首先，ps的列印設定中有個頁邊距設定。其次，幾乎所有的印表機都會有一個它自己的列印邊距。所以如果想直...