[PASCAL]Konwersja liczby dziesiętnej na binarną

[ziom32]

Witam.

Mam pewien problem z napisaniem programu który zamienia liczbę dziesiętną na binarną. Wynik ma być zwracany jako string.

Napisałem pewną funkcję, która ma wykonywać to zadanie:

function dec2bin2(liczba: integer):string; var c:integer; begin Result:=’’; repeat c:=(liczba mod 2); Result:=char(c+ord(0))+Result; liczba:=liczba div 2; until liczba=0; end;

Po wywołaniu funkcji na ekranie zamiast zer i jedynek wyświetlają mi się jakieś dziwne zaczki(uśmieszek).

Wie ktoś w czym tkwi problem?

Z góry dzięki za pomoc.

[Wasacz]

ord(‘0’)

[ziom32]

Byłbym wdzięczny gdybyś napisał coś więcej(co mam zrobić z tym ord(‘0’) i dlaczego). Dopiero zaczynam swoją przygodę z Pascalem więc proszę o wyrozumiałość .

[_alex]

Ord(‘0’) zamiast Ord(0)

[ziom32]

Aha. Dzięki za pomoc już wszystko działa.