1樓：
pascal基本語句
hb007 發表於 2006-4-13 13:57:30
名 稱 格 式 功 能
賦值語句 變數識別符號:=表示式； 先計算表示式的值，再將表示式的值賦給變數。
輸入語句 read(變數表)；
readln(變數表)； 從鍵盤上為變數表中的變數賦值。
從鍵盤上為變數表中的變數賦值(換行讀入)。
輸出語句 write(輸出表)； 將輸出項顯示在螢幕上或用印表機輸出。
writeln(輸出表)； 將輸出項通過螢幕或印表機輸出(換行輸出)。
write(輸出項：場寬)； 輸出項佔有的位數=場寬表示式的值。
write(輸出項：總場寬：小數位數)； 輸出項佔有的位數=總場寬表示式的值。
輸出項小數部分佔有的位數=小數位數。
條件語句 if 條件 then 語句1； 若條件為真，則執行語句1。
若條件為假，執行if語句的下一個語句。
if 條件 then 語句1
else 語句2； 若條件為真，則執行語句1，否則執行語句2。
分情況語句 case 表示式 of
常數表1：語句1：
常數表2：語句2；
……常數表n：語句n；
end 先計算表示式的值，然後執行與表示式的值相同的常數所對應的語句。如果所有的常數表中沒有與表示式的值相同的常數，則執行case語句的下一個語句。
case表示式of
常數表1：語句1；
常數表2：語句2；
常數表n：語句n；
……else 語句n+l；
end 先計算表示式的值，再執行與表示式的值相同的常數所對應的語句。如果所有的常數表中沒有與表示式的值相同的常數，則執行語句n+l。
迴圈語句 for 迴圈變數:=初值 to 終值 do
迴圈體； 先把初值賦給迴圈變數，然後將此值與迴圈終值比較，當此值小於等於終值時，執行迴圈體語句。
for 迴圈變數:=初值 downto 終值 do
迴圈體； 先把初值賦給迴圈變數，然後將此值與迴圈終值比較，當此值大於等於終值時，執行迴圈體語句。
while 布林表示式 do 語句： 先計算布林表示式的值，當其值是真時，執行do後面的語句，若是假則退出迴圈。
repeat
語句1；
語句2；
……語句n
until 布林表示式； 先執行語句1到語句n，再對布林表示式進行判斷。當布林表示式值為真時重複執行語句1到語句n，直到布林表示式的值為假時退出迴圈，執行until語句下面的語句。
轉向語句 goto 標號； 轉到標號指向的語句去執行。
開域語句 with 記錄名 do 語句； 簡化對記錄的引用。
[例1.1]程式設計在螢幕上顯示“hello world!”。
pascal程式：
program ex11;
begin
writeln(‘hello world!’);
readln;
end.
這個簡單樣例程式，希望大家的程式設計學習能有一個良好的開端。程式中的writeln是一個輸出語句，它能命令計算機在螢幕上輸出相應的內容，而緊跟writeln語句後是一對圓括號，其中用單引號引起的部分將被原原本本地顯示出來。
[例1.2]已知一輛自行車的售價是300元，請程式設計計算a輛自行車的總價是多少？
解：若總售價用m來表示，則這個問題可分為以下幾步處理：
①從鍵盤輸入自行車的數目a；
②用公式 m=300*a 計算總售價；
③輸出計算結果。
pascal程式：
program ex12;
var a,m : integer;
begin
write(‘a=’);
readln(a);
m := 300*a;
writeln(‘m=’,m);
readln;
end.
此題程式結構完整，從中可看出一個pascal 程式由三部分組成:
(1)程式首部
由保留字program開頭，後面跟一個程式名(如:exl1)；其格式為:
program 程式名；
程式名由使用者自己取，它的第一個字元必須是英文字母，其後的字元只能是字母或數字和下劃線組成，程式名中不能出現運算子、標點符和空格。
(2)說明部分
程式中所用的常量、變數，或型別、及過程與自定義函式，需在使用之前預先說明，定義資料的屬性（型別）。[例1.2] 程式中 var s，r，c:
real； 是變數說明，此處說明s，r，c三個變數均為實數型別變數。只有被說明為某一型別的變數，在程式中才能將與該變數同型別的數值賦給該變數。變數說明的格式為:
var 變數表：型別；
(3)語句部分
指由保留字 begin (開始)至 end. (結尾)之間的語句系列，是解決問題的具體處理步驟，也是程式的執行部分。
pascal程式不管是哪部分，每句末尾都必須有分號(；)，但允許最接近 end 的那個語句末尾的分號省略；程式結束的end末尾必須有圓點(. )，是整個程式的結束標誌。
程式中花括號“”之間的部分為註釋部分。
pascal程式結構可歸納用如下的示意圖來表示：
program 程式名； 程式首部
標號說明； (label)
常量說明； (const) 說明部分
型別說明； (type)
變數說明； (var)
過程或函式說明；
begin 程式體 (主程式)
語句系列； 語句部分
end.
圖1.1 pascal程式的結構
把處理問題的步驟編成能從上到下順序執行的程式，是簡單程式的基本特徵。再來分析下面兩道例題的pascal程式結構和繼續學習基本語句。
〔例1.3〕程式設計計算半徑為r的圓的面積和周長。
解：這是一個簡單問題，按數學方法可分以下幾步進行處理：
① 從鍵盤輸入半徑的值r；
② 用公式 s=πr2 計算圓面積；
③ 用公式 c=2πr 計算圓周長；
④ 輸出計算結果。
pascal程式:
program ex13；
var r，s，c: real；
begin
write ('r=?')；
readln(r)；
s:=pi*r*r； ｛圓面積公式s=πr2｝
c:=2*pi*r； ｛圓周長公式c=2πr｝
writeln('s='，s)；
writeln('c='，c)；
readln ｛等待輸入回車鍵｝
end.
程式中pi是pascal提供的標準函式，它返回圓周率的近似值：3.1415926…。
(:=)是賦值符號，賦值語句的格式為:
變數:=表示式；
賦值語句的作用是將:=右邊表示式的值記錄到左邊的變數中。
writeln是輸出語句，輸出語句有三種格式:
① write (輸出項1，輸出項2) ； ｛執行輸出後游標不換行｝
② writeln (輸出項1，輸出項2) ； ｛執行輸出後游標換到下一行｝
③ writeln ｛僅輸出空白且游標換到下一行｝
writeln語句後面的圓括號以內部分均為輸出項，可以是多項，各項間用逗號分隔； 對單引號裡的內容按照引號內的原樣(字元)輸出顯示。如果輸出項是表示式，則只輸出表示式的值，而不是表示式本身。
[例1.4] 輸出兩個自然數相除的商和餘數。
解:設被除數、除數、商和餘數，分別為a，b，c，d，均為變數，且都是整數型別。題中未給出具體的自然數a、b，可採用鍵盤輸入方式。
① 給出提示，從鍵盤輸入a, b；
② 顯示兩數相除的數學形式；
③ 求出a除以b的商c；
④ 求出a除以b的餘數d；
⑤ 緊接等式後面輸出顯示商和餘數。
pascal程式:
program ex14；
var a,b,c,d : integer；
begin
write('input a，b：')； ｛給出提示資訊｝
readln(a，b)； ｛輸入a，b｝
writeln； ｛輸出一空行｝
write(a，'/'，b，'=')； ｛輸出等式之後不換行｝
c:=a div b； ｛整除運算，取商的整數部分｝
d:=a mod b； ｛相除求餘運算，取商的餘數部分｝
writeln(c，'…'，d)；
readln
end.
執行本程式中第一個write語句，輸出其引號以內的一串提示資訊，是給緊接著的輸入語句提供明確的提示(要求)，有“一目瞭然，人機對話”之效果。
readln是一個特殊的輸入語句，要求輸入一個回車(換行)才能往下執行。
readln是輸入語句，它的一般格式為:
① read (變數1，變數2)；
② readln (變數1，變數2)；
③ readln
前兩種格式均要從鍵盤給變數輸入資料，輸入時，所鍵入的資料之間以空格為分隔，以回車為輸入結束。若多輸入了資料(即資料個數超過變數個數)，read語句讀完資料之後，能讓後續的讀語句接著讀取多下來的資料；而readln 語句對本行多輸入的資料不能讓後續語句接著讀取多下來的資料。為了防止多輸入的資料影響下一個輸入語句讀取資料，建議儘量使用readln語句輸入資料。
第三種格式不需輸入資料，只需按入一個回車鍵。
[例1.5]自然數的立方可以表示為兩個整數的平方之差，比如43=102－62，請輸出自然數1996的這種表示形式。(這裡的43用自乘三次的形式4*4*4表示；102也用自乘二次的形式10*10表示)
解:此題沒有現成的計算公式能直接利用，但可以自行推出處理方法或構建適當的運算公式，按著構想的處理方案編排出各步驟。
設這個自然數為n，兩個平方數分別為x，y， 將問題表示為求 n3=x2—y2
① 先找出x的值，仔細觀察題中的示例，用數學方法歸納可得出x=n*(n+1)/2；（構成本題可用的計算公式）
② 再仔細觀察，發現y值比x小一個n值，即 y=x—n；
③ 輸出等式 n3=x2—y2 或n*n*n=x*x—y*y
pascal程式:
program ex15；
const n=1996；
var x，y: longint；
begin
x:=n*(n+1) div 2；
y:=x-n；
writeln(n,'*',n,'*', n,'=', x,'*', x,'—',y,'*',y)；
readln
end.
本程式中n是常量，x，y是變數，為長整數型別(longint)； 程式中的div 是整除運算，其結果只取商的整數部分；
[例1.6] 求一元二次方程x2+3x+2=0的兩個實數根。
解:方程的係數是常量，分別用a，b，c表示，可運用數學上現成的求根公式求方程的根，採取如下方法:
① 先求出d=b2-4ac；（求根公式中需用開方運算的那部分）
② 再用求根公式算出x1，x2的值。(x1，x2 = ? )
③ 輸出x1，x2.
pascal程式:
program ex16；
const a=1；
b=3；
c=2； ｛a，b，c表示方程係數｝
var d : integer； ｛d為整型變數｝
x1，x2: real； ｛x1，x2為實型變數｝
begin
d:=b*b-4*a*c；
x1:=(-b+sqrt(d))/(2*a)； ｛求方程的根｝
x2:=(-b-sqrt(d))/(2*a)；
writeln('x1='，x1，' ':6，'x2='，x2)；
readln ｛等待輸入一個回車鍵｝
end.
本程式中的a，b，c均為常量；變數d是整數型別，而變數x1，x2則是實數型別，因為運算式中的sqrt(d)開平方運算和(/)除法運算使結果為實數。sqrt( ) 是開平方函式，是pascal系統的一個標準函式。
習題1.1 模仿例題程式設計
1. 加法計算器：程式設計由鍵盤輸入兩個整數a和b，計算出它們的和並輸出到螢幕上。
2. 某梯形的上底、下底和高分別為8，12，9，求該梯形的面積。
( 梯形面積公式為 s=
3. 求右圖所示邊長為5.6 的正立方體表面積。
4. 已知圖園柱體的高為12，底面園的半徑為7，求園柱體表面積。
5. 計算某次考試語文、數學、英語和計算機等四科的總成績與平均成績。
(請用輸入語句從鍵盤輸入各科成績分)
問個關於PCR比較白痴的問題
樓主做的應該是定量pcr實驗把？1。培養細胞的時候做平行，是為了消除培養細胞過程帶來的隨機誤差。如何消除，那就是把復孔培養之後的細胞混合起來。然後在抽提rna，繼續下去。2在做定量pcr的時候同樣要消除定量pcr時的誤差，因此定量的時候也要做平行。一般來說平行越多，出來的結果可信度越高，象你這樣其實...
問些白痴問題，我能問一些白痴的問題嗎？
用完就剩15分，你挺豪爽的麼 看你說的挺好的，還怎麼幫啊？真的只剩下祝福了 勾痴瑤 抽菸啊，女生一般不怎麼喜歡男生抽菸的 最好別抽了 看樣子那女孩已經願意接受你了 對於你的方式，這樣可能效果更好 參考馬克思絕招 先告訴她你已經喜歡上乙個女孩了，這時候你看他表情 自己去琢磨 然後他會追問，你給他乙個盒...
乙個計算機白吃 的問題，乙個電腦白痴的問題。。
先買本最基礎的電腦入門書學習一下常識，然後學習office系列軟體的使用，熟練之後學習c 語言，或者其他程式語言。買一本電腦培訓教程 好好學。乙個電腦白痴的問題。1g記憶體就夠了！主要是顯示卡要好點，最好是獨顯的256m 至於品牌不品牌嘛，不用要求那麼高！組裝個好點的就ok！玩遊戲特別是網遊要求最高...