Вычислить функцию F(x). Pascal.

[igni]

Сообщение от Utkin

Это интервал значений. Тебе нужно прорешать формулу подставляя вместо Х конкретные значения от 1 до 3.

Спасибо, вроде понял!
[i,j] т.е.
For k:=i to j do
begin
x:=k;
...решение...
end;

[Alex11223]

For не подойдет. Вам же не по единице надо прибавлять.
Сегодня уже 2 темы про это было:
http://programmersforum.ru/showthread.php?t=166743
http://programmersforum.ru/showthread.php?t=166720

[MyLastHit]

Одногруппники ТС наверное))

[Вадим Мошев]

igni

Как сделать А=X^X-1 я прекрасно знаю. Но что значат цифры в квадратных скобках [1,3]? Как я понял это переменная X, но не пойму как X может быть = [1,3]... И еще "с шагом h=(b-a)/n" формула ясна но как она влеяет на счет не понятно(

Цифры в квадратных скобках означают промежуток, включающий граничные точки. Рассмотрим на конкретном примере.

Если есть промежуток [1, 3], то это означает, что необходимо вычислить значение функции на отрезке [1, 3] (протабулировать функцию на этом отрезке). То есть, вычислить значение этой функции не только в граничных точках этого отрезка, но и в точках, лежащих между ними. Промежуточные точки будут получаться благодаря шагу, вычисляемого по формуле h=(b-a)/n, где n - число разбиений этого промежутка.

Например, если n = 4, то h = (3 - 1)/4 = 2/4 = 0.5

При таких исходных данных на выходе будет получен результат в виде таблице, куда сведены исходные точки и значения функции в ней. Для нашего случая это будет выглядеть так:

x f(x)
1 f(1)
1.5 f(1.5)
............
3 f(3)

______________________

Сообщение от Alex11223

For не подойдет. Вам же не по единице надо прибавлять.
Сегодня уже 2 темы про это было:
http://programmersforum.ru/showthread.php?t=166743
http://programmersforum.ru/showthread.php?t=166720

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

x = a + i*h

. То есть, процесс табулирования функции можно записать следующим образом:

h = (b - a)/n

for i:=0 to n do
begin
x = a + i*h
вычисляем значение F(x) и выводим его на экран вместе с аргументом функции
end;

[igni]

Всем большущее спасибо

Опять застрял. Ввожу a и b как числа для подсчета шага. i и j ставлю как 1 и 3 ([1,3]) как теперь найти кол-ство шагов?
1 + (b-a)/n - это будет первый шаг? чему равно n в этом случае?
допустим
b:=10
a:=4
первый шаг будет 1+((10-4)/n)
Есть предположение что n изначально равно 1 и с каждым шагом n:=n+1, я прав?

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,n,i,j,x,F: real;
  //i начальная точка, j конечная точка.
begin
  a:=StrToFloat(Edit1.text);
  b:=StrToFloat(Edit2.text);
  i:=1;
  j:=3;
  n:=0;//номер шага
  x:=i;
  While (x<=j) do //Выполнять действия между Begin и End; пока (...)
  begin
    n:=n+1; //делаем шаг
    x:=((b-a)/n); //считаем индекс (Не знаю как это назвать иначе :) )
    F:=Exp(ln(x)*(x-1));
    Memo1.Lines.Add('Шаг №'+FloatToStr(n)+': F('+FloatToStr(x)+')='+FloatToStr(F));
    if n>=500 then //Если прошло 500 шагов остановим цикл т.к. это глюк %\
    begin
      memo1.Lines.Add('Останавливаем цикл, иначе он будет крутиться вечно :)');
      exit;
    end;
  end;
end;

Прошу проверить (подправить). Не обращайте внимание на корявость, как доделаю обязательно оптимизирую.

[Junsui]

Зачем вам i и j, если вы вводите переменные a и b?
n, как я понимаю, изменяться не должна. Вы просто должны высчитать шаг, с которым будет изменяться x. Наверно должно получиться как-то так.

procedure TForm1.Button1Click(Sender: TObject);
  var
    a,b,n,h,F,x: real;
    //a, b - начало и конец интервала.
    //h - шаг
  begin
    a:=1;
    b:=3;
    n:=StrToFloat(Edit1.text); 
    h := (b-a)/n; //вычисляем шаг
    x := a;
    Memo1.Lines.Clear;
    While (x<=b) do 
      begin
        F:=Exp(ln(x)*(x-1));
        Memo1.Lines.Add('При x = ' + FloatToStr(x) + ' F(x) = ' + FloatToStr(F));
        x := x + h;
      end;
  end;
end.

[Alex11223]

И раз уж программа не консольнаям, то "Результат оформить в виде таблиц" скорее всего имеется в виду СтрингГрид.

[phomm]

На паскале(см первый пост) же нет стринггридов ))
а вот вывести таблично можно как-то так, коли не путаю:

for i := 0 to width do
begin
for j := 0 to height
  do write(mas[j,i]:5);
writeln;
end;

[igni]

Благодарю, теперь точно разобрался Не думал что a и b это [1,3]
P.S задачу уже сдавать поздно Просто жутко интересно было

[Serge_Bliznykov]

n, как я понимаю, изменяться не должна.

точно. согласен. +1

Позволю сделать небольшое пояснение.
В подобных задачах на вычисление функции для аргументов, изменяющихся с шагом (это называют табулированием функции - т.е. составлением таблицы значений) задаётся интервал и шаг, или интервал и количество шагов (сколько значений функии надо получить на данном интервале или начальное значение, шаг и количество шагов. Очевидно, что эти величины могу быть легко пересчитаны относительно друг друга.
В данном случае даже в условии задана формула расчёта шага.
Т.е. нужно ввести в программу не только границы интервала, но и количество шагов.
(в примере Junsui это число из Edit1: n:=StrToFloat(Edit1.text); )
только я бы сделал её ЦЕЛЫМ числом. (иначе дробное число шагов - это бессмысленно!)

p.s. когда известно число шагов, основной цикл может быть записан и так, как предлагалось раньше:

  var
    a,b,h,F,x: real;
    //a, b - начало и конец интервала.
    //h - шаг
    i, n : integer;
  begin
    a:=1;
    b:=3;
    n:=StrToIntDef(Edit1.text,0); 
    if n<=0 then begin
      ShowMessage('Неверное значение в Edit1. Должно быть целое и положительное!');
       exit; {выходим из процедуры табулирования}
    end;
    if n=1 then h := b-a
    else
      h := (b-a)/(n-1); {вычисляем шаг - чтобы получить заданное число шагов n}
    x := a;
    Memo1.Lines.Clear;
    for i:=1 to n do
      begin
        F:=Exp(ln(x)*(x-1));
        Memo1.Lines.Add('При x = ' + FloatToStr(x) + ' F(x) = ' + FloatToStr(F));
        x := x + h;
      end;
  end

p.s. извините, что пример на Delphi. Думаю, не составит труда переделать его под Pascal
p.p.s.

P.S задачу уже сдавать поздно Просто жутко интересно было

а это правильный подход! Молодец!