free pascal的基本語句,賦值

2023-02-21 14:40:27 字數 2958 閱讀 9013

1樓:羅應送

迴圈語句(for語句)

for 《控制變數》:=表示式1> to 《表示式2> do 《語句》 /遞增型迴圈。

for 《控制變數》:=表示式1> downto 《表示式2> do 《語句》 /遞減型迴圈。

for 語句說明。

(1)迴圈變數必須是順序型別。例如,可以是整型、字元型等,但不能是實型。

(2)迴圈變數的值遞增或遞減的規律是:選用to則為遞增;選用downto則為遞減。

(3)迴圈體可以是一條基本語句,也可以是一條複合語句。

(4)迴圈變數的值再迴圈中不能隨意更改。

當語句(while語句)

while語句適合用於迴圈次數為未知數是用,特點是先判斷,後執行。例如 while 《條件》 do

直到型迴圈(repeat語句)

repeat語句和while語句一樣,只不過他的思想是先執行,後判斷。例如repeat 《語句》until 《條件》。

賦值,《被賦值變數》:=賦值變數》。例如:a:=5; b:=4; a:=b; 此時,a=4;

此外,還有幾個基本語句。

inc(累加)

inc(a)=a:=a+1;

inc(a,b)=a:=a+b;

dec(遞減)

dec(a)=a:=a-1;

dec(a,b)=a:=a-b;

2樓:匿名使用者

賦值: a:=;

判別用一個等號: if (a=pi)

迴圈: for i:=1 to 100 dorepeat

until a=0 退出迴圈的 條件。

while (<0) 迴圈的條件成立 do...

3樓:匿名使用者

:=比如說:把100賦值給a,就寫成「a:=100;」

4樓:匿名使用者

a:=b;將b的值賦給a(a是變數)

free pascal迴圈語句運用

關於free pascal中 case 語句 10

5樓:匿名使用者

case of 與 if else 的功能是一樣的,沒有太大區別,case of 看起來更直觀一些,書寫也更簡便一些。

例如:var

i, j: integer;

begini :=1;

j :=2;

case i of

1: j :=3;

2: j :=5;

3: j :=11;

end;end;

上述程式等價於下面的程式:

vari, j: integer;

begini :=1;

j :=2;

if i = 1 then

j :=3else if i = 2 then

j :=5else if i = 3 then

j :=11;

end;

6樓:匿名使用者

begin

是多條件執行的複合語句;

例如case a of

1:b:=1; ①

5:b:=9; ②

end;若a=1則執行①

ruoa5則執行②

end.

7樓:o沙漠的魚

case語句和if語句等是一樣的,屬於選擇結構。說白了,就是很多個if語句簡化了的效果。

free pascal急!!!!!!!!

free pascal語言與基礎演算法(第三版)

8樓:篢霯孞譯

第三版我沒有,但你要什麼知識我可以告訴你,我有第二版的。

取絕對值是abs(x)

取平方是sqr(x)

分數直接用 (表示式) /表示式) 就可以了,但必須要用實型real儲存,並且是近似值,比如1/3就只能存為,pascal中沒有存分數的東西。

還有什麼需要的儘管說。

free pascal的迴圈語句

9樓:匿名使用者

1:(1)var

n,s,i:longint;

for i:=1 to n do

s:=s+i;

write(s(即答案));

(2)var

n,s,i:longint;

while ibegin

i:=i+1;

s:=s+i;

end;write(s(即答案));

(3)var

n,s,i:longint;

beginrepeat

inc(i);

s:=s+i;

until i=n;

2.(1)var

n,s,i:longint;

for i:=1 to (n div 2) dos:=s+(i*2-1)*(i*2-1);

write(s(即答案));

(2)var

n,s,i:longint;

beginwhile ibegin

i:=i+2;

s:=s+i*i;

end;write(s(即答案));

(3)var

n,s,i:longint;

beignrepeat

inc(i,2);

s:=s+i*i;

until i=n;

注:n都要read.

祝lz可以做出、理解(100%上機通過了) 加點分 3q

10樓:網友

一:(ans為答案)

for i:=1 to n do inc(ans,i);

:=0; ans:=0;

while i=99;

希望你能看懂~

free Pascal的程式題

vari,max,min,sum longint max,min 為最大,最小值,sum是平均值 a array 1.20 of longint 要讀入的20個數 begin sum 0 max maxlongint min maxlongint 數值初始化,maxlongint是系統定的最大lon...

Oracle臨時表建立的基本語句是什麼

oracle建立臨時表的語法如下 create global temporary table table column datatype default expr column datatype default expr on commit rows 在oracle中,可以建立以下兩種臨時表 1 會...

關於C幾個基本語句的問題先謝謝了

直接回答咯啊。1,this 指當前的類 在你的程式裡面指 person類 2,set訪問器時,表明屬性的值只能進行設定而不能讀出 get訪問器時,表明屬性的值是隻讀的,不能改寫 在你的程式裡面 get是獲取屬性,是自讀變數 set,就是將改變name的屬性 value 在不同的地方用途意思不一樣,在...