Графика. Паскаль

[Zond235]

Графическое задание функции придумайте самостоятельно:
Написать подпрограмму, которая строит в одной системе координат графики любых двух функций. Функции должны быть оформлены в виде подпрограмм - функций, имена функций передаются в качестве фактических параметров.

[АнНютик]

надеюсь тебе это пожойдет...
я второй график на выбор написала, выберешь...

Program listik;
uses graphabc,crt;
var
x,y,a,b,x0,y0,mx,my,i,k:integer;
h,xt,yt,y2:real;
function f(x:real):real;
begin
result:=0.5*sqr(x)+4*x-3;
end;
function f1(x:real):real;
begin
result:=(7*power(sin(sqr(x)),3))/(3*sqr(cos(power(x,3)))+1);
end;
begin
FloodFill(10,10,clsilver);
x0:=639 div 2;
y0:=479 div 2;
mx:=5;
my:=5;
line(639 div 2,0,639 div 2,479);
line(0,479 div 2, 639,479 div 2);
for i:=1 to 64 do
line(10*i,479 div 2-5,10*i,479 div 2+5);
for k:=1 to 48 do
line(639 div 2-5,10*k,639 div 2+5,10*k);
xt:=-15;
h:=0.1;
repeat
yt:=f(xt);
x:=x0+round(xt*mx);
y:=y0-round(yt*my);
setpixel(round(x),round(y),clblack) ;
xt:=xt+h;
until (xt>5) or (keypressed);
{xt:=-20;
h:=0.0031;
repeat
yt:=f1(xt);
x:=x0+round(xt*mx);
y:=y0-round(yt*my);
setpixel(round(x),round(y),clblack) ;
xt:=xt+h;
until (xt>20) or (keypressed);}
xt:=-7;
h:=0.0031;
repeat
yt:=f1(xt);
x:=x0+round(xt*mx);
y:=y0-round(yt*my);
setpixel(round(x),round(y),clblack) ;
xt:=xt+h;
until (xt>7) or (keypressed);
end.

[Zond235]

Пасибо Анютик ты Настоящий друг!!!

[Ahton]

пипл, а может мне кто нить помочь по паскалю, нужно написать прогу, песочные часы, в общем анимация, т.е. нажимаешь на пробел и песок в часах пересыпается (анимация), оч нада, от этого сессия зависит!

[Stilet]

Ahton

В теории примерно так:
Рисуешь два треуголиника через Sin-Cos. В цикле уменьшаешь радиус одного и его центр смещаешь вниз. Радиус второго увеличиваешь, и цент р второго тоже вниз.

Уловил идею?

Вот накропал тут маненько:

uses crt,Graph;
var
 c:char;
  grDriver: Integer;
  grMode: Integer;
  x,y,a,b,ErrCode,i: longint;
  ang:real;

procedure draw(cx,cy,BeginAngle:real;r:integer);
var rx,ry,x,y,angle, rang, ang:real;e,i:integer;
 atp:array[1..4] of Pointtype;
begin

ang:=360/3;
angle:=(2*pi*ang)/360; rang:=angle;
  for  i:=1  to 3  do
  begin
   rx:=(cos(angle+BeginAngle));
   ry:=(sin(angle+BeginAngle));
   atp[i].X:=round(cx+r*(rx));
   atp[i].Y:=round(cy+r*(ry));
 angle:=angle+rang;
   end;
  atp[4]:=atp[1];
  drawpoly(4,atp);
end;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');{}
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
   x:=200;y:=200; a:=200;b:=300;
   for i:=0 to 100 do begin
    clrscr;
    draw(100,100,2*pi*90/360,100-i);
    draw(100,200,2*pi*-90/360,i);

    c:=readkey;
   end;
    c:=readkey;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

[Ahton]

4Stilet >>>>
Дружище, спасибо за этот код, но у меня тут небольшая заминка - у меня PascalABC - там вообще другой модуль графики GraphABC - в нем нет и половины от твоего кода
ты можешь попробовать на PascalABC написать эту прогу?
Я так продумал - т.е. мы рисуем песочные часы, в них квадраты закрашенные, по нажатию на пробел, сверху квадраты удаляются, снизу рисуются, впринцыпе одними тока begin - действие мона всё это сделать, тока я не представляю как оформить код, можешь помочь? буду очень благодарен!!!

[Stilet]

ты можешь попробовать на PascalABC написать эту прогу?

Нет не могу.

[Ahton]

Сообщение от Stilet

Нет не могу.

Я дико извиняюсь если обидел, просто мне очень надо до завтра накатать эту прогу...
ЗЫ - а под какой паскаль твой код? можешь кинуть точное название, мож скачаю твой пакет...

[Stilet]

Я дико извиняюсь если обидел

Я не могу по причине отсутствия такого паскаля. Тем паче что тут алгоритм приведен. Это заработает в любом паскале от 5 до 7-ки.

[glasian]

парни помогите прогу написать срочно надо!!!
Паскаль граф.
Подготовив несколько заготовок полотнища флага, добиться эффекта его движения (флаг реет). Цвет флага изменять