Mein Versuch Teilbarkeit

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<run id="4d36e61a54332">
writeln('Juhu');
</run>

<code id="4d36cffeb47bc">
procedure teilbarkeit;
var z,r,t:Integer;
begin
writeln('Zahl eingeben:');
readln(z);
write('Teiler eingeben:');
readln(t);
r:=z mod t;
if r=0 then writeln('Teiler gefunden')
else writeln('Kein Teiler');
</code>

<run id="4d36e6e0a0ff8" >

teilbarkeit();
</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';

selectSound(19); // 19. MIDI organ

for i := 1 to length(Lied) do begin
 if i mod 4 = 1 then begin
  c := Lied[i];
  k := Lied[i+2];
  if c = 'C' then key := 60;
  if c = 'D' then key := 62;
  if c = 'E' then key := 64;
  if c = 'F' then key := 65;
  if c = 'G' then key := 67;
  if c = 'A' then key := 69;
  if c = 'H' then key := 71;
  if k = '1' then dauer := 1000 div 1;
  if k = '2' then dauer := 1000 div 2;
  if k = '4' then dauer := 1000 div 4;
  if k = '8' then dauer := 1000 div 8;

  sound_play(key,dauer);
 end;
end;
</run>