Convert real to Integer in loop in Pascal

Question

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.

No'am Newman · Accepted Answer · 2013-10-27 11:24:28Z

3

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;

answered Oct 27, 2013 at 11:24

No'am Newman

6,4975 gold badges42 silver badges54 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Marco van de Voort Over a year ago

+1 And have a look at trunc/round if you want more control about rounding.

No'am Newman Over a year ago

@NejcGalof: Please 'accept' my answer if you found it useful.

Collectives™ on Stack Overflow

Convert real to Integer in loop in Pascal

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related