Neler yeni
Türkiye'nin En Güncel Forum Sitesi

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.

Sinüs Eğrisi Çizimi

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

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