Forum www.cosinusinfa.fora.pl Strona Główna www.cosinusinfa.fora.pl
Nieoficjalne forum szkoly cosinus - kierunek informatyka
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

P11_7 - trojkaty

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.cosinusinfa.fora.pl Strona Główna -> Programowanie
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Kajtas
Administrator
Administrator



Dołączył: 26 Wrz 2010
Posty: 37
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
PostWysłany: Sob 11:00, 11 Gru 2010    Temat postu: P11_7 - trojkaty
Opis:
Tworzy piramide z trojkatow.
6 lini w 1 lini 1 trojkat w 2 dwa itd

Cytat:
program p11_7;
uses crt,graph;

procedure trojkat(x,y,bok,kolor1,kolor2:integer);
var x2,y2,x3,y3,h:integer;

begin
h:=round(bok*sqrt(3)/2);
x2:=x+bok;
y2:=y;
x3:=x+round(bok/2);
y3:=y-h;5
SetColor(kolor1);
MoveTo(x,y);
LineTo(x2,y2);
LineTo(x3,y3);
LineTo(x,y);
SetFillStyle(1,kolor2);
FloodFill(x3,y-round(h/2),kolor1);
end;

var karta,tryb,i,j,x,y,bok,kolor1,kolor2:integer;
begin
karta:=9;
tryb:=2;
InitGraph(karta,tryb,'c:\tp\bgi');
x:=320;
y:=100;
bok:=60;
kolor1:=14;
kolor2:=9;
for i:=1 to 6 do
for j:=1 to i do
trojkat(x-round(i*bok/2)+(j-1)*bok,y+(i-1)*round(bok*sqrt(3)/2),
bok,kolor1,kolor2);
readkey;
closegraph
end.



Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.cosinusinfa.fora.pl Strona Główna -> Programowanie Wszystkie czasy w strefie EET (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
Regulamin
Na skróty:InneWAŻNE DATY I MATERIALYZajeciaGry i rozrywkaSystemyProgramowanieaktualnościPrace kontrolneUTKOprogramowanieMultimediaAngielski