Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Program w którym będzie grała kolęda

W dół

Od 1 do 3 z 3

  1.  
    • CommentAuthorrenia
    • CommentTime3 Dec 2007 zmieniony
     
    Musze zrobić program w którym będzie grała kolęda a nie wiem jak to zrobi pomóżcie mi prosze


    // Admin EDIT : prosze o poprawne tematy!
    • CommentAuthorsteficzek
    • CommentTime3 Dec 2007 zmieniony
     

    Uses Crt;
    Const c : Integer = 523;
    d : Integer = 587;
    e : Integer = 659;
    f : Integer = 698;
    g : Integer = 784;
    a : Integer = 880;
    h : Integer = 988;
    c1 : Integer = 1027;
    calanuta : Integer = 256;
    polnuta : Integer = 128;
    cwiercnuta : Integer = 64;
    osemka : Integer = 32;

    procedure Graj(Ton,Czas : Integer);
    begin
    Sound(Ton);
    Delay(Czas)
    end;

    Begin
    Graj(c,calanuta);
    Graj(d,calanuta);
    Graj(e,polnuta);
    Graj(f,polnuta);
    Graj(g,cwiercnuta);
    Graj(a,cwiercnuta);
    Graj(h,osemka);
    Graj(c1,osemka);
    NoSound
    End.

    No comments odnośnie kodu... nutki do kolędy proponuje znaleźć we własnym zakresie, ale admin pewnie będzie miał dwa słówka do Ciebie : )

    pozdrawiam Stefan Pruszkiewicz
    • CommentAuthorrachwal
    • CommentTime3 Dec 2007
     
    Renia zlituj sie nad nami!
    a) co to za temat byl ?!
    b) po co piszesz w 2 watkach to samo ?

Od 1 do 3 z 3

  1.