Cita:
Empezado por Delphius
¡Roman, cuentalos... quien sabe si este Casimiro se hizo la vista gorda y no envió todos!
Saludos,
|
¿Acaso dudas de mi profesionalidad?, ¿acaso ves algún error en el código?
Código:
ShowMessage( SacarPuntos(14000) );
Código:
function SacarPuntos( iCantidad:integer ):string;
var
iX:integer;
begin
result:='';
for iX:=1 to iCantidad do
result := result + '.';
end;
Versión más optimizada:
Código:
function SacarPuntos( iCantidad:integer ):string;
begin
result:='';
while iCantidad>0 do
begin
result:=result+'.';
dec(iCantidad);
end;
end;