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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ График

Автор: Aurora 2.05.2007 19:47

Как составить блок-схему для графика y=ctg(x);
uses graph,crt;
Const
Step=0.0001; {shag izmeneniya x}
x1=-30; {nach. znachenie x}
x2=30; {konechnoe znachenie x}
ZcrtX=320; {koord. x centra ekrana}
ZcrtY=240; {koord. y centra ekrana}
mX=20; {koord. masshtabirovaniya po osi x}
mY=20; {koord. masshtabirovaniya po osi y}
ColorG=14; {cvet grafika}

var
driver,mode,error:integer;
x,y:real;
i:integer;
Begin
Driver:=Detect;
Initgraph(Driver,Mode,'c:\TP6\BGI');
Error:=GraphResult;
if error<>grok then Writeln(GraphErrorMsg(Error))
else
Begin
SetBkColor(blue);
SetLineStyle(SolidLn,0,ThickWidth);
SetColor(5);
OutTextXY(322,243,'0');
OutTextXY(GetMaxX-10,ZcrtY+10,'X');
OutTextXY(ZcrtX+10,3,'Y');
SetColor(Green);
Line(0,ZcrtY,GetMaxX,ZcrtY);
Line(GetMaxX-4,ZcrtY+5,GetMaxX,ZcrtY);
Line(GetMaxX-4,ZcrtY-5,GetMaxX,ZcrtY);
Line(ZcrtX-1,0,ZcrtX-1,GetMaxY);
Line(ZcrtX-6,5,ZcrtX-1,0);
Line(ZcrtX+3,5,ZcrtX-1,0);
x:=x1;
while x<=x2 do
Begin
{Readln(x)}
if x<>0 then
Begin
y:= cos(x)/sin(x);
PutPixel(ZcrtX+trunc(x*mX),ZcrtY-trunc(y*mY),colorG);
end;
x:=x+Step;
end;
end;

CloseGraph;

end.

Автор: Tan 2.05.2007 19:57

По - моему Блоксхема - это термин, который относится к структуре программы, объясни что ты понимаешь под

Цитата
Как составить блок-схему для графика y=ctg(x);

Автор: compiler 2.05.2007 20:04

Цитата(Aurora @ 2.05.2007 15:47) *
Как составить блок-схему для графика y=ctg(x);

может иммелось ввиду таблица где для каждого х(с заданным шагом) был свой у...

2) возьми пожалуйста код в теги...[code=pas]....[/code]