Convert real to Integer in loop in Pascal

0
votes

I'm new in Pascal and I don't know how a fix this error: Incompatible types: got "S80REAL" expected "LONGINT"

My code is: 

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;

Error is here: for i:=1 to ((b-a)/2) do

Thank you for help.

1
for-looppascal

1 Answers

3
votes

Replace the '/' ( (b-a)/2 ) with 'div'

'/' is real division in Pascal, 'div' is integer division

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;