перевод в последовательность

[Janette]

Помогите пожалуйста с задачкой ...

При выполнении лабораторной работы не использовать стандартные функции конвертации (Val, Str).


Написать программу, которая переводит любое число типа Real, введенное пользователем, в последовательность символов и выводит ее на экран

[Serge_Bliznykov]

получите и распишитесь! ;-))

const
  Epsilon = 0.001;

var
  r : real;
  s : string;
  IntPart, FraqPart : integer;
  i : integer;

function OneDigitStr(i:integer):string;
var
  c : char;
begin
  c := chr(i + $30);
{
если CHR тоже нельзя использовать,
     тогда либо
       куча if i=0 then .../ i=1 / i=2 и так до i=9
     либо case
      case i of
         0: c:='0';
         1: c:='1';
         ...
         9: c:='9';
      end;
}
OneDigitStr := c
end;

function MyIntToStr(Number:integer):string;
var
  ss : string;
  OneDigit : integer;
begin
  ss := '';
  if Number=0 then ss:='0'
  else
    repeat
      OneDigit := Number mod 10;
      Number := Number div 10;
      ss := OneDigitStr(OneDigit) + ss;
    until Number=0;
  MyIntToStr := ss
end;

begin
  WriteLn('Введите вещественное число: ');
  Readln(r);
  s := '';
  if r<0 then
  begin
    s := '-';
    r := r*(-1.0);
  end;
  if r<Epsilon then
    s:=s+'0.000'
  else
    begin
      {отделяем целую и дробную части. }
      IntPart := trunc( r);
      FraqPart := trunc(((r-int(r))/Epsilon)+Epsilon);

      {получаем строчку из целая часть + разделитель + дробная часть}
      s := s + MyIntToStr(IntPart) + ',' + MyIntToStr(FraqPart);
    end;
 WriteLn(s)
end.

p.s. ВНИМАНИЕ! в функции OneDigitStr комментарий исключительно для Вас! не стоит это показывать преподавателю! ;-)
удачи.

[Janette]

Спасибо огромное!!!! =)