pascal程式設計求急
1樓：網友
1 簡單判斷。
varscore:longint;
beginreadln(score); 讀入成績if score>85 then writeln('very good');判斷是否高於85分。
elsebegin
if score<60 then writeln('bad') 判斷是否地獄60分。
else writeln('good');
end;end.
2 由題可知，當前月具有生育能力的兔子數量等於上上個月的兔子總數，則當前月兔子總數為上月兔子數（原有）+上上月兔子數（新生）
vara,b,c,i:longint;
begina:=1; /上上個月。
b:=2; /上個月。
for i:=3 to 12 do
beginc:=a+b; /求得本月兔子數。
a:=b; /上個月變成了上上個月。
b:=c; /本月變成了山個月。
end; /1月和 2月已知，迴圈十次後本月即為十二月writeln(c); 輸出本月兔子數end.
2樓：匿名使用者
第一個就是簡單的判斷；
第二個是斐波那契數列；
很好做的~
pascal 程式設計問題 （剛入門pascal，才學到迴圈，陣列，字串什麼的都沒學） 50
3樓：匿名使用者
雙重迴圈你應該會了吧，列印圖形自古以來就只有兩種演算法，一種是老老實實的對每個點進行描述，另一種是找到這些點的規律，不用說也知道你需要的是第二種。
要列印一個邊長為n的直角三角形，我猜想題目要求應該還有等腰兩個字，也就是45°的直角三角形，我們會需要一塊「畫布」：一個n*n大小的畫布，我們用空格字元來表示空白畫布，我們用*字元來表示一個點，那麼將採用一個雙重巢狀迴圈來列印畫布，一層列印縱向一層列印橫向，縱向的迴圈體很簡單，執行橫向的迴圈體和換行，橫向的迴圈體裡邊巢狀一個條件語句，if，如果當前點滿足圖形要求則列印成*，否則列印成空格。
再說圖形要求，我們知道我們的「畫布」座標系原點在左上角，右是x軸正向，下是y軸正向，等直三角形的邊應該就可以求出來了，x=0,y=0,y=n-x-1,知道三條邊的方程，題目就做完了，pascal語法我不瞭解，給你寫個c的**，看了上邊的思路你應該能看懂了：
int main()else
printf(""列印換行。
4樓：防彈的
要看你要什麼樣的直角三角形。。。
1.直角在左上角。
vari,j,n:integer;
beginreadln(n);
for i:=n downto 1 do
beginfor j:=1 to i dowrite('*
writeln;
end;end.
2.直角在左下角。
vari,j,n:integer;
beginreadln(n);
for i:=1 to n do
beginfor j:=1 to i dowrite('*
writeln;
end;end.
3.直角在右上角。
vari,j,n:integer;
beginreadln(n);
for i:=0 to n-1 do
beginfor j:=1 to i dowrite('
for j:=1 to n-i do
write('*
writeln;
end;end;
4.直角在右下角。
vari,j,n:integer;
beginreadln(n);
for i:=n-1 downto 0 dobeginfor j:=1 to i dowrite('
for j:=1 to n-i do
write('*
writeln;
end;end.
至於原理很簡單，自己手工走一邊程式就清楚了。
希望我的能對你有所幫助。
pascal程式設計 程式設計輸出10000以內的所有完全數。 要有過程，和分析。
5樓：二十二翰林
你好，這道題目這樣思考：
所為完全數，就是這個數除了它本身的約數之和也等於這個數，比如說6的約數有，而1+2+3=6，所以6是個完全數。
這題，我們先列舉出1到10000中的所有數字，逐一找出這個數的全部約數，把他們加起來，最後看看約束的總和是否等於這個數便可以了。
程式如下：program lxc;
vari,j,k:integer;
begin //主程式。
for i:=1 to 10000 do //從1到10000列舉 i
begin //開始逐一處理這10000個數。
k:=0; /k表示約數之和，初始化為0。
for j:=1 to i div2 do //因為一個數的約數肯定小於這個數，而且肯定小於或等於這個數的一半，所以現在要列舉所有比i小的數就是1到 i div 2。
if i mod j = 0 then //當i mod j=0時，意味著j可以被i整除，表明這個j是i的約數。
k:=k+j; /所以，把k加上這個約數。
if k=i then writeln(i); 最後，找到所有約數並將它們的值全部加進k後，當k和i相等時，i是完全數，那麼就輸出i
end; /列舉完畢。
end. /收工。
執行結果：628
謝謝，祝你好運！
6樓：匿名使用者
完全數指的是數的因子之和等於它本身的數。
var i,j,s:integer;
beginfor i:=1 to 10000 do
begins:=0;
for j:=1 to i div 2 doif i mod j =0 then s:=s+j;
if s=i then writeln(i);
end;end.
7樓：匿名使用者
vari,s,j:longint; 定義begin
for i:=3 to 10000 do 3到10000每個數找一次。
beginfor j:=2 to i div 2 do 試除if i mod j=0 then 如果是它的因子s:=s+j; 加起來。
if s=i then 最後判斷如果因子和等於本身就輸出writeln(i);
s:=0; 計數的重新設定為0
end;end.
pascal程式設計題目
8樓：網友
1、 b、語句。
2、c、label-->const-->type-->var3、a、a23456
4、 c、3x
5、a、new
6、a、73e4
7、b、8、d、''
9、c、const s=;
10、a、var a=real;
11、 b、ord(false)
12、b、ord(x)
13、c、round(x*100)/10014、 c、3
15、d、如果不懂可以看這個課件：
pascal求解
9樓：市守沐
最直接的思路：
設二維布林陣列，將該圓走過的路徑掃描一遍（要用到圓的方程），經過的格子標記，並記錄走過的格子數（紅色）。
然後將紅色格子圍著的格子（藍色）寬搜，統計個數。
pascal程式 選數，pascal程式設計 數字遊戲
型別 搜尋 題解 本題動態規劃無從下手，也無數學公式可尋，看來只能搜尋 組合的生成演算法 其實1 n 20這個約束條件也暗示我們本題搜尋是有希望的，組合的生成可用簡單的dfs來實現，既搜尋這k個整數在原數列中的位置，由於組合不同於排列，與這k個數的排列順序無關，所以我們可以令a i 1 是否為素數最...
pascal語言程式設計，什麼是pascal語言程式
太麻煩，懶得。其實簡單的迴圈就ok了。program ex var j,k integer beginfor j 0 to 25 do beginfor k j to j do write chr 65 abs k writeln end end.1層的果然是厲害，你是參加四月的pascal程式設計...
pascal程式設計題高手來高分 追加
凱爾特 第一題 vary,m,d integer y0,m0,d0 integer s,i,p,q integer function year n integer integer begin if n mod 4 0 and n mod 100 0 then year 366 else year 3...