Contributor: MICHAEL HOENIE

{I am having trouble finding exact percents in BPC Pascal 7.0. While this
routine will compile under TPC 4.0+, I am still having troubles getting it
to come out to a rounded number. I have posted this message in other
conferences than Pascal simply because it's a math problem as well as a
programming problem. Thanks Moderators! }

  function calc_p2(num1,num2:integer):string15;
  var
    x:real;
    z:integer;
    cp:string[5];
  begin
    if num1=0 then calc_p2:='0' else calc_p2:='100';
    cp:='  0';
    if (num1=0) or (num2=0) then
      begin
        calc_p2:='    0';
        exit;
      end;
    x:=num1/num2*100;
    str(x:1:1,cp);
    if cp='100.00' then cp:='100';
    if cp='100.0' then cp:='100';
    if cp='0.0' then cp:='0';
    if cp='0.00' then cp:='0';
    while length(cp)<5 do insert(' ',cp,1);
    calc_p2:=cp;
  end;

begin
  writeln('50 into 100 = ',calc_p2(50,100));
  writeln('25 into 100 = ',calc_p2(50,100));
end.

The problem that I am having is, is that it isn't always accurate. I have
a program that has 13 different categories, each with an amount in each
category. Those are then calculated with the percents to show total number
against the full number of all categories. Unfortunatly, adding up the
percents comes up with 99.90% or 100.1% and even 100.3%.

IS there a way to get this to be ACCURATE? It's driving me nutts. Maybe I
am just approaching it in the wrong direction, but any help would be
appreciated.