Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

  • Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

Sinüs Eğrisi Çizimi

ByOnur58

MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,114
  • MFC Puanı
    10
Kod:
program sinus_egrisi_cizimi;
{$APPTYPE CONSOLE}



const pi=3.14159; adim=18; yildiz='*';
var
teta,radyan:real;
sutun:integer;


begin
writeln;
writeln('Sinus egrisi cizimi:':30);
teta:=0;
while teta<=360 do
begin
radyan:=teta*pi/180;
sutun:=1+round(20*(1+sin(radyan)));
write(Yildiz:sutun);
writeln(sin(radyan):20);
teta:=teta+adim;
end;
readln;
end.
 
Üst Alt