Str Pure3D miniblogs

Vai kāds var palīdzēt? 
 Vajag blokshēmu (flowchart) kodam, online makeros ir galīgi aplami un nav neviens saprātīga programa free. 

 Kods ; 

 Program convertor; 
 Uses crt; 
 label 0,1,2,3,4; 
 var hg,duzb,pakape,ox,buzd,pak,sum,duzh:integer; 
 bin1:Array[0..15] of Longint; 
 hex1:Array[0..15] of Char; 
 hex:Array[0..15] of Char; 
 bin:Array[0..15] of String; 
 a,i,b1,h1:Longint; 
 c,b2,d2,x,y,ab:Char; 
 b,d:String; 
 summa:int64; 
 decimal:real; 
 ////////////////////////////////////////////////////////////////////////////////// 
 Begin 
 Clrscr; 
 Writeln ('1:bin->hex'); 
 Writeln ('2:hex->bin'); 
 Writeln ('3  ec->bin'); 
 Writeln ('4:bin->Dec'); 
 0: 
 Write('Ievadiet veidu: '); 
 Readln (hg); 
 If hg=1 then goto 1; 
 If hg=2 then goto 2; 
 If hg=3 then goto 3; 
 If hg=4 then goto 4; 
 ////////////////////////////////////////////////////////////////////////////////// 
 1: 
 Begin 
 bin1[0]:=0000; hex1[0]:='0'; 
 bin1[1]:=0001; hex1[1]:='1'; 
 bin1[2]:=0010; hex1[2]:='2'; 
 bin1[3]:=0011; hex1[3]:='3'; 
 bin1[4]:=0100; hex1[4]:='4'; 
 bin1[5]:=0101; hex1[5]:='5'; 
 bin1[6]:=0110; hex1[6]:='6'; 
 bin1[7]:=0111; hex1[7]:='7'; 
 bin1[8]:=1000; hex1[8]:='8'; 
 bin1[9]:=1001; hex1[9]:='9'; 
 bin1[10]:=1010; hex1[10]:='A'; 
 bin1[11]:=1011; hex1[11]:='B'; 
 bin1[12]:=1100; hex1[12]:='C'; 
 bin1[13]:=1101; hex1[13]:='D'; 
 bin1[14]:=1110; hex1[14]:='E'; 
 bin1[15]:=1111; hex1[15]:='F'; 
 Write('Ievadiet binaro skaitli: '); 
 readln(a); 
 b1:= a div 1 mod 10000; 
 h1:= a div 10000 mod 10000; 
 For i:= 0 to 15 do begin 
 If b1 = bin1[i] then b2:=hex1[i] ; 
 If h1 > 0 then If h1 = bin1[i] then d2:=hex1[i]; 
 end; 
 Write('Jusu hexadecimalais skaitlis ir: ',d2,b2); 
 Readln; 
 End; 
 Write('Velaties atkartot? [Y/N]'); 
 Readln (ab); 
 If ab='y' then goto 0; 
 If ab='n' then Exit; 
 ////////////////////////////////////////////////////////////////////////////////// 
 2: 
 Begin 
 hex[0]:='0'; bin[0]:='0000'; 
 hex[1]:='1'; bin[1]:='0001'; 
 hex[2]:='2'; bin[2]:='0010'; 
 hex[3]:='3'; bin[3]:='0011'; 
 hex[4]:='4'; bin[4]:='0100'; 
 hex[5]:='5'; bin[5]:='0101'; 
 hex[6]:='6'; bin[6]:='0110'; 
 hex[7]:='7'; bin[7]:='0111'; 
 hex[8]:='8'; bin[8]:='1000'; 
 hex[9]:='9'; bin[9]:='1001'; 
 hex[10]:='A'; bin[10]:='1010'; 
 hex[11]:='B'; bin[11]:='1011'; 
 hex[12]:='C'; bin[12]:='1100'; 
 hex[13]:='D'; bin[13]:='1101'; 
 hex[14]:='E'; bin[14]:='1110'; 
 hex[15]:='F'; bin[15]:='1111'; 
 Write('Ievadiet hexadecimalo skaitli: '); 
 readln(x,y); 
 For i:= 0 to 15 do begin 
 If x = hex[i] then b:=bin[i] ; 
 If y = hex[i] then d:=bin[i] ; 
 end; 
 Write('Jusu binarais skaitlis ir: ',d,b); 
 Readln; 
 End; 
 Write('Velaties atkartot? [Y/N]'); 
 If ab='y' then goto 0; 
 If ab='n' then Exit; 
 ////////////////////////////////////////////////////////////////////////////////// 
 3: 
 Begin 
 Write('Ievadiet decimalo skaitli: '); 
 readln(duzb); 
 pakape:= 1; 
 while duzb <> 0 do 
 begin 
 ox:= duzb mod 2; 
 duzb:= duzb div 2; 
 pakape := pakape*10; 
 summa:=summa+pakape*ox; 
 end; 
 summa:=summa div 10; 
 writeln('Jusu binarais skaitlis ir: ',summa); 
 end; 
 Write('Velaties atkartot? [Y/N]'); 
 Readln (ab); 
 If ab='y' then goto 0; 
 If ab='n' then Exit; 
 ////////////////////////////////////////////////////////////////////////////////// 
 4: 
 write('Ievadiet binaro skaitli: '); 
 readln(buzd); 
 pak:=1; 
 while buzd <> 0 do 
 begin 
 sum:= buzd mod 10; 
 decimal:=decimal+sum*pak; 
 pak:=pak*2; 
 buzd:=buzd div 10; 
 end; 
 writeln('Jusu decimalais skaitlis ir: ',decimal:0:0); 
 Write('Velaties atkartot? [Y/N]'); 
 Readln (ab); 
 If ab='y' then goto 0; 
 If ab='n' then Exit; 
 ////////////////////////////////////////////////////////////////////////////////// 
 end