Lessing-Gymnasium Hoyerswerda/Informatik

Wiki-Quelltext dieser Seite.

 <code id="4d36cffeb47bc">
 procedure leiter;
 var i:Integer;
 begin
 for i := 0 to 10 do 
  sound_play(50+i*2,100);
 end;
 </code>

<run id="4d2a0bf79ce23">
selectSound(1); // Piano MIDI 
leiter();
</run>

<code id="4d2a0bf79cc25">
var Lied:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i:Integer;
</code>
<run id="4aa4b46b6775d">
Lied := 'E-4 E-4 E-2 E-4 E-4 E-2 E-4 G-4 C-4 '+
        'D-4 E-1 F-4 F-4 F-4 F-4 F-4 E-4 E-4 '+
        'E-8 E-8 E-4 D-4 D-4 E-4 D-2 G-2';