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教程
3樓：匿名使用者
第一節 pascal語言的特點。
資訊學奧林匹克競賽是一項益智性的競賽活動，核心是考查參賽選手的智力和使用計算機程式設計解題的能力。資訊學奧林匹克競賽要求參賽選手有如下能力：針對競賽題目中的要求構建數學模型，構造出有效的演算法和選用相應的資料結構，寫出高階語言程式，上機除錯通過。
程式設計是資訊學奧林匹克競賽的基本功，因此，青少年參與競賽活動的第一步是必須掌握一門高階語言及其程式設計方法。
以紀念法國數學家而命名的pascal語言是使用最廣泛的計算機高階語言之一，被國際上公認為程式設計教學語言的典範。其主要特點有：嚴格的結構化形式；豐富完備的資料型別；執行效率高；查錯能力強。
正因為這些特點，pascal語言可以被方便地用於描述各種資料結構和演算法，編寫出高質量的程式。尤其是對於青少年程式設計初學者，pascal語言有利於順利入門，有益於從一開始培養良好的程式設計風格和習慣，越來越多的各類學校都把pascal語言作為程式設計教學的第一語言。ioi（國際奧林匹克資訊學競賽）把pascal語言規定為二種程式語言之一，noi(全國資訊學奧林匹克競賽)把pascal語言定為唯一提倡的程式語言，noip（全國資訊學奧林匹克聯賽）把pascal定為最主要的程式語言。
pascal語言有多種版本，本教材採用的turbo pascal 或borland pacsal 是目前pc機上使用最多的一種高效pascal，是迄今為止dos環境下的最高版本。
turbo pascal 所需硬體環境是任意型號的pc機，並且僅需一台軟盤驅動器(當然有其他條件更好)；最小軟體系統包括turbo.
exe(整合環境)和標準單元庫)兩個檔案，如果包括求助檔案)則更有利於學習。
turbo pascal 可以工作在dos作業系統或windows作業系統環境下。
4樓：迷塵憶
書店有賣，浙江大學出版社的，紫色的那本是初賽的，還有本綠色的是複賽的。不過我忘記名字了。
pascal 程式設計
5樓：墨夜銀燭
如上圖，輸入、輸出的截圖。
vara,b,c,x,y,t:double;
beginreadln(a,b,c);
t:=b*b-4*a*c;
if t>0
then begin
x:=-b/(2*a); y:=sqrt(t)/(2*a);
writeln('x1=',x+y:0:3,' x2=',x-y:0:3);
endelse if t=0 then writeln('x=',b/(2*a):0:3)
else begin
x:=-b/(2*a); y:=sqrt(-t)/(2*a);
writeln('x1=',x:0:3,'+y:0:3,'i x2=',x:0:3,'-y:0:3,'i');
end;end.
有關pascal 程式設計的幾個問題 20
6樓：汪小毛亞歷山卓
1.語句標號是用於goto語句的，需在程式的定義部分用"label"定義，如：
label 10,20;
這個定義就表示程式中可用10和20分別表示2個語句，用"goto 10;"或"goto 20;"可分別跳到這2個語句直接執行(注意：goto語句只能從乙個語句結構中轉出來，而不允許從外部轉進去)。
情況標號是case語句後可供參照執行的常數表，如：
case a of
1:write(1);
2:write(2);
end;這裡的"1"和"2"就是情況標號。
因此，總的來說，語句標號和情況標號的區別就是：語句標號需在程式的定義部分用"lable"定義，而情況標號則不用。
2.對於重複次數已知的迴圈，用for迴圈好；而repeat和while迴圈擅長解決迴圈次數未知的迴圈。
exceeds line表示你的乙個字串跨了行，必須只能在一行內寫完。
7樓：沙漠迷宮
2：能確定迴圈次數或者要控制迴圈次數的用for，例如窮舉演算法的優化。
3：不斷除錯，從編譯器給出的行號開始，可以跟蹤變數或者在關鍵的地方插入輸出語句從而了解其執行過程。 http:
html
pascal程式設計問題？
8樓：新之我
lz應該是初學pascal，給樓主一些建議：
對於初學者而言，最寶貴的就是這些小題目能夠獨立思考、解決，然後感受自己獨立解決問題的樂趣，因此大大增加學習的信心，這對以後的學習的推動力相當重要。
這種同類題目一般是給你講解一題，其他題目自己獨立解決，lz一定注意要學習解決問題的方法而不是學習這個問題的答案。
不瞞樓主，我初學時做過第（1）、（4）兩題，當時也是獨立解決，想了很長時間才做出。
下面我開始講解吧。
1.這類題目一般要經歷以下過程：找出變化規律、總結規律。
我們先列出小的例子。
n=2***
n=3***
規律其實很明顯，n代表的是輸出的行數，然後就是不同的行的***之間的空格不同。
然後我們進一步去總結歸納：總體來說每一行是由四個部分構成 空格***空格***
我們只需要把握兩個空格的數量與 第i行以及n之間 的關係。
很明顯，第一部分空格數量是0，1,2,3,4……
第二部分空格稍有難度，但是最簡單的第n行入手發現：第n行是1個，第n-1行是3個，第n-2行是5個………
由此我們歸納出，第i行的個數為 2*（n-i）+1
至此程式已經不難寫出：
for i:=1 to n do
beginfor j:=1 to i-1 do write(' 輸出第一部分空格，是i-1個空格。
write('*
for j:=1 to 2*(n-i)+1 do write(' 輸出第二部分空格，是 2*(n-i)+1個空格。
write('*
end;後面三題，lz自己解決吧，做出來的話對lz是非常有好處的，如果實在不會再來問我吧。
pascal程式設計求1 2 3n的值求
解釋一下。1 2 3 n的和可以看成是乙個上底是1下底是n的梯形的面積。1 2 3 4 所以1 2 3 n n 1 n 2.1 program sum1 var b,i longint begin readln n b 0 for i 1 to n do b b i writeln b end.2 ...
求pascal中，and，or，xor,nor的運算符號分別
and是 or是 not是 xor沒有 這些奇怪的符號都是在數學中的應用 在pascal語言中 1就相當於true，0就相當於 false true and true true 即 1 and 1 1，在and的使用中，兩邊都為true則結果為true，否則為false 在or的使用中，兩邊有至少有...
Pascal習題 求N個數的全排列
var a array 1.100 of longint n longint b array 1.100 of boolean procedure f sum longint var j longint begin if sum n then begin for j 1 to n do write ...
求n以內的所有回文數pascal語言
vari,n,j integer s string begin readln n for i 1 to n do begin str i,s for j 1 to length s div 2 doif s j s length s j 1 then continue writeln i end e...
求最最簡單的程式設計軟體，求一款程式設計軟體，像vb那樣好學，簡單，強大，最好是中文免費版的。
既然是剛開始學的,那麼不要用c了,學vb吧,除非你打算很深入的鑽研軟體開發,不然絕對夠你用了,而且學起來簡單.不要小看它,連micro office都是用它弄出來的,你說夠不夠你玩過家家?學完vb還可以順便學學vba,對日後的工作非常有用,增加工作效率的好幫手 個人認為最簡單的程式設計軟體是藍點通用...