看看這個free pascal程式出錯在哪裡,應如何修改。急

2022-06-14 18:40:12 字數 941 閱讀 8308

1樓:匿名使用者

你的說明部分好混亂

type要在var之前;type時用「=」,var時用「:」。

這樣吧:

var f:string;

a:array[1..100]of integer;

n,i,j:integer;

但如果f為string的話,f:=a[i]*exp(ln(x)*i);會出錯,改為str(a[i]*exp(ln(x)*i),f);或者把f改為實型(exp的結果是實型,要整型的話加round,f就可以是整型了)

2樓:匿名使用者

var letter:array[1..100] of char;

i,j:integer;

ch:char;

begin

i:=0;

read(ch);

while ch<>'.' do

begin

i:=i+1;

letter[i]:=ch;

read(ch);

end;

j:=1;

while(j<=i) and (letter[j]=letter[i]) do

begin

i:=i-1;

j:=j+1;

end;

if j>=i then write('yes') else write('no');

end.

改過的程式在本機可行

迴文還是用string最好,樓主以後注意下書寫格式~

3樓:

x 沒有定義

f 看起來應該定義為實型變數(double,real 或 extended),但是 f 定義是錯的

應該在 var 段中寫 f:double; 或 f:extended;

把那個 type f:string 去掉

馬程老師 請幫我看看這個玉手鐲 叫價6600 請問是真貨嗎?值這個價格嗎?非常感謝您

底子太乾淨 連翡都處理掉了一些 這隻手鐲,翡的出現太不自然 還有就是棉綹大刀的出現 我個人覺得是b貨無疑 如果實物這種水頭 那 確實不貴 但必須是a貨 建議你不要 交易 飄的黃綠色不象翡翠,倒象是冰種岫玉。不懂就別亂買玉!沒有實貨誰也看不出真假!不過玉都標價比較高!出廠也就2折左右 老師看看這個手鐲...

看看這配置,幫我看看這個配置

配置不錯 中高階了。2個建議 u上e8200 那麼好的超頻板子和額定400w電源 千萬別買e7 它是太監u 2緩閹一半 就算超到5g還是e8系列4g的效能 intel e系列和q系列的u沒有記憶體控制器 設計理念不同 所以主要依靠2緩傳輸資料 這就是為什麼現在2緩比amd高那麼多 條子買2跟2g d...

馬程老師幫我看看這玩意,馬程老師,麻煩幫我看看我這個手鐲是什麼材質,值多少錢

您好 目測看 這是一款翡翠a貨 糯種 貔貅雕件 種水還不錯的 玉質細潤 希望回答可以幫助您 馬程老師,麻煩幫我看看我這個手鐲是什麼材質,值多少錢 您好,目測是翡翠的 真貨沒什麼問題 只是,您這個圖過於的模糊了 無法準確評估 請您提供清晰圖來看 謝謝 大致目測的話 只要實物紫色能跟圖上差不多 那麼看到...