SP w Piotrowicach Strona Główna SP w Piotrowicach
Forum Szkoły Podstawowej nr 3 w Piotrowicach

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  AlbumAlbum

Poprzedni temat «» Następny temat
Fraktale
Autor Wiadomość
Greif 



Pomógł: 2 razy
Wiek: 42
Dołączył: 02 Paź 2007
Posty: 1577
Skąd: Piotrowice
Wysłany: 2007-11-08, 00:01   Fraktale

Ten temat zawsze lubiłem, fraktale są super...

Zamieszczę tu przykładowy listing na prosty fraktal, zobaczymy czy uda się go Wam uruchomić. Przekleić najlepiej do Notatnika SP a potem zapisać jako program PAS.

Kod:
program Dwa_przeksztalcenia;     {Turbo Pascal 7.0}
uses graph,crt; var karta,tryb,prz,skala:integer; x,y,xNowe,yNowe:real;
const t: array[1..12] of real= (0,0.9,-0.4,-0.4,0,-0.5,0.5,-1,0.5,0.3,0.6,-0.6);
begin
clrscr;
    karta:=detect; initGraph(karta,tryb,''); randomize;
    x := 0; y := 0; skala:=80;
    repeat
         prz := random(2);     {losowanie przeksztalcenia}
         xNowe:=t[prz*6+1]*x+t[prz*6+2]*y+t[prz*6+3]; {obliczanie nowych wspolrzednych}
         ynowe:=t[prz*6+4]*x+t[prz*6+5]*y+t[prz*6+6];
         x := xNowe;
         y := yNowe;
         putPixel(round(x*skala+320),round(-y*skala+240),prz+3); {rysowanie nowego punktu}
    Delay(1);
    until keyPressed;
    readLn; closeGraph;
end.

Program pochodzi ze strony:
http://www.jakubas.pl/artykuly/skl-prz/skl-prz.htm
Jeżeli chcecie, żeby szybciej działał, zmieńcie linijkę przy końcu programu Delay(1) na Delay(0)

===
Kod:
program Trzy_przeksztalcenia_afiniczne;
uses graph,crt; var karta,tryb,prz,skala:integer;
     x,y,xNowe,yNowe:real;
const t:array[1..18] of real= (0.5,-0.8,0.5,0.0,0.5,-0.1,
      0.5,0.0,0.0,0.0,0.5,0.4,0.5,0.6,-0.4,0.0,0.6,-0.4);
begin
  karta:=detect; initGraph(karta,tryb,''); randomize;
  x := 0; y := 0; skala:=180;
  repeat
    prz := random(3);
    xNowe:=t[prz*6+1]*x+t[prz*6+2]*y+t[prz*6+3];
    ynowe:=t[prz*6+4]*x+t[prz*6+5]*y+t[prz*6+6];
    x := xNowe; y := yNowe;
    putPixel(round(x*skala+320),round(-y*skala+240),prz+2);
  until keyPressed;
  readLn; closeGraph;
end.


Program pochodzi ze strony:
http://www.jakubas.pl/artykuly/skl-prz/skl-prz.htm

Tu jest kilka (57) kodów Eugeniusza Jakubasa, które mogą się przydać

http://www.jakubas.pl/pr-pascal/teksty.htm

_________________
Pozdrawiam
----------------------------------
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group