analisi corrispondenza tra amminoacidi e codice a codoni
varianti con richiesta di interazione

program mutare4;
(* codice genetico:tripplette e amminoacidi codificati *)
(* traduzione di serie AMMINOACIDI in serie TRIPPLETTE *)
USES CRT;
  const n=64;k=100;
  var a,d,lunga,divide,h:integer;
        s,a1,a2:string;
        b:array[1..n] of string[3];
        c:array[1..n] of string[12];
        r:array[1..k] of string[3];

   procedure cancella;
   beGIN;
   CLRSCR;
   end;
        
   procedure dati;
   begin
  
  b[1]:='UUU ';b[2]:='UUC ';b[3]:='UUA ';b[4]:='UUG ';
  b[5]:='UCU ';b[6]:='UCC ';b[7]:='UCA ';b[8]:='UCG ';
  b[9]:='UAU ';b[10]:='UAC ';b[11]:='UAA ';b[12]:='UAG ';
  b[13]:='UGU ';b[14]:='UGC ';b[15]:='UGA ';b[16]:='UGG ';
  
  b[17]:='CUU ';b[18]:='CUC ';b[19]:='CUA ';b[20]:='CUG ';
  b[21]:='CCU ';b[22]:='CCC ';b[23]:='CCA ';b[24]:='CCG ';
  b[25]:='CAU ';b[26]:='CAC ';b[27]:='CAA ';b[28]:='CAG ';
  b[29]:='CGU ';b[30]:='CGC ';b[31]:='CGA ';b[32]:='CGG ';
  
  b[33]:='AUU ';b[34]:='AUC ';b[35]:='AUA ';b[36]:='AUG ';
  b[37]:='ACU ';b[38]:='ACC ';b[39]:='ACA ';b[40]:='ACG ';
  b[41]:='AAU ';b[42]:='AAC ';b[43]:='AAA ';b[44]:='AAG ';
  b[45]:='AGU ';b[46]:='AGC ';b[47]:='AGA ';b[48]:='AGG ';
  
  b[49]:='GUU ';b[50]:='GUC ';b[51]:='GUA ';b[52]:='GUG ';
  b[53]:='GCU ';b[54]:='GCC ';b[55]:='GCA ';b[56]:='GCG ';
  b[57]:='GAU ';b[58]:='GAC ';b[59]:='GAA ';b[60]:='GAG ';
  b[61]:='GGU ';b[62]:='GGC ';b[63]:='GGA ';b[64]:='GGG ';
  
  
   c[1]:='PHE';c[2]:='PHE';c[3]:='LEU';c[4]:='LEU';
   c[5]:='SER';c[6]:='SER';c[7]:='SER';c[8]:='SER';
   c[9]:='TYR';c[10]:='TYR';c[11]:='***';c[12]:='***';
   c[13]:='CYS';c[14]:='CYS';c[15]:='***';c[16]:='TRY';
   
   c[17]:='LEU';c[18]:='LEU';c[19]:='LEU';c[20]:='LEU';
   c[21]:='PRO';c[22]:='PRO';c[23]:='PRO';c[24]:='PRO';
   c[25]:='HIS';c[26]:='HIS';c[27]:='GLN';c[28]:='GLN';
   c[29]:='ARG';c[30]:='ARG';c[31]:='ARG';c[32]:='ARG';
   
   c[33]:='ILE';c[34]:='ILE';c[35]:='ILE';c[36]:='MET';
   c[37]:='THR';c[38]:='THR';c[39]:='THR';c[40]:='THR';
   c[41]:='ASN';c[42]:='ASN';c[43]:='LYS';c[44]:='LYS';
   c[45]:='SER';c[46]:='SER';c[47]:='ARG';c[48]:='ARG';
   
   c[49]:='VAL';c[50]:='VAL';c[51]:='VAL';c[52]:='VAL';
   c[53]:='ALA';c[54]:='ALA';c[55]:='ALA';c[56]:='ALA';
   c[57]:='ASP';c[58]:='ASP';c[59]:='GLU';c[60]:='GLU';
   c[61]:='GLY';c[62]:='GLY';c[63]:='GLY';c[64]:='GLY';
   end;

   begin
   cancella;
   dati;
   a1:='PHE,LEU,SER,TYR,CYS,TRY,LEU,PRO,HIS,GLN,ARG';
   a2:='ILE,THR,ASN,LYS,SER,VAL,ALA,ASP,GLU,GLY';
   h:=1;
   WRITELN('scopo del programma:traduce amminoacidi in tripplette');
   writeln('notare la difficolta di decodificazione per amminoacidi');
   writeln('con piu tripplette corrispondenti:RIDONDANZA del codice');
   writeln;
   writeln(a1);writeln(a2);writeln;
   writeln('scrivi serie di SIGLE amminoacidi ALALYSLEUALA.... ');
   writeln('scrivi al massimo 6 amminoacidi per motivi di video..');
   writeln('per finire la serie premi INVIO ');
   writeln('----------------------------------------------');
   writeln('---***---***---***---***---***---***---***---***---');
   writeln;
   readln(s);
   lunga:=length(s);
   if lunga>18 then lunga:=18;
    divide:=lunga div 3;
    lunga:=divide*3;
    cancella;
    writeln('serie amminoacidi inserita');
    writeln(s);
    writeln('----------------------------------------------');
    for a:=1 to divide do
     begin
     r[a]:=copy(s,h,3);
     h:=h+3;
     write(r[a],'-');
     end;
     WRITELN;
     writeln('premi INVIO');readln;cancella;
     writeln('traduzione serie tripplette in serie amminoacidi');
     writeln;
     for a:=1 to divide do
     begin
       for d:=1 to k do
       if r[a]=c[d] then writeln(r[a],'-',b[d]);
      end;
      writeln;
      writeln('premi INVIO');readln;cancella;
      writeln('serie amminoacidi completa ');writeln;
      
      for a:=1 to divide do
     begin
       for d:=1 to k do
       if r[a]=c[d] then write(r[a],'-');
      end;
      writeln;
      writeln('serie di tripplette corrispondenti');writeln;
       for a:=1 to divide do
     begin
       for d:=1 to k do
       if r[a]=c[d] then write(b[a],'-');
      end;
      writeln;
      writeln('premi INVIO');readln;cancella;

    end.
   
   

indice o inizio