Курсовая для первого курса, спасайте или выгонять меня... Опции

[Floyd]

Приветсвую всех. Прошу помоч сделать мне курсовую.
Тут отксерино все мое задание

http://img185.echo.cx/img185/2035/11by.th.gif

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

Я присоединил изображение...

Сообщение отредактировано: volvo - 7.05.2005 21:25

[volvo]

А поконкретнее? У тебя в задании неизвестно чего понаписано, причем все время есть ссылка на отсутствующие части. Что, трудно правильно поставить задание и не "отксерить" а записать его сюда?

С такой постановкой я думаю что тебе невозможно помочь...

Кстати, насчет вычисления интегралов: FAQ: Численное интегрирование

[Floyd]

Эх... Вот такие у нас курсовые.. Как можно еще легче написать, если это и есть ксерокс задания...

Может вы мне обьясните при чем сдесь это-

Вычислить значения функции  ( табл.1) и построить график этой функции
для множества дискретных значений  , определяемых условиями           

График я смогу построить, а вот что значит "для множества дискретных значений"?

[volvo]

Да поймите Вы, я не могу ничего сказать, я же НЕ ВИЖУ табл.1, и кто его знает что там вообще написано???

[Floyd]

Простите...
:p2: Только что мне прислали не отксериное задание, а в файле.

Вот я сюда прекрипил, полностью с таблицами.. со всем.
Для начала бы разобратся в первом задании.

Сообщение отредактировано: Floyd - 8.05.2005 13:30

[volvo]

что значит "для множества дискретных значений"?

Это значит в заданных точках, а не на всей области определения функции. То есть, насколько я вижу из задания, нужно будет найти значение функции в 8-ми точках...

[Floyd]

Тоесть, Хі у меня будет 8-м, и для них строить график.. Ок, я буду разбиратся сейчас.
Но буду очень благодарен если и вы поможите решить мне эту курсовую..

[klem4]

вот, чтобы ты совсем не грустил, первое задание :

{$n+}
uses crt;
function f(x:extended):extended;
begin
   f:=x*x; {funkciya}
end;
var x,h,xStart,xStop,xmin,xmax:extended;
    n:integer;

Begin
   clrscr;
   readln(n);
   readln(xStart);
   readln(xStop);
   h:=(xStop-xStart)/(n-1);
   x:=xStart;
   xmax:=x;
   xmin:=x;
   while x<=xStop+h/2 do
    begin
       if f(x)>f(xmax) then
        xmax:=x;
       if f(x)<f(xmin) then
        xmin:=x;
       x:=x+h;
    end;
   writeln('xmax=',xmax:2:3,'   f(xmax)=',f(xmax):2 :3);
   writeln('xmin=',xmin:2:3,'   f(xmin=)',f(xmin):2 :3);
   readln
end.

на интегралы Volvo ссылку дал, а остальное действительно мутновато ..

[Floyd]

klem4
Сижу вот уже часов 6-ть и ни гу-гу=) Огромное спасибо!!! Интегралы сделаю сам, надеюсь... И буду уже тогда ко второму заданию переходить.

Сообщение отредактировано: Floyd - 8.05.2005 17:00

[volvo]

Интегралы сделаю сам, надеюсь...

Обязательно свой велосипед изобрести? Я же дал ссылку на FAQ ... А там, между прочим, есть программа...

[Floyd]

Не, я не правильно выразился. сори. Естественно я воспользуюсь вашим FAQ.
Тока маленький вопрос, у меня функци вот такая

arcsin|корень|(х)
--------------------
корень(х*(1-х))


я правильно записал в Паскале?
(exp((-1)*ln(sin(sqrt(x)))))/sqrt(x*(1-x))
З.Ы.Ведь arcsin это sin в степени -1?

Сообщение отредактировано: Floyd - 8.05.2005 17:01

[volvo]

я правильно записал в Паскале?
(exp((-1)*ln(sin(sqrt(x)))))/sqrt(x*(1-x))
З.Ы.Ведь arcsin это sin в степени -1?

:no: Это не калькулятор...
К сожалению в Паскале отсутствует встроенная функция вычисления арксинуса... Из всех Арков есть только арктангенс, пожтому приходится выражать ArcSin через ArcTan:

Function ArcSin(x: Real): Real;
begin
  If Abs(x) = 1 Then ArcSin := 0
  Else ArcSin := ArcTan(x / (1 - Sqr(x)))
