Pokaż wyniki 1 do 2 z 2

Temat: zabawa w pascalu - grafika

  1. #1
    Zarejestrowany
    Apr 2010
    Postów
    1

    Domyślnie zabawa w pascalu - grafika

    witam, mam podany program i muszę pozmieniać dane tak, aby wyszedł jakiś ciekawy wzór.
    Trochę się pobawiłam, ale szału nie ma...te moje kształty są raczej przeciętne, a podobno
    mogą wyjść nawet motyle. Jeśli ktoś ma czas, bardzo proszę o pomoc!

    program grafika;
    uses graph,crt;
    var x,y,x1,y1,r,i: integer;
    k: real;
    begin
    detectgraph(ster,tryb);
    initgraph(ster,tryb,'c:\tp\bgi');
    x:=getmaxx div 2;
    y:=getmaxy div 2;
    r:=100;
    for i:=1 to 180 do
    begin
    k:=2*i*pi/180;
    x1:=round(2*r*cos(k));
    y1:=round(2*r*sin(k));
    line(x+r+x1,y+y1,x-r+x1,y-y1);
    end;
    repeat until keypressed;
    closegraph;
    end.

    no i np. pozamieniać miejscami sinusy z cosinusami, mnożyć, dodawać,zmiana r itp...
    mam nadzieję, że dobrze przepisałam, w razie czego wstawiam link do kartki:
    Imageshack - p1170688.jpg

    dziękuję !

  2. #2
    Zarejestrowany
    Mar 2011
    Postów
    10

    Domyślnie Pascal

    Wiesz, grafika w Pascalu jest dość toporna i większą skale nikt się tym nie zajmuje wykluczając maniaków środowiska Pascal i jeśli chodzi o robienie tam większych programów z modułem graph; nie ma sensu. Nie, żebym pisał, iż to złe środowisko, do nauki jedne z lepszych. Mimo to jeśli nie masz z tego obowiązkowego zadania, to proponowałbym zmienić środowisko przykładowo na zwykłe C.
    Serdecznie pozdrawiam

Tagi

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52