pascal程式設計,求乙個數的分解乘法算式有多少個。好答案,可追加。
1樓:
963569780的程式不夠省運算時間。
計算式子的值:s=1+2+3+...+100(程式設計 pascal語言 for語句)
2樓:網友
program juio;
vari:integer;
a,s:real;
begina:=0;
for i:=1 to 100 do
begins:=a+i;
a:=s;end;
writeln(s:0:0);
readln
end.你的程式這些地方寫的不太恰當:
1、你要輸出的是s的值,但是s值可能會非常大,而integer的範圍是0~32000出頭的整數,萬一超過了範圍怎麼辦?所以最好將s定義為real;
2、你把var和後面的一些要定義的內容寫在了同一行,這樣的習慣不好,萬一出錯了不好更正,建議寫分開;
3、【a:=1+i; s:=s+i;】這個你是想運算是吧?但是應該是將s作為輸出,然後呢,以a為0代入,之後再將s每次運算的值賦值給a,這樣才能迴圈;
4、【readln(a);】代表你讀取了個a,跟題目有什麼關係麼?你要計算的是1+..100的值;
5、for迴圈是這樣的格式:
for 《變數名》:= 《變數》 to 《變數》 do
單語句》;for 《變數名》:= 《變數》 to 《變數》 do
begin多語句》;
end;注意:這裡的do後面是不能加分號『;』的,加分號代表運算終止,但是你的迴圈是要帶下面的條件的,單語句與多語句的寫法也不一樣,分號是不可以亂加的- -
6、【s:10】你是要設場寬麼?你最後得到的值肯定是整數,s定義是real,為了避免出現科學技術法,你可以這樣設定【s:
0:0】。前乙個分號後的數字代表的是總場寬,但是當場寬滿足不了值的表示時,總場寬會被突破,後乙個分號是限制小數位的,因為答案是整數,則小數再多也無任何意義,只是看著很亂,於是兩個都是0
寫的時候仔細點,電腦不像人腦那樣聰明,多個分號什麼的都是不行的,編譯的時候看提示錯在哪,錯的多了自然也就會了。
3樓:網友
首先,這是乙個等差數列。
var s:real;
begins:=100*99*;
write(s);
end.但很明顯它超時。
「用鍵盤輸入三個數,輸出三個數的和的平均數」這個公式誰會?(pascal程式設計)
4樓:拉斯霜之語
餓,這好像不是個公式吧。不過我的程式可以給你。(手打的)。
program exp_1;
var a,b,c,d:integer;
begin注:通用可套用部分從這開始!即你說的公式。
read(a,b,c);
c:=(a+b+c)/3;
writeln(c);
end.
求乙個數比另乙個數多幾分之幾怎樣算
乙個數比另外乙個數多幾分之幾的演算法 假設乙個數和另外乙個數中大的數是乙個數,則 乙個數比另外乙個數多幾分之幾 乙個數 另外乙個數 另外乙個數。舉例說明如下 比多幾分之幾,則表示式。 。由此可得 比多 。百分數與小數的互化 百分數化小數 去掉百分號。小數點左移兩位。如 可化為。 小數化百分數 加上百分...
數除以數與數除數有區別嗎,一個數除以一個數與一個數除一個數有區別嗎
一個數除以一個數,意思是被除數 除以除數。一個數除一個數,一個除數去除一個被除數。例如 9 3,9是被除數,3是除數,讀作9除以3。也可讀作3除9.一個數除以一個數與一個數除一個數有區別嗎 有。甲數除以乙數是甲數 乙數 甲數除乙數是乙數 甲數。有區別啦 如 甲數除以乙數 甲數 乙數 甲數除乙數 乙數...
乙個數是50,它比另乙個數的2 5少10,求另乙個數是多少?
兩個數的轎鬥和, 這個敬運數亮帆梁是。先用除法,計算出結果,再化成百分數。舉例說明如下 求佔的百分之幾。先用 ,可得 再把化成百分數,也就是。由此可得佔的 百分數是分母為的特殊分數,其分子可不為整數。百分數表示乙個數是另乙個數的百分之幾,表示乙個比值。百分比是一種表達比例 比率或分數數值的方法,如 ...