Все лабораторные работы по паскалю / 8 лаб. Модульное программирование / modul01

unit modul01;

interface function octbin(s: string):string;
          function binoct(dva:string):string;
          const S:array['0'..'7'] of String[3]=('000','001','010','011','100','101','110','111');
implementation

//из 8 в 2
function octbin (s: string):string;
var bin,k: string; j: integer;
 begin
  for j:=1 to length(s) do
   begin
    case s[j] of
     '1': k:='001';
     '2': k:='010';
     '3': k:='011'; 
     '4': k:='100';
     '5': k:='101';
     '6': k:='110';
     '7': k:='111';
    end;
    bin:=bin+k;    
   end;   
   octbin:=bin;
 end;
 
 //из 2 в 8
function binoct(dva:string):string;
         var i: Integer; c: Char; vos: String; st: String[3];
begin

while length(dva) mod 3 <> 0 do dva:='0'+dva;
vos:='';
for i:=1 to length(dva) div 3 do
 begin
  st:=Copy(dva,3*I-2,3);
  for c:='0' to '7' do if st=S[c] then vos:=vos+c
 end;
 binoct:=vos;
end; 
 
end.