Developing.ru

Создать модуль , содержащий мелодию
до sound (523)
ре (587)
ми (659)
фа (698)
соль (784)
ля (880)

По моему так:

[syntax='delphi']
unit melody;

interface

uses crt;

const d=1000;{задержка между нотами}

procedure play;

implementation

procedure play;
begin
sound (523);
delay(d);
sound (587);
delay(d);
sound (659);
delay(d);
sound (698);
delay(d);
sound (784);
delay(d);
sound (880);
delay(d);
nosound;
end;

end.
[/syntax]

Нда... Мир развивается по кругу :lol:

У них один и тот же препод?

http://forum.developing.ru/showthread.php:

sAmbo писал(а):Создать модуль , содержащий мелодию
до sound (523)
ре (587)
ми (659)
фа (698)
соль (784)
ля (880)