Технический форум - Помогите составить простую программу для графика

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите составить простую программу для графика (http://www.tehnari.ru/f43/t36297/)

goooss

23.05.2010 17:08

Помогите составить простую программу для графика

собственно требуется найти площадь.
http://content.foto.mail.ru/mail/goo...swers/i-10.jpg

Matrix

23.05.2010 17:26

не понял суть вопроса? программа и график...
посчитай площадь вручную через интеграл)

goooss

23.05.2010 17:35

да я хз_)я с информатикой знаком последние месяца 4
препод сказал напиши программу к этому
...ну найду площадь, иии?

AlexZir

23.05.2010 17:52

Более точную формулировку задания выложите, возможно, тогда понятнее будет, что вам требуется!

З.Ы. А школу вы, конечно же, не посещали, так, что ли?

Vladimir_S

23.05.2010 18:09

Цитата:

Сообщение от AlexZir (Сообщение 337835)

Более точную формулировку задания выложите, возможно, тогда понятнее будет, что вам требуется!

Во-во! А то я тоже смотрю, и ничего понять не могу: ну 31 клетка, и какие тут нужны программы, интегралы и пр.?

goooss

23.05.2010 18:22

да я говорю как прпод вообщем : Напиши программу по нахождению площади этой фигуры...
это мне тип на защиту лабы"программирование алгоритмов разветляющей структуры с использование оператора варианта"

ту AlexZir всё я посещал,ток в школе мы ток работали в word-e и всё

Vladimir_S

23.05.2010 18:37

Между прочим, хорошо бы узнать, на каком языке нужна программа. А то Вы как-то про это ни слова.

goooss

23.05.2010 18:46

pascal

Vladimir_S

23.05.2010 19:06

Цитата:

Сообщение от goooss (Сообщение 337854)

pascal

Ну вот, например:

Код:

VAR

 X,dX,S:REAL;

Function ff(xf:Real):Real;

 begin

  If (xf<0.0001) or (xf>5.0001) then ff:=0 else

  If (xf>0) and (xf<3.0001) then ff:=9.0 else

  If (xf>3.0001) and (xf<5.0001) then ff:=2.0;

 end;

BEGIN

 S:=0;

 dX:=1.0;

 X:=dX;

 Repeat

  S:=S+ff(X)*dX;

  X:=X+dX;

 Until X>5.0001;

 WriteLn('S= ',S:5:2);

 ReadLn;

END.

goooss

23.05.2010 19:16

спасибо

Часовой пояс GMT +4, время: 02:16.