www.ispwsznysa.fora.pl

stramik

Konwersja tylko dodatnich

program zad2;

{$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 16=0 then bin[licz]:='0';
if a mod 16=1 then bin[licz]:='1';
if a mod 16=2 then bin[licz]:='2';
if a mod 16=3 then bin[licz]:='3';
if a mod 16=4 then bin[licz]:='4';
if a mod 16=5 then bin[licz]:='5';
if a mod 16=6 then bin[licz]:='6';
if a mod 16=7 then bin[licz]:='7';
if a mod 16=8 then bin[licz]:='8';
if a mod 16=9 then bin[licz]:='9';
if a mod 16=10 then bin[licz]:='A';
if a mod 16=11 then bin[licz]:='B';
if a mod 16=12 then bin[licz]:='C';
if a mod 16=13 then bin[licz]:='D';
if a mod 16=14 then bin[licz]:='E';
if a mod 16=15 then bin[licz]:='F';

a:=a div 16;
licz:=licz+1;
until a=0;
end;

procedure pisz(bin:tablica;licz:integer);
var
i:integer;
begin
writeln('Liczba ta w systemie szesnastkowym :');
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 szesnastkowa ');
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_L7Z2;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

begin

repeat

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

repeat
i:=n mod 16;
case i of
10: s:='A' + s;
11: s:='B' + s;
12: s:='C' + s;
13: s:='D' + s;
14: s:='E' + s;
15: s:='F' + s;
else s:=IntToStr(i) + s;
end;
n:=n div 16;
until n = 0;

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

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

end.