|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нарисовать график функций
Y=sin(x)/(x-3)+x
помогите плиз!! |
#2
|
|||
|
|||
Если сами ничего не можете - в раздел работа
|
#3
|
|||
|
|||
Код:
procedure TForm1.btn1Click(Sender: TObject); var r,n,w,x,y,i,vertical_start:Integer; z,up_limit,down_limit,step,vertical_scale:Real; Data: array[0..2000] of Real; begin r:=strToint(Edit1.text); if (r<0) then begin up_limit:= strToFloat(Edit1.text); down_limit:=strToFloat(Edit2.text); end else begin up_limit:= strToFloat(Edit2.text); down_limit:=strToFloat(Edit1.text); n:=strtoint(edit1.Text); end; with Image1.picture.bitmap do begin Height:=Image1.Height; Width:=Image1.Width; canvas.Pen.Color:= clwhite; canvas.Brush.Color:= clWhite; canvas.rectangle(0,0,Image1.Width,Image1.Height); canvas.Pen.color:=clblack; end; vertical_scale:=(Image1.Height-50)div 2; vertical_start:= Image1.Height div 2; with Image1.picture.bitmap do begin canvas.Pen.Width:=2; canvas.moveTo(25,0); canvas.LineTo(25,Image1.Height); canvas.moveTo(25,0); canvas.LineTo(15,10); canvas.moveTo(25,0); canvas.LineTo(35,10); canvas.moveTo(0,vertical_start); canvas.LineTo(Image1.Width,vertical_start); canvas.moveTo(Image1.Width,vertical_start); canvas.LineTo(Image1.Width-10,vertical_start+10); canvas.moveTo(Image1.Width,vertical_start); canvas.LineTo(Image1.Width-10,vertical_start-10); step:=(up_limit-down_limit)/(image1.Width-50); for i:=0 to(Image1.Width-25) do begin z:= i*step+down_limit; Data[i]:=sin(z)/((z-3)+z); end; x:=25; y:=Trunc(vertical_start+data[0]*vertical_scale); Image1.picture.bitmap.canvas.moveTo(x,y); Image1.picture.bitmap.canvas.pen.Width:=1; begin for i:=1 to(image1.Width-25) do begin x:=i+25; y:=Trunc(vertical_start+data[i]*vertical_scale); Image1.picture.bitmap.canvas.LineTo(x,y); end; end; end; end; procedure TForm1.btn2Click(Sender: TObject); begin if SaveDialog1.Execute then Image1.picture.bitmap.SaveToFile(Savedialog1.FileN ame); end; end. у меня рисует но не верно , потому и прошу помочь!! Последний раз редактировалось Admin, 26.12.2011 в 22:31. |
#4
|
|||
|
|||
Оформляйте код тегами [ code ][ /code ] Что именно делает неправильно-то? рисует, считает или что
|
#5
|
|||
|
|||
не считает
|
#6
|
|||
|
|||
Вау. А как вы это определил? Ошибку выдает? Результат неверный?
|
#7
|
|||
|
|||
препод сказал
|
#8
|
|||
|
|||
Ну вот у него и спрашивайте, где именно считает неправильно.
sin(z)/((z-3)+z) и sin(x)/(x-3)+x разные веши |