Pascal -- array 的問題

2007-12-15 7:31 pm

http://www.ecupload.net/8071056
請下載這個 file
點解 if 果到會出 error，我是想 check 下、如入的分數大過或細過就 try again &
不計一次數再輸入正確先計……應該點寫？？？
有邊個可幫助一下。。。

回答 (1)

2007-12-15 8:01 pm

✔ 最佳答案

我唔知wincrt係乜..我淨係用過crt,
但係你if 果度呢, 括號括錯哂,
program arraytest_(input,output);
uses crt;
type mark = array [1..10] of real;
var people : mark;
loop : integer;
sum, avg : real;
begin
clrscr;
sum:=0;
writeln( 'Please input 2 marks' );
for loop := 1 to 2 do
begin
readln ( people [loop] );
if (people[loop] < 0) or (people[loop] > 100) then
writeln ('Please try again')
else sum := sum + people[loop]
end;
avg := sum/2 ;
writeln ('Average is', avg:7:2 ) ;
readkey
end.
我咁樣就run到既~
仲幫你改埋 ... 你 begin end 錯左位, 因為方便test,我改左淨係input 2個分,你要自己改番

參考: meself~

👍 0 👎 0