Forum Wielotematyczne przyjazne forum Strona Główna
  FAQ  Szukaj  Użytkownicy  Grupy  Galerie   Rejestracja   Profil  Zaloguj się, by sprawdzić wiadomości  Zaloguj 

[ pascal ] program przesuwający kwadrat po przekątnej. GRAPH

Napisz nowy tematOdpowiedz do tematu Forum Wielotematyczne przyjazne forum Strona Główna -> Pascal
Zobacz poprzedni temat :: Zobacz następny temat
Autor Wiadomość
Fatman:)
Administrator
Administrator



Dołączył: 01 Sty 2007
Posty: 316
Przeczytał: 0 tematów

Pomógł: 3 razy
Ostrzeżeń: 0/6
Skąd: miastetshko city
PostWysłany: Pią 13:59, 09 Maj 2008 Temat postu: [ pascal ] program przesuwający kwadrat po przekątnej. GRAPH
Kod:
program grafika;
uses Graph,WinCRT;

var driver,mode,x,d,m,i,y :integer;
    strona:integer;



procedure ZamienStrony;
begin
        if strona=0 then
        begin
                setvisualPage(1);
                SetActivePage(0);
                strona:=0
        end;
end;
begin
        d:=VGA;
        m:=VgaMed;
        InitGraph(d,m,'');
        ZamienStrony;
        for i:=1 to GetMAxX do
        begin
                x:=i;
                y:=x*3 div 4;
                rectangle(x,y,x+15,y+15);
                ZamienStrony;
                delay(20);


                           x:=i;
                y:=x*3 div 1;
                rectangle(x,y,x+15,y+15);
                ZamienStrony;
                delay(20);

               ClearViewPort;

        end;

    Repeat Until KeyPressed;
    closegraph;

end.



Użyty program : Free Pascal, OS :windows xp professional

Post został pochwalony 0 razy

Ostatnio zmieniony przez Fatman:) dnia Pią 14:01, 09 Maj 2008, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:
Napisz nowy tematOdpowiedz do tematu Forum Wielotematyczne przyjazne forum Strona Główna -> Pascal Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1


Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB Š 2001, 2005 phpBB Group
Theme bLock created by JR9 for stylerbb.net
Regulamin
Na skróty:Strefa CodySprawy forumStrefa tematycznaReklamówkaSprawy Forum i PortaluZlotyMuzykaOfftopicDzień Dobry !!!!GryKoncertyPascalSportFotografiaFilm/kisążkaSprawy DO AdminaReklamujemy, PolecamyLINCZ!