Написать задачу перевода из 10 с.с. в 2 с.с. двумя способами:1) функции2) процедуры

Question

Написать задачу перевода из 10 с.с. в 2 с.с. двумя способами:
1) функции
2) процедуры

Answer 1

Function toBin(dec: integer): string;
var
  buf: integer;
  str: string;
begin
  buf := dec;
  repeat
    str := concat(IntToStr(buf mod 2), str);
    buf := buf div 2;
  until (buf = 0);
  toBin := str;
end;

procedure toBin(dec: integer; var bin: string);
var
  buf: integer;
begin
  buf := dec;
  repeat
    bin := concat(IntToStr(buf mod 2), bin);
    buf := buf div 2;
  until (buf = 0);
end;

var
  s: string;

begin
  writeln(toBin(10));
  toBin(10, s);
  writeln(s);
end.

Comments

спасибо ! :)

---

Обращайтесь...

---

что такое toBin и concat ?

---

concat возвращает строку, образованную при слиянии строк-аргументов
toBin - функция и процедура, они выше объявлены, выберите нужное

---

спасибо С: