SP2013E1b, Pascal - rextester

SP2013E1b

//fpc 2.6.2

program HelloWorld;
const
    MAX_FICHAS=9;
type
 TipoFicha = (A, B, C, D);
 Secuencia = Array[1..MAX_FICHAS] of TipoFicha;
 
 function indiceBloqueN(a : Secuencia; n : Integer) : Integer;
 var
     inicio, acum, i : integer;
     salir : boolean;
 begin
     inicio:=1;
     acum:=1;
     i:=2;
     salir:=false;
     while (i<=MAX_FICHAS) and (not salir) do
     begin
         if (a[i-1]=a[i]) then
             acum:=acum+1
         else if (acum<>n) then begin
             inicio:=i;
             acum:=1;
         end
         else
             salir:=true;
         i:=i+1;
     end;
     if salir then 
         indiceBloqueN:=inicio
     else
         indiceBloqueN:=-1;
 end;
var
    sec : Secuencia;
begin
{
[B,B,B,A,A,C,A,D,D] 2 4
[A,A,B,B,B,C,A,D,D] 1 6
[A,A,B,B,B,C,A,D,D] 5 -1
}
sec[1]:=B;
sec[2]:=B;
sec[3]:=B;
sec[4]:=A;
sec[5]:=A;
sec[6]:=C;
sec[7]:=A;
sec[8]:=D;
sec[9]:=D;
writeln(indiceBloqueN(sec,2));
sec[1]:=A;
sec[2]:=A;
sec[3]:=B;
sec[4]:=B;
sec[5]:=B;
sec[6]:=C;
sec[7]:=A;
sec[8]:=D;
sec[9]:=D;
writeln(indiceBloqueN(sec,1));
sec[1]:=A;
sec[2]:=A;
sec[3]:=B;
sec[4]:=B;
sec[5]:=B;
sec[6]:=C;
sec[7]:=A;
sec[8]:=D;
sec[9]:=D;
writeln(indiceBloqueN(sec,5));
end.


run \| edit \| history \| help	0