Паскаль

[Arven]

Source of the post
От того какого она размера или типа реализация почти не меняется, я спрашивал динамическая она или размер известен заранее. Если известен, то самое простое:

Код: Выбрать все

begin
 ClrScr;
 Randomize;
 imax:=1;
 jmax:=1;
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 Arr[i][j]:=Random(100);
 Write(Arr[i][j]:3);
 if Arr[i][j]>Arr[imax][jmax] then
 begin
 imax:=i;
 jmax:=j;
 end;
 end;
 WriteLn;
 end;


У меня тоже очень похоже получился этот цикл:

Код: Выбрать все

max I:= 1;
max J:= 1;
max:=a [max I, max J];
For i:= 1 to N do
 For j:= 1 to N do
 If max< a[i, j] then
 Begin
 max I:= i;
 max J:= j;
 max [max I, max J]:= a [i, j]
 End;


только у меня там без процедур.

[qwertylol]

B моём коде идёт одновременно генерация матрицы, её вывод на экран и поиск максимума. A ваша переменная max не нужна, исключите её.

[Arven]

3. Используя разложение в ряд Тейлора найти значение ln(x) c заданной точностью eps.
Функция: .

Третья задачка у меня выглядит так:

Код: Выбрать все

Uses
 Crt;
Var
 x, eps, sqx, fx, znam: real;
 i, n: integer;
Begin
Write ('Введите x:');
Readln (x);
Write (Введите eps:');
Readln (eps);
sqx:= x-1; fx:= 0; znam:= 1; i:= 1; n:= 1;
While sqx/znam >= eps do
 Begin
 fx:= fx+znam * sqx/znam;
 inc (i);
 sqx:= sqx* (x-1);
 znam:= i;
 n:= n* (-1);
 End;
Writeln (Количество членов ряда: ');
Writeln (Значение функции: ');
Readln;
End.

Третья вообще лёгкая, там оказалось надо просто составить один цикл и досчитать до нужной точности .

[fynt]

Немогу вникнуть в формулу Тейлора :search:

B книге написанно про производные, в примерах написанны степени и нет производных, a тут вообще непонятно что написанно

Напишите формулу которую надо вставить в цикл и я гляну как лучше сделать :whistle:

[Arven]

Source of the post
Немогу вникнуть в формулу Тейлора :search:

B книге написанно про производные, в примерах написанны степени и нет производных, a тут вообще непонятно что написанно

Напишите формулу которую надо вставить в цикл и я гляну как лучше сделать :whistle:

Я комменты не вставила... Лучше описать переменные, так будет понятней, что я имела в виду:
sqx -- х в степени, znam -- значение знаменателя; fx -- первый элемент разложения.
To есть: Делать пока значение выражения sqx/znam не станет больше либо равно епсу. A делать вот эту формулу: fx:= fx+znam * sqx/znam; (то есть к самому первому члену разложения прибавить sqx/znam, a потом присвоить это значение первому члену, установленному в начале в нуль). Потом идёт подготовка к след. итерации...

[fynt]

A как математически выглядит формула.
Я думаю что тут гораздо проще можно сделать..

[qwertylol]

Немогу вникнуть в формулу Тейлора

[Arven]

Source of the post
A как математически выглядит формула.
Я думаю что тут гораздо проще можно сделать..

Там рекуррентное правило:
, что-то в этом роде...
Я думаю, там без рекуррентной формулы никак не обойтись, мы же имеем дело c рядом.

[fynt]

Source of the post

Немогу вникнуть в формулу Тейлора

Чтото на бумажке даже неполучается :search:

[qwertylol]

Source of the post

Source of the post

Немогу вникнуть в формулу Тейлора

Чтото на бумажке даже неполучается :search:

то, что |x|<1 учли?