diogobruno

taí

Var renavam : string;
    soma, digito : integer;
    valor, verificador : integer;
    i, j : integer;
begin
  j := 1;
  soma := 0;

  renavam := edt_renavam.Text;

  For i := 5 downto 2 do
  begin
    soma := soma + (StrToInt(renavam[j]) * i);
    j := j + 1;
  end;

  valor := soma mod 11;
  digito:= StrToInt(renavam[6]);

  if((valor <= 1) or (valor >= 10)) then
    verificador := 0
  else
    verificador := valor;

  If (digito = verificador) then
    showmessage ('Renavam nº '+ renavam+ ' Valido!!!')
  else
    showmessage ('Renavam nº '+ renavam+ ' invalido!!!');

Em VB eu Consegui com o seguinte código.. se precisar implementar em outra linguagem só pidir, ou se tiver alguma duvida quando a logica também

Dim Renavam As String
Dim Numeros(5) As String
Dim I, J As Integer
Dim Soma, Valor As Single
Dim Digito As Integer
J = 0
Renavam = txt_renavam.Text
Renavam = Replace(Renavam, "-", "")
For I = 1 To 5
Numeros(I - 1) = Mid(Renavam, I, 1)
Next
For I = 5 To 2 Step -1
Soma = Soma + (Numeros(J) * I)
J = J + 1
Next
Valor = Soma Mod 11
If ((Valor = 1) Or (Valor = 0) Or (Valor >= 10)) Then
Digito = 0
Else
Digito = Valor
End If
Label2.Caption = Digito & " " & Numeros(4) & " " & Soma & " " & Digito
If (Digito = Numeros(4)) Then
MsgBox ("Renavam nº " & Renavam & " Valido!")
Else
MsgBox ("Renavam nº " & Renavam & " Invalido!")
End If

Nunca vi um numero desse =p

mas qual a regra da validação?