Сможет кто выложить рисунок и его программу написания в TurboPasale 7

[}{0t@BbI4]

Сможет кто выложить рисунок и его программу написания в TurboPasale 7 *10

было бы вообще отлично если не рисунка, а анимации в TurboPasale 7

[martinges]

бери любую математическую функцию и ставь паузу(n кол-во секунд) на каждой итерации)) будет пошаговое построение кривой (скажешь что зависимость построения от времени )

[}{0t@BbI4]

напиши пож. всё, а то я всё равно не могу разобраться

[martinges]

moveto(-20,400);

for x:=-20 to 20 do

begin

lineto(x,sqr(x));

delay(50);

end;

P.S. шаблон вот такой пример по квадратичной функции. Нужно сделать смещение по оси абцисс относительно центра экрана и отражение относительно оси ординат, чтобы картинка была не перевернутой верх тормашками

[}{0t@BbI4]

Очень тебя прошу напиши ВСЮ программу, знаю много писать ну уж будь добр

мне завтра здавать (препода упрасил) вообще ПОЗАРЕЗ нужно, а то не аттестует

[martinges]

uses graph,crt;

const

a=-20;b=20;{ОДЗ}

var

gd,gm,x,xx,yy:integer;

begin

gd:=detect;

initgraph(gd,gm,'C:\tp7\bgi');

{------------------------------}

xx:=(getmaxx div 2);

yy:=(getmaxy div 2);

{-------------------------------}

moveto(xx+a,yy-sqr(a));

{основной блок-------------------------------}

for x:=a to b do

begin

lineto(x+xx,-sqr(x)+yy);

delay(5000);

end;

{конец основного блока-------------------}

closegraph;

end.

Вот программка выводящая тупо параболу

Центр координат соответственно центр экрана при любом режиме

Свою функцию вставишь в "основной блок"

незнакомые функции и процедуры ищи через хелп паскаля или методом тыка меняя параметры

[}{0t@BbI4]

Не хочу выглядеть совсем уж обнаглевшим, но может у тебя есть программа твоего рисунка(анимации) и ЕСЛИ ЕСЛИ сможешь(ЕСЛИ Захочешь) напиши пожалуйста

просто я уроки прогуливал КУЧА хвостов, сижу готовлюсь (времени совсем нет)

Добавлено спустя 2 минуты 16 секунд:

*24 А то если сам начну писать это дело на полночи растянется

[D_Master]

это дело на полночи растянется

Полночи - не так уж и долго

[martinges]

uses graph,crt;

const

a=0;b=1440;

var

gd,gm,x,xx,yy:integer;

begin

gd:=detect;

initgraph(gd,gm,'C:\tp7\bgi');

xx:=(getmaxx div 2);

yy:=(getmaxy div 2);

moveto(xx+40*5,yy);

for x:=a to b do

begin

lineto(trunc(5*(30*cos(pi*x/720)+10*cos(pi*x/240)))+xx,trunc(-5*(30*sin(pi*x/720)-10*sin(pi*x/240)))+yy);

delay(500);

end;

readkey;

closegraph;

end.

гипоциклоида радиус большой окружности 40 малой окружности 10 частное соответсвенно 1/4 при 5-тикратном увеличении. прогугли гипоциклоида параметрическое уравнение

На будущее: пробуй делать сам иначе на экзаменах плохо будет