GoldFire
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пожалуйста помогите построить синусоиду, вот для этих осей.
Program grafik;
Uses crt, graph;
var i,g,h,j,x,y,m,n,f,d :integer;
function intst(int :integer) :string;
var buf :string[10];
begin
str(int,buf);
intst := buf;
end;
begin
g := detect;
InitGraph (g,h,'c:\fpc\2.0.4\units\i386-win32\graph');
x := GetMaxX;
y := GetMaxY;
m := y div 2;
n := x div 2;
// opisanie osei
line (0,m,x,m);
line (x-10,m-10,x,m);
line (x-10,m+10,x,m);
line (n,y,n,0);
line (n-10,10,n,0);
line (n+10,10,n,0);
moveTo (x-6,m+10);
outText ('x');
moveTo (n-20,4);
outText ('y');
for i:= 1 to 24 do begin
moveTo ((n+25*i)-3,m+10);
line ((n+25*i),m+5,(n+25*i),m-5);
outText (intst(i) +' ');
moveTo ((n-25*i)-6,m+10);
line ((n-25*i),m+5,(n-25*i),m-5);
outText (intst(-i) +'');
end;
for i:= 1 to 20 do begin
moveTo (n-30,(m+25*i));
line (n-5,(m+25*i),n+5,(m+25*i));
outText (intst(-i) +' ');
moveTo (n-25,(m-25*i));
line (n-5,(m-25*i),n+5,(m-25*i));
outText (intst(i) +'');
end;
moveTo (n+10,m-10);
outText (intst(0));
readln;
CloseGraph;
end.
Буду очень благодарна |
