как перевести код паскаля с си? Опции

[leahov]

есть код программы, как его можно перевести в Си?

[мисс_граффити]

так лучше?

program Convert;
const
nul = '0';
nine = '9';
point = '.';
n = 10;
var
result: real;
scale: real;
c: char;
begin
result := 0;
writeln('vvedite posledovatelnost');
repeat
  read( с )
until (nul <= c) and (c <= nine);

while (nul <= c) and (c <= nine) do
  begin
  result := n * result + ord( с ) - ord(nul);
  read( с );
  if c = point then
    begin
    scale := 1;
    read( с );
    while (nul <= c) and (c <= nine) do
      begin
      scale := scale * 10;
      result := result + (ord( с ) - ord(nul) ) / scale;
      read( с );
      end
    end;
  end;
writeln ('result = ' , result );
readln
end.

Сообщение отредактировано: мисс_граффити - 22.12.2006 20:39