end;

{ И потом вычисляешь: }
y := ArcSin(sqrt(x)) / sqrt(x * (1 - x));

[Floyd]

volvo
Хе хе! Так вот в чем заминка, спасибки... пойду продолжу работу...

[Floyd]

Люди помогите решить последние задание... а-то у меня проблемка вышла.
____
Взять интеграл от фунции вот такой
http://img185.echo.cx/img185/7906/14lg.gif
от a до b. Где a=0.2 и b=0.3.
Для вычислений использовать формулу трапеций и еще и формулу Симпсона.
И что б ответы совпали...
____
Разве ArcSin := ArcTan(x / (1 - Sqr(x))) .. там еще двока перед иксом должна быть, ведь так?
ArcSin := ArcTan(2*x / (1 - Sqr(x)))

____
В общем вот мое решение через процедуру (так в задании написано) которое выдает ошибку плавающей точки..

 
procedure intg(var int1,int2:real);
var h,suma,suma2,suma3,m:real; c:array[1..8] of real; y:array [1..8] of real;
 i,g,k,q:integer;
   begin
      clrscr;
c[1]:=0.2;    q:=8; h:=0.0125;
for i:=2 to 8 do begin
c[i]:=c[i-1]+h;
  for g:=2 to (q-1) do begin
  c[i]:=c[g];
  suma:=c[g]+suma; end;
  int1:=(h/2)*(2*suma+y[1]+y[q]); {за формулой Трапеции}
   
 for k:=2 to q-1 do begin
      c[g]:=c[k];
      m:= k mod 2;
      if m=0 then
      suma2:=suma2+f(c[k])
      else
      suma3:=suma3+f(c[k]); end;         end;
int2:=(h/3)*(c[1]+4*suma2+2*suma3+c[q]); {а это уже за Симпсоном}
writeln(int1);
writeln(int2);  readln  end;

З.Ы. f - это фунция кторую выше написал volvo

[volvo]

Разве ArcSin := ArcTan(x / (1 - Sqr(x))) .. там еще двока перед иксом должна быть, ведь так?
ArcSin := ArcTan(2*x / (1 - Sqr(x)))

Ничего подобного. Повторяю еще раз:

ArcSin(x) = ArcTan(x / Sqrt(1 - Sqr(x)))

Откуда ты взял двойку?

Кстати, где именно выдается ошибка в процедуре ?

[Floyd]

Место ошибки не указывается, если посмотреть что выводит программа, то она выводит следующее.
Runtime Error 207 at 04E3:0007
Ошибка именно в этой процедуре, так как я проверял Step`ом

[volvo]

Ты знаешь, я внимательно просмотрел процедуру: по-моему, у тебя неправильно расставлены Begin ... End. Я бы поставил так:

procedure intg(var int1,int2:real);
var
  h,suma,suma2,suma3,m:real;
  c:array[1..8] of real; y:array [1..8] of real;
  i,g,k,q:integer;
begin
  clrscr;
  suma := 0; suma2 := 0; suma3 := 0; { <--- это никогда не помешает }
  c[1]:=0.2; q:=8; h:=0.0125;
  for i:=2 to 8 do { begin } { <--- убрать begin }
    c[i]:=c[i-1]+h;
  for g:=2 to (q-1) do begin
    c[i]:=c[g];
    suma:=c[g]+suma;
  end;
  int1:=(h/2)*(2*suma+y[1]+y[q]); {за формулой Трапеции}

  for k:=2 to q-1 do begin
    c[g]:=c[k];
    m:= k mod 2;
    if m=0 then suma2:=suma2+f(c[k])
    else suma3:=suma3+f(c[k]);
  end;

  { end; } { <--- убрать end }

  int2:=(h/3)*(c[1]+4*suma2+2*suma3+c[q]); {а это уже за Симпсоном}
  writeln(int1);
  writeln(int2);
  readln
end;

Попробуй это прогнать

[Floyd]

volvo
Огромнейшее спасибо! Благодарю, супер! Работает.
Вот что вышло. Погрешность очень маленькая вроде, да? Тоесть все правильно! Уря!
I= 1.96677122947051E-0002
II= 1.62024424900892E-0001

[klem4]

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

writeln(int1:7:5);

те 7 знаков под число, и 5 после запятой. ;)

[Floyd]

Эт я просто показал для наглядности =) Но все равно спасибо.