for-loop - 在 Pascal 中循环将实数转换为整数

Question

我是 Pascal 的新手，我不知道如何解决这个错误：不兼容的类型：得到“S80REAL”预期“LONGINT”

我的代码是：

Var
number1:Integer;
a,b:Integer;
a,i:Integer;

procedure number(number1: Integer);
begin
a:=1;
b:=number1+(number1-1);
  for a:=1 to number1 do
  begin
    for i:=1 to ((b-a)/2) do
    begin
    write('#');
    end;
  end;
end;

错误在这里： for i:=1 to ((b-a)/2) do

谢谢你的帮助。

Answer 1

将 '/' ( (ba)/2 ) 替换为 'div'

'/' 是 Pascal 中的实数除法，'div' 是整数除法

procedure number(number1: Integer);
begin
 a:=1;
 b:=number1 + number1 - 1;
 for a:=1 to number1 do
  begin
   for i:=1 to ((b-a) div 2) do
    begin
     write('#');
    end;
  end;
end;