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

uses graph sinus

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ą 12:36, 25 Kwi 2008 Temat postu: uses graph sinus

Kod:
program sinus_cosinus;

uses graph,crt;

var i, Karta, Tryb: integer;

begin
DetectGraph(Karta,Tryb);
InitGraph(Karta,Tryb,'c:\bp\bgi');

setbkcolor(blue);

for i:=0 to 628 do
   begin;
   putpixel(i,Trunc(240-200*sin(i/100)),14); { 14 kolor to zolty }
   delay(10); { dodamy efekt rysowania ;D }
   end;

readln;
InitGraph(Karta,Tryb,'c:\bp\bgi'); { czyscimy tym samym ekran }

for i:=0 to 628 do
   begin;
   putpixel(i,Trunc(240-20*cos(i/10)),14); { 14 kolor to zolty }
   delay(7); { dodamy efekt rysowania ;D }
   end;

Readln;
CloseGraph;
end.


Post został pochwalony 0 razy
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