составить программу для того чтобы рисунок увеличивался от центра.

[rustik24]

Line(x+Round(150*d),y+Round(50*d),x +Round(75*d),y+Round(125*d));
Line(x+Round(75*d),y+Round(125*d),x +Round(150*d),y+Round(200*d));
Line(x+Round(150*d),y+Round(200*d), x+Round(225*d),y+Round(125*d));
Line(x+Round(225*d),y+Round(125*d), x+Round(150*d),y+Round(50*d));
Line(x+Round(150*d),y+Round(50*d),x +Round(375*d),y+Round(125*d));
Line(x+Round(225*d),y+Round(125*d), x+Round(375*d),y+Round(125*d));
Line(x+Round(150*d),y+Round(200*d), x+Round(375*d),y+Round(125*d));

фигура.

[BDA]

А теперь попробуйте объяснить более подробно, что Вы хотите получить (нарисовать).

[rustik24]

Вот программа с рисунком. В ней рисунок, когда нажимаешь на "+" он увеличивается, но не от центра точки увеличения.

uses Graph,CRT,IGM_TP7;
var
Driver, Mode:Integer;
x,y,z,c:integer;
d:real;
Xs,Ys:string;
k:char;
procedure rus;
begin
Line(x+Round(150*d),y+Round(50*d),x+Round(75*d),y+Round(125*d));
Line(x+Round(75*d),y+Round(125*d),x+Round(150*d),y+Round(200*d));
Line(x+Round(150*d),y+Round(200*d),x+Round(225*d),y+Round(125*d));
Line(x+Round(225*d),y+Round(125*d),x+Round(150*d),y+Round(50*d));
Line(x+Round(150*d),y+Round(50*d),x+Round(375*d),y+Round(125*d));
Line(x+Round(225*d),y+Round(125*d),x+Round(375*d),y+Round(125*d));
Line(x+Round(150*d),y+Round(200*d),x+Round(375*d),y+Round(125*d));
end;
begin
Driver:=Detect;
InitGraph(Driver,Mode,' ');
if GraphResult <> grok then Halt(1);
x:=100;
y:=100;
d:=1;

repeat
SetColor(15);
rus;
SetColor(0);
Str(x,Xs);
Str(y,Ys);
SetColor(5);
OutTextXY(300,150,'x='+Xs+' : y='+Ys);
k:=ReadKey;
SetColor(0);
rus;
Str(x,Xs);
Str(y,Ys);
Setcolor(0);
OutTextXY(300,150,'x='+Xs+' : y='+Ys);
if k=#77 then x:=x+10;
if k=#75 then x:=x-10;
if k=#72 then y:=y-10;
if k=#80 then y:=y+10;
if k=#13 then z:=z+10;
if k=#8 then z:=z-10;
if x<=-100 then x:=-100;
if x>=140 then x:=140;
if y>=180 then y:=180;
if y<=2 then y:=2;
if k=#43 then d:=d+0.1;
if k=#45 then d:=d-0.1;
until k=#27;
CloseGraph;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

но не от центра точки увеличения

Смотря что считать центром увеличения
По хорошему, нужно переписать функции рисования линий, чтобы они чертили от той точки, что Вам нужно.
Как временное решение:
x0 := 200 - Round(150 * d);
y0 := 200 - Round(150 * d);
И в line все x и y заменить на x0 и y0, тогда фигура, будет как-то по-другому сдвигаться (нужно попробовать другие числа вместо 200 и 150).

[rustik24]

я попробовал подставлять другие числа как вы и говорили, все равно не получается.

[BDA]

    moveto(x, y);
    LineTo(x - Round(75 * d), y - Round(75 * d));
    LineTo(x - Round(150 * d), y);
    LineTo(x - Round(75 * d), y + Round(75 * d));
    LineTo(x, y);
    LineTo(x + Round(150 * d), y);
    LineTo(x - Round(75 * d), y - Round(75 * d));
    moveto(x - Round(75 * d), y + Round(75 * d));
    LineTo(x + Round(150 * d), y);

Попробуйте такой код.

[rustik24]

не вышло, может что нибудь другое?

[BDA]

Так, тогда еще раз объясните, откуда увеличивать.
От центра экрана или от центра фигуры?

[rustik24]

Задание масштабирование. Нужно чтоб увеличение и уменьшение происходило на месте. Вот аналогично http://www.cyberforum.ru/turbo-pasca...ml#post3783030

[rustik24]

ой, все работает спасибо большое)))