Prosta Sinusoida w pascalu, jak?


(Paker) #1

ma ktoś pomysł jak to napisać?? chodzi mi o prosta sinusoidę pisana w Pascalu


(rozwalkompa) #2

ale co? Narysować sinusoidę w trybie graficznym?

W Google znalazłem: http://4programmers.net/Turbo_Pascal/Po ... ia_grafiki


(boczi) #3

Paker na Forum używamy polskich znaków w pisowni, proszę poprawić wiadomość używając opcji Zmień


(Paker) #4

ma byc z gwiazdek, nie musi byc linia


(Ryan) #5

clrsrc

pętla pozycjaX (real) od 1 do 80 co 1, a w niej

  • pozycjaY (real) = (sin(pozycjaX / 20) * 10) + 11

  • gotoXY(pozycjaX, pozycjaY)

  • write('*')