[06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 Ortega.cl
Ortega.cl :: Validar RUT! :: Turing

Validar RUT!
Turing

Enviado por Mañungo


function dv( n : real ) : string
	var aux, resultado : real
	var valor : int
	aux := n
	resultado := 0
	valor := 1

	for i : 2 .. 9
		if (i = 8) then
			valor := 2
		else
			valor := valor + 1
		end if
		resultado := resultado + valor * (aux mod 10)
		aux := aux div 10
	end for

	resultado := 11 - ( resultado mod 11 )
	if (resultado = 10) then
		result "k"
	else
		result chr (round (resultado + 48))
	end if
end dv
Última Modificación: Nov 16, 2006, 4:10 pm         Esta página sin Plop!         Opera
Sitio Plop!