Witam mam problem z programem który mam napisać w turbo pascalu dopiero zaczynam z tym przygode zrobilem jakies małe programiki ale tego nie umiem.
Program ma przeliczać liczbe w 3 systemach przeliczać z jednego w drugi i trzeci system.
Napisałem dwa programy ale osobno jeden przelicza DEC do HEX a drugi przelicza dziesiętne na BIN. Nie wiem jak to zrobić zeby to było w jednym programie żeby przeliczało jedną liczbę w trzech systemach jaką procedurę i funkcję zastosować bo nie mam pojęcia w ogóle. Proszę o pomoc. W dalszej czesci napisze moje dwa programy.
program Hex;
uses
crt;
const
hex_chars : array[0..$F] of char = '0123456789ABCDEF';
var
x : word;
begin
clrscr;
writeln('ZAMIANA DEC TO HEX (TYLKO BYTE)');
writeln;
write('Podaj wartosc z przedzialu 0..255: ');
readln(x);
write('Liczba ta w systemie hex: ',
hex_chars[x shr 4], hex_chars[x and $F]);
readkey;
end.
program Binarne;
uses
crt;
const
MaxBin = 100;
var
Bin_Tab : array[1..MaxBin] of 0..1; {zmienne pomocnicze}
l1, i, ile : longint;
w : char;
begin
clrscr;
writeln('PROGRAM ZAMIENIA LICZBY DZIESI¨TNE NA LICZBY BINARNE');
writeln;
write('Podaj liczb? cakowitĄ: ');
readln(l1);
ile := 0;
while l1>0 do
begin
ile := ile + 1;
Bin_Tab[ile] := l1 mod 2;
l1 := l1 div 2;
end;
write('Liczba ta w systemie binarnym wynosi: ');
for i:=ile downto 1 do
write(Bin_Tab[i]);
readkey;
clrscr
end.
Pierwszy raz pisze na tym forum to nie wiem czy dobrze wszystko napisałem.