program rysujacy kółka

0

Witam serdecznie. Potrzebuję program który narysuje hipnozę czyli coś takiego: http://goniecpolski.nl/wp-content/uploads/2013/02/4-hip1.jpg tzn na zmianę koła czarne-białe o coraz to większej średnicy. Na razie wyknułem coś takiego, ale nie działa.... nie mam pomysłu co dalej zrobić :(

program Obraz;
uses
  Crt, Graph;
var
  Karta, Tryb, I: Integer;
begin
  DetectGraph(Karta, Tryb, 'C:\FPC\2.2.0\units\i386-win32\graph');

  repeat
    SetLineStyle(0, 2, 3);
    begin
      for I := 1 to 50 do
      begin
        SetColor(White);
        Circle(620, 500, 150 * i + 100);
        SetColor(Black);
        Circle(620, 500, 100 * i + 10);
      end;
    end;
  until Keypressed;

  CloseGraph;
end.

zamiana znacznika <quote> na <code class="delphi"> oraz sformatowanie kodu - fp

0

Pomyliłeś procedury DetectGraph z InitGraph - nie zgadza się liczba argumentów, bo ta pierwsza ma dwa argumenty, a druga trzy (ze ścieżką do sterowników); Gdybyś choć przez chwilę poszukał na ten temat informacji to być znalazł zarówno odpowiedź na treść błędu kompilacji, jak i sposobu na poprawne uruchomienie trybu graficznego;

Polecam więc więcej czytać i uczyć się, a w ostateczności zakładać wątki na forum.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0