Musical scale: Difference between revisions
→=={{header|FreePascal}}==
(Added solution for Action!) |
|||
Line 500:
Sound(523, 250) 'C5
Sleep</lang>
=={{header|FreePascal}}==
<lang pascal>{$mode objfpc}
uses windows,math;
var
Interval:Double = 1.0594630943592953;
i:integer;
begin
for i:= 0 to 11 do
beep(Round(440.0*interval**i),500);
end.</lang>
=={{header|Go}}==
| |||