www.ispwsznysa.fora.pl

stramik

Konwersja dziesietnych na binarne, nie wiem czy trzeba bylo zrobic dla liczb ujemnych.Ten program dziala tylko dla dodatnich.
program zad1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica=array[1..50] of char;

procedure konwersja(a:integer;var licz:integer;var bin:tablica);
begin
repeat
if a mod 2=1 then
bin[licz]:='1';
if a mod 2=0 then
bin[licz]:='0';
a:=a div 2;
licz:=licz+1;
until a=0;
end;

procedure pisz(bin:tablica;licz:integer);
var
i:integer;
begin
writeln('Liczba ta w systemie binarnym :');
for i:=licz downto 1 do
begin
write(bin[i]);
end;
writeln;
end;

var
bin:tablica;
a,licz:integer;
q:char;

begin
repeat
a:=0;
licz:=1;
writeln('Wpisz liczbe do konwersji z dziesietnej na binarna ');
readln(a);
konwersja(a,licz,bin);
writeln;
writeln;
pisz(bin,licz);
writeln;
writeln('Jeszcze raz ?? t/n');
readln(q);
until q<>'t';
end.

Mardok

program Halik_L7Z1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,n : integer;
s : string;
ch : char;

begin

repeat

write('Podaj Liczbe : ');
readln(n);

s:='';
repeat
s:=IntToStr(n mod 2) + s;
n:=n div 2;
until (n = 0) or (n = 1);
s:=IntToStr(n) + s;

writeln;
writeln('System dziesietny : ',s);
writeln;
write('Wykonac ponownie ? [T/N] : ');
readln(ch);

until (ch <> 'T') and (ch <> 't');

end.