aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Programm versucht die Tonsequenzen von Turbo Pascal so zu verwenden, dass sich das Ergebnis wie ein Telefon anhört.

Programm

program telefon;
uses crt,dos;


var x1,x2 :integer; ton : real;paar,Note,pause: integer;

procedure ringen;

      begin
       ton := 33.123;
      for x1 := 1 to paar do  ton := ton * 2;
      for x1 := 1 to Note - 1 do  ton := ton + 0.1;
     if pause <> 0 then
          begin
          sound(round(ton));
          delay(24);
          nosound;
          end
     else
          sound(round(ton));
     end;

begin
repeat
  for x2 := 1 to 7 do

         begin
            paar:=4;
            Note:=3;
            pause:=31;

            ringen;
            delay(18);
            paar:=4;
            Note:=3;
            pause:=19;
            ringen;
         end;
         delay(141);
  for x2 := 1 to 7 do

            begin
            paar:=4;
            Note:=3;
            pause:=31;
            ringen;
            delay(18);
            paar:=4;
            Note:=3;
            pause:=19;
            ringen;
            end;
  delay(1200);
  until keypressed;
end.

---

--Gastarbeiter 19:14, 24. Feb 2006 (CET)

---