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

[dzuga]

помогите пожалуйста нарисовать точечный график функции . Диапазон изменения аргумента: от 15 до 5, шаг аргумента – 0,1. График начертить на фоне координатных осей, точка пересечения которых в центре экрана.

[ROMA2PVT]

не советовал бы кросспостить.

[Snejnaya]

у меня есть кусок программы в С-Билдере, это тоже Борланд, на Делфи не составит труда переделать. Самой переделывать влом.
Точка пересечения осей у меня, понятное дело, в удобном для меня месте, а не в центре, тоже надо подправить.

//функции преобразования координат (в них вводи начало координат, какое там надо)

int preobr_x(int xx)
 {int res;
 res=xx+360;
 return(res);
 }

  int preobr_y(int yy)
 {int res;
 res=230-yy;
 return(res);
 }

//обработчик события щелчка по кнопке

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x0,y0,x,y,i;
//рисуем оси координат со стрелочками на концах
x0=0;
y0=0;
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
x0=610;
y0=0;
Form1->Canvas->LineTo(preobr_x(x0),preobr_y(y0));
x=x0-10;
y=y0+5;
Form1->Canvas->LineTo(preobr_x(x),preobr_y(y));
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
x=x0-10;
y=y0-5;
Form1->Canvas->LineTo(preobr_x(x),preobr_y(y));
x0=0;
y0=-190;
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
x0=0;
y0=190;
Form1->Canvas->LineTo(preobr_x(x0),preobr_y(y0));
x=x0-5;
y=y0-10;
Form1->Canvas->LineTo(preobr_x(x),preobr_y(y));
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
x=x0+5;
y=y0-10;
Form1->Canvas->LineTo(preobr_x(x),preobr_y(y));
x0=0;
y0=0;
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
//рисуем засечки на осях координат
for(i=1;i<60;i++)
{x0=i*10;
y0=3;
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
x=x0;
y=-3;
Form1->Canvas->LineTo(preobr_x(x),preobr_y(y));
}
x0=0;
y0=-180;
Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
for(i=1;i<37;i++)
{ y0=-190+i*10;
  x0=-3;
  Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
  x=3;
  y=y0;
  Form1->Canvas->LineTo(preobr_x(x),preobr_y(y));

int *pimp, imp[301], tt[301];
pimp=impulse(ECD,gaus_wum);// impulse() - ак называется моя функция, которую надо нарисовать, у тебя будет другая

tt[0]=0;
for (i=0; i<301; i++)
{tt[i+1]=(2*i+2);
}

for (i=0;i<301;i++)	{
		 imp[i]=*(pimp+i);
	}//теперь в массиве imp[] хранится форма импульса

 //рисуем график функции
 x0=0;
 y0=0;
 Form1->Canvas->MoveTo(preobr_x(x0),preobr_y(y0));
 for(i=0;i<301;i++)
 { x0=tt[i];
   y0=imp[i];
   if(x0>610)
   {x0=610;
   }
   if(y0>190)
   {y0=190;
   }
   if(y0<-190)
   {y0=-190;
   }
   Form1->Canvas->LineTo(preobr_x(x0),preobr_y(y0));
 }
}

если что-то непонятно - спрашивай. только не надо "все непонятно")

[Marat-ik]

please, помогите "Нарисовать ковер со сложным узором."

[dzuga]

ну надо именно для паскаля, хотя спасибо большое!!

[Snejnaya]

Может быть все таки для Делфи, а не для Паскаля? о_О

Разницы почти никакой, только
Делфи: Form1.Canvas.MoveTo
Билдер: Form1->Canvas->MoveTo

Делфи: for i:=1 to n do begin .. end;
Билдер: for(i=1; i<n+1;i++) {}

Делфи: begin...end;
Билдер:{}

Функция в Делфи:

function func1(входные параметры):integer
begin
...
result:=результат;
end;

Функция в Билдере

int func1(входные параметры)
{...
return(результат);
}

Если есть желание, разобраться можно за полчаса максимум, даже если не имеешь представления о СИ.

ЗЫ:гораздо хуже, если ты не имеешь представления о том, чем Паскаль отличается от Делфи...

[dzuga]

не просто препод требует именно в паскале(((

[Snejnaya]

dzuga

И как ты собрался выводить график функции в консольном режиме? Это невозможно.

[Ol'ga_new]

В паскале есть графический режим, в этом случае поле для рисунка составляет весь экран.
Для начала нужно подключить модуль Graph в разделе uses.

[dzuga]

Да мы делаем так как Ольга сказала!!