Diferencia entre revisiones de «Algoritmia/Algoritmo para obtener la letra del NIF»

Contenido eliminado Contenido añadido
m Revertidos los cambios de 190.42.120.27 (disc.) a la última edición de Syum90
Línea 27:
=== [[Programación en Ada|Ada]] ===
 
EsteÉste es el código fuente en [[Programación en Ada|Ada]] para calcular la letra del NIF.
 
<source lang=ada>
Línea 36:
end Letra_Nif;
</source>
 
=== [[Programación en Matlab|Matlab]] ===
 
Éste es el código fuente en [[Programación en Matlab|Matlab]] para calcular la letra del NIF.
 
<source lang=matlab>
dni=12345678
res=dni-floor(dni/23)*23;
A=['T','R','W','A','G','M','Y','F','P','D','X','B','N','J','Z','S','Q','V','H','L','C','K','E'];
letra=A(res+1)
</source>
 
 
=== [[AppleScript]] ===