dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tionna
А что не так? Просто чередуйте увеличение и уменьшение по нажатию клавиши. Как-то так:
в раздел описаний ставите
Код:
const
k: real=0;
kx: real=0;
ky: real=0;
kz: real=0;
|
, и сами процедуры будут такие:
Код:
#52:begin {если нажата <4>}
draw(0); {вызываю процедуру draw (цвет экрана)}
{изменение масштаба по оси X}
if kx>1 then kx:=1/3 else kx:=3;
for p:=0 to 5 do tops[p,0]:=tops[p,0]*kx;
Axes; {вызываю процедуру Axes}
Proek; {вызываю процедуру Proek}
draw(15); {вызываю процедуру draw (цвет белый)}
{если нажата любая клавиша, то выход их цикла}
if keypressed then break
end;
#53:begin {если нажата <5>}
draw(0); {вызываю процедуру draw (цвет экрана)}
{изменение масштаба по оси Y}
if ky>1 then ky:=1/2 else ky:=2;
for p:=0 to 5 do tops[p,1]:= tops[p,1]*ky;
Axes; {вызываю процедуру Axes}
Proek; {вызываю процедуру Proek}
draw(15); {вызываю процедуру draw (цвет белый)}
{если нажата любая клавиша, то выход их цикла}
if keypressed then break
end;
#54:begin {если нажата <6>}
draw(0); {вызываю процедуру draw (цвет экрана)}
{изменение масштаба по оси Z}
if kz>1 then kz:=1/3 else kz:=3;
for p:=0 to 5 do tops[p,2]:= tops[p,2]*kz;
Axes; {вызываю процедуру Axes}
Proek; {вызываю процедуру Proek}
draw(15); {вызываю процедуру draw (цвет белый)}
{если нажата любая клавиша, то выход их цикла}
if keypressed then break
end;
#55:begin {если нажата <7>}
draw(0); {вызываю процедуру draw (цвет экрана)}
{изменение масштаба по трем осям }
if k>1 then k:=1/2 else k:=2;
for p:=0 to 5 do begin
tops[p,0]:=tops[p,0]*k;
tops[p,1]:=tops[p,1]*k;
tops[p,2]:=tops[p,2]*k;
end;
Axes; {вызываю процедуру Axes}
Proek; {вызываю процедуру Proek}
draw(15); {вызываю процедуру draw (цвет белый)}
{если нажата любая клавиша, то выход их цикла}
if keypressed then break
end;
|
|
У меня такая задача: 
