Egostar llega a los 3,000

[[felipe88]]

Empezado por ixMike

Si me colocas en ese paseo, será por poeta o cliente habitual, no por programador, ¿verdad? ¿o acaso has visto mucho código por aquí últimamente?

Por cierto, ya que estás, compila esto:


Código Delphi [-]
program lee_notas_pas;

(*
lee_notas.exe v1.0 - 04/12/07
Programado por Miguel Cahigüela López - mikelunatiko@yahoo.es

Este programa y su código fuente son libres, puedes usarlos, copiarlos y
ponerlos en tu web libremente, pero recuerda que debes indicar el autor
y su página web http://usuarios.lycos.es/mikelunatiko/programas.php

Este programa se distribuye tal cual, sin ningún tipo de garantía. Úsalo
bajo tu propia responsabilidad.
*)

uses
Windows, Classes, SysUtils;

var
L: TStringList;
n: integer;

begin
L:=TStringList.Create;
L.LoadFromFile(ParamStr(1));
for n:=0 to L.Count-1 do
begin
Windows.Beep( StrToInt(Copy(L[n], 1, Pos(' ', L[n]) - 1)),
StrToInt(Copy(L[n], Pos(' ', L[n]) + 1, Length(L[n])- Pos(' ', L[n]) + 1)));
Windows.Beep(35, 10);
end;
L.Free;
end.





y lo ejecutas como parámetro un archivo de texto que contenga esto:

988 400
1047 200
1175 200
1175 200
1047 200
988 200
880 200
784 200
784 200
880 200
988 200
988 350
880 150
880 400
988 400
1047 200
1175 200
1175 200
1047 200
988 200
880 200
784 200
784 200
880 200
988 200
880 350
784 150
784 400
880 400
988 200
784 200
880 200
988 100
1047 100
988 200
784 200
880 200
988 100
1047 100
988 200
880 200
784 200
880 200
587 400
988 400
1047 200
1175 200
1175 200
1047 200
988 200
880 200
784 200
784 200
880 200
988 200
880 350
784 150
784 400

¡Pero aléjate de la pantalla!

Nota: si multiplicas los números de la segunda columna por dos, obtendrás un resultado más pausado.


Salu2

Y que se supone que es... una cancion o que