1樓：匿名使用者
你的程式有一個嚴重的語法錯誤。
freepascal的主程式[[必須]]被包括在一對begin...end中
最後一個end後加點(.)
你的程式可以改成
program sy;
var a,b:integer;
begin
for a:=1 to 5 do beginfor b:=1 to 10 do write('*');
endend.
這樣沒有語法錯誤了。
不過我不知道你這個程式的目的。
是不是出5行**********
這樣的話把原程式的改成writeln;
2樓：匿名使用者
begin 和end是成對出現的，所以你應該在var a,b:integer;加一個begin，建議你以後先打好
begin
end.
再從中間開始寫，這樣就不會漏了begin和end.
應該這樣
program sy;
var a,b:integer;
begin
for a:=1 to 5 do
for b:=1 to 10 do write('*');
end.
3樓：
第3行的begin 沒有end
可以把那個begin刪了或者在最後end之前再加個：
end;
4樓：喜揚揚
你的程式有一個嚴重的語法錯誤。 你的程式可以改成program sy;
var a,b:integer;
begin
for a:=1 to 5 do beginfor b:=1 to 10 do write('*');
endend.
這樣沒有語法錯誤了。
是不是出5行**********
這樣的話把原程式的改成writeln;
free pascal問題跪求
vara,b,c,t longint begin readln a,b,c if at a a b b t end if a0 then writeln sqrt x 0 5 else if x 0 then writeln x 0 else writeln x 0 readln end.vara,...
關於Free Pascal程式設計問題
迴圈問題。樓上講得很詳細，對樓上的進行補充一下迴圈語句的基本格式，這對初學者的用處也是不可忽視，得從基本的開始，先掌握理論，進行實戰，事半功倍。for 迴圈變數 初始值 to 終值 do迴圈體 接著就是了解方法，樓上已經把解題的方法講的很詳細了，綜合的應用就要看樓主自己的啦，多練習兩次，相信不難掌握...
free pascal最小連續合數
首先，s表示a到b之間合數的個數，所以 if yes then s b a 應改為if yes then s b a 1 其次dsa js a 1 2 應改為dsa js a 2 否則答案會多一個數 接著你的程式只能求1000以內的素數，而連續20個素數就大於1000了，你需要增大陣列規模 所以修改...