Sinüs Eğrisi Çizimi

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.