画出sinx

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const PI=3.14159    ;
    var I,wide :integer;
    y:real;

begin
 for I:=0 to 24   do
   begin
 y:=sin(i*15*PI/180);
 wide:=round(35*y+40);
 writeln('*':wide) ;

 

 end;
   Readln;{ 加上这句话即可}

end.

https://files.cnblogs.com/atiger/基础算法(控制台程序).rar