программы на PASCAL

[tiftelya]

помогите мне пожалуйста, никак не могу написать 4е последних программы
1)Сформировать вектор из 100 вещественных чисел и преобразовать его в матрицу 10х10
2)Уточнить корень уравнения ln(x)- x +1.8 =0 на отрезке [2; 3] методами простой
итерации и Ньютона и вывести его на экран с помощью одной процедуры,
имеющей параметр процедурного типа.
3)С помощью подпрограммы установить количество цифр в числах 549 и 675412.
(использовать типизированные параметры-значения и параметры-переменные)
4)Используя параметр-строка открытого типа, отсортировать по нарастанию строки из 10 и 12 символов.
заранее спасибо

[GetMax]

Сформировать вектор из 100 вещественных чисел и преобразовать его в матрицу 10х10

Var
  V:Array[1..100] of Real;
  M:Array[1..10,1..10] of Real;
  i,j,k:Byte;
begin
  Randomize;
  For i:=1 to 100 do
  Begin
    V[i]:=Random(100)/10;
    Write(V[i]:3:1,' ')
  End;
  Writeln;
  Writeln;
  k:=0;
  For i:=1 to 10 do
  Begin
    For j:=1 to 10 do
    Begin
      Inc(k);
      M[i,j]:=V[k];
      Write(M[i,j]:3:1,' ')
    End;
    Writeln
  End;
  Readln
End.

[Stilet]

1)Сформировать вектор из 100 вещественных чисел и преобразовать его в матрицу 10х10

{Формируем}
for i:=1 to 100 do d[i]=50/random(100);
{Преобразовываем}
k:=1;
for i:=1 to 10 do 
 for j:=1 to 10 do  begin  
   a[i,j]:=d[k];inc(k);
  end;

Где

i,j,k:integer;
d:array[1..100] of double;
a:array[1..10,1..10] of double;

Смысл понятен?

[GetMax]

С помощью подпрограммы установить количество цифр в числах 549 и 675412.

Function Podschet(Chislo:LongInt):Byte;
Var
  Kol,N:Byte;
Begin
  Kol:=0;
  While (Chislo mod 10 > 0) do
  Begin
    N:=Chislo mod 10;
    Inc(Kol);
    Chislo:=Chislo div 10;
  End;
  Podschet:=Kol
End;
Begin
  Writeln('V chisle 675412 kollichestvo cifr = ',Podschet(675412));
  Writeln('V chisle 549 kollichestvo cifr = ',Podschet(549));
  Readln
End.

[tiftelya]

да, пасиб, это понятно

[rubius2008]

Ньютона

  
  xlast:=x0;
  i:=0;
  x:=xlast-f(xlast)/df(xlast); i:=i+1;
  while abs((x-xlast)/x)>eps do begin
    xlast:=x;
    x:=xlast-f(xlast)/df(xlast); i:=i+1;
    writeln(i:3,x:12:9);
  end;

Простой итерации

xlast:=x0;
  i:=0;
  x:=g(xlast); i:=i+1;
  while abs((x-xlast)/x)>eps do begin
    xlast:=x;
    x:=g(xlast); i:=i+1;
    writeln(i:3,x:12:9);
  end;

f - функция, df - ее производная
х0 - начальное приближение
g - функция полученная из f (g надо правильно выбрать, чтоб сошелся метод)