關於Pascal的問題

1樓：吳以倫

語法錯誤是：program esatj 後面有 ；

程式錯誤x:=90+0.7*x; 改為x:=90+0.7*(x-100);

附加題var

a,b,c:real;

procedure max(var a,b:real);

vart:real;

begin

if aend;

begin

read(a,b,c);

max(a,b);

max(a,c);

if (a

if (a*a-b*b-c*c<0.00001) then write('zhi jiao');{這叫做無限接近 因為是real｝

end.

｛不判斷輸入資料為負或0)

2樓：赤色果肉的西瓜

1. x:=0.7*(x-100)+90;

2.writeln(x:0:0)

幾位小數

附加:var a:array[1..9]of string;

i,j:integer;

begin

for i:=1 to 3 do

read(a[i]);readln;

for i:=4 to 9 do

a[i]:=a[i-3];

for i:=1 to 6 do

if a[i]+a[i+1]>a[i+3] thenwriteln(a[i],' ',a[i+1],' ',a[i+2],' yes');

for i:=1 to 6 do

if a[i]*a[i]+a[i+1]*a[i+1]=a[i+2]*a[i+2] then

writeln(a[i],' ',a[i+1],' ',a[i+2],' right');

end.

3樓：匿名使用者

x:=0.7*(x-100)+90;

PASCAL問題，Pascal問題

歷年noip。找源程式太容易了吧 pascal問題 第五題 program lsh5 vara,b,n,x,p integer t array 1.100 ofinteger begin readln n fora 1ton div2 1 dobegin x 0 p a forb a 1ton di...

pascal問題，pascal問題

這是第一題 var i,j,a,n,s,t longint begin readln a,n for i 1 to n do begin s 0 for j 0 to i 1 do begin inc s,a round exp j ln 10 end inc t,s end writeln t r...

PASCAL超簡單問題 關於陣列

呵.不好解釋.突然有人問陣列是什麼還真的不好回答.還是結合程式去理解起來容易.一維陣列 1 定義 vara array 1.10 of integer 其中 a是這一批資料的名稱，稱為陣列名 array of是定義陣列的保留字 中括號中的數字是資料編號的下限和上限，財時也說明了資料的個數 上限 下限...