Ребята,нужна помощь =)))

Еще раз спешу поздороваться с Вами.

Как уже некоторым известно,я запустил учебу в этом семестре,и взываю о помощи Вас =)) На вас осталась последняя но самая важная надежда!

и так.пример по численным методам.

1. Х-2sinX=0

Нужно решить 4мя способами.

Я буду рад ЛЮБОЙ помощи.И зарание спасибо!!! )))

PS - кто проживает в Краснодаре,буду рад угостить своего спасителя пивом =))))

PSS - в следующем семестре ВСЕМ обещаю взяться за ум ))))

Еще раз спасибо.

 

http://forum.antichat.ru/showthread.php?p=2946195#post2946195

кхм,еще раз извиняюсь - вот тут если кто то, хоть что разбирается по тоturbo pascal ,буду рад помощи =)

 

не обещаю,если завтра выкрою время то помогу с графой.

 

x-2sinx=0

x = 2sinx

sinx = x/2

дальше нарисуй свой граф и тп

 

Препод сказал 4мя способами решить...
Я вообще без понятия что и как тут рисовать ;(

 

Я буду очень счастлив и благодарен Вам )

 

ну и хрень..

 

up
up
up
up
up

 

в теме

 

как обещал

1)

Code:

Uses Graph;

Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;

Begin
 grDriver:=Detect;
 InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
   setcolor(2);
   Line(1, 21, 15, 10);
   Line(41,61, 55, 50);
   ReadLn;
   CloseGraph;
  End
 Else WriteLn('Error', GraphErrorMsg(ErrCode));
End.

2)прямоугольник

Code:

Uses Graph;

Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;
     x1,x2,y1,y2:integer;

 procedure vvod;
     begin
 writeln('vvedite koordinaty');
readln(x1,y1);
 readln(x2,y2);
 end;

begin
vvod;
 grDriver:=Detect;
 InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
   setcolor(2);
   rectangle(x1,y1,x2,y2);



   ReadLn;
   CloseGraph;

  end

 Else WriteLn('Error', GraphErrorMsg(ErrCode));

end.

параллелепипед по аналогии с 1-й.сам допилишь бо мне вломы

часть 2:
1)окружность и квадрат

Code:

Uses Graph;

Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;
     xc,yc:integer;

begin

 grDriver:=Detect;
 InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
   setcolor(2);
   xc:=200;
   yc:=150;

   line(250,100,150,100);
   line(250,100,250,200);
   line(250,200,150,200);
   line(150,100,150,200);

   circle(xc,yc,70);



   ReadLn;
   CloseGraph;

  end

 Else WriteLn('Error', GraphErrorMsg(ErrCode));

end.

2)гистограмма

Code:

Uses Graph;

Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;
     xc,yc:integer;

begin

 grDriver:=Detect;
 InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
   xc:=50;
   yc:=200;
   setfillstyle(1,2);
   bar(xc,yc,10,20);
   setcolor(2);
   outtextxy(20,225,'50%');

   setfillstyle(1,3);
   bar(xc+20,yc,110,40);
   setcolor(3);
   outtextxy(80,225,'40%');

   setfillstyle(1,4);
   bar(xc+4*20,yc,170,120);
   setcolor(4);
   outtextxy(140,225,'20%');

   setfillstyle(1,5);
   bar(xc+8*20,yc,190,160);
   setcolor(5);
   outtextxy(190,225,'10%');




   ReadLn;
   CloseGraph;

  end

 Else WriteLn('Error', GraphErrorMsg(ErrCode));

end.

 

я такое в 9 классе проходил

 

Да! Но как решить четырмя способами?!?!?!??!?

 

up
up
up
up
помогите бестолочи =))) Завтра с утра сдавать =)
Только вы можете меня спасти,на знакомых не осталось надежды )

 

я те написал в теме,что еще надо?

 

ТС сказал бы язык хоть, на каком ему надо.

 

Я не могу понять что за 4 способа решения?! Я тут пол интернета перекроил...там что то сказанно про -
1.методом подбора(или что то такое)
2.Методом графика.
3.хз
4.хз.

Как решить этот чертов Х-2sinX=0