Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

tp7 / SOURCES / 1

.PAS
Скачиваний:
8
Добавлен:
10.12.2013
Размер:
1.3 Кб
Скачать
uses graph,crt;
var n,gd,gm,x1,y1:integer;
con,a,b,sx,sy,x,y,x2,y2:real;
s:char;
label xxx,yyy;
function f(x,y:real):real; begin f:=sin(x)+cos(y); end;

{#########################}
begin
con:=0.7010678;
n:=2;
a:=10;b:=10;
gd:=detect;
initgraph(gd,gm,'d:\dos\tp\bgi');
cleardevice;
setcolor(3);
line(200,200,400,200);
line(200,200,200,0);
line(0,400,200,200);
{########################}
xxx:
s:=readkey;
case s of
'+': n:=n*2;
'-': n:=n div 2;
'/': goto yyy;
else goto xxx;
end;
{########################}
cleardevice;
setcolor(14);
x:=-a;y:=-b;
sx:=a/n;
sy:=b/n;{fasnet}
{########################}
repeat
y:=-b;
repeat
x1:=round(20*(y-x*con)+200);
y1:=round(-20*(f(x,y)-x*con)+200);
if (y=-b)
then moveto (x1,y1)
else lineto (x1,y1);
y:=y+sy;
until y>b;
x:=x+sx;
until x>a;
{################################}
y:=-b;
repeat
x:=-a;
repeat
x1:=round(20*(y-x*con)+200);
y1:=round(-20*(f(x,y)-x*con)+200);
if (x=-a)
then moveto (x1,y1)
else lineto (x1,y1);
x:=x+sx;
until x>a;
y:=y+sy;
until y>b;
{############################}
setcolor(3);
line(200,200,400,200);
line(200,200,200,0);
line(0,400,200,200);
goto xxx;
yyy:
end.
Соседние файлы в папке SOURCES