Версия для печати темы

Автор: Diamond 3.05.2009 18:37

Помогите пожалуйста, пол дня мучаюсь, а завтра сдавать. Нужно построить два графике в одной системе: Y=a*cos^3(фи) и Y=a*sin^3(фи), с графиками честно говоря не очень все фто могла сделать это вот...

program grafik; 
uses Crt, Graph; 
const 
mtx=50; 
mty=50; 
xn=320; 
yn=235; 
var 
grad,grreg,i,m,n,g,v:integer; 
x,y,x0,y0:real; 
s:string; 
begin 
grad:=detect; 
InitGraph(grad,grreg,'K:\tp7\bgi'); 
SetBkColor(LightGray); 
SetColor(blue); 
line(10,yn,630,yn); 
line(630,yn,600,225); 
line(630,yn,600,250); 
line(xn,10,xn,470); 
line(xn,10,340,30); 
line(xn,10,300,30); 
outtextXY(xn+25,10,'Y'); 
outtextXY(620,yn+20,'X'); 
outtextXY(xn-20,yn+10,'0'); 
m:=trunc(540/mtx); 
n:=trunc(460/mty); 
for i:=1 to m do 
begin 
g:=i*mtx; 
line(xn+g,yn-3,xn+g,yn+3); 
str(i,s); 
outtextXY(xn+g-5,yn+10,s); 
line(xn-g,yn-3,xn-g,yn+3); 
str(-i,s); 
outtextXY(xn-g-5,yn+10,s); 
end; 
for i:=1 to n do 
begin 
v:=i*mty; 
line(xn-3,yn-v,xn+3,yn-v); 
str(i,s); 
outtextXY(xn-30,yn-v,s); 
line(xn-3,yn+v,xn+3,yn+v); 
str(-i,s); 
OutTextXY(xn-30,yn+v,s) 
end; 
setcolor(green); 
OutTextXY(90,15,'Grafik funkcii y=cos(x)'); 
x0:=-270; 
Repeat 
x:=x0/mtx; 
y:=cos(x); 
y0:=y*mty; 
PutPixel(xn+trunc(x0),yn-trunc(y0),red); 
x0:=x0+1 
until x0>270; 
readln; 
Closegraph 
end.

Автор: amega 3.05.2009 22:02

http://forum.pascal.net.ru/index.php?showtopic=2729&st=0&p=23770&#entry23770

Автор: Lapp 4.05.2009 14:38

А в чем трудность? Косинус построила.. а в куб не можешь возвести?