Trubo Pascal 7.0 Пара не понятных мне задач.

[anbroider]

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

Снимок во вложениях с цифрой 1

)

2)Сформировать квадратную матрицу порядка n по данному образцу:

Снимок2 во вложениях с цифрой 2

3)Составить программу , которая возместит между пар эллементов одномерного массива M и , разницу между эллементами которых является величина наибольшая для данного массива..(здесь без картинок)

(Скласти програму, яка відшукує серед пар елементів одновимірного масиву М ті, різниця між елементами яких є величина найбільша для даного масиву.(здесь без картинок))

Если появится человек , готовый помочь, буду премного благодарен.

[whatever]

أولا، مرحبا بك.
الثانية، فهم ليس كل الأوكرانية
ثالثا، لماذا فجأة كل شيء سوف تشغيل متروك لكم، ولكن لا يزال مع تعليقات؟

[anbroider]

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

أولا، مرحبا بك.
الثانية، فهم ليس كل الأوكرانية
ثالثا، لماذا فجأة كل شيء سوف تشغيل متروك لكم، ولكن لا يزال مع تعليقات؟

Доброго времени суток, комментарии - по возможности. За уркраинский приношу свои извинения и перевожу на русский.

[whatever]

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

Доброго времени суток, комментарии - по возможности. За уркраинский приношу свои извинения и перевожу на русский.

Внезапно... Первый адекватный новичек...
Только ты перепутал похоже, функция описывается "во вложениях с цифрой 2". Если так, то первая задача:

var
  x:real;
begin
  x:=0.8;
  while x<=3 do
  begin
    x:=x+0.2;
    writeln('x= ',x:2:2,'; y= ',exp(ln(2)*x):2:2);
  end;
  readln
end.

Вторая:

type
  matrix=array[1..50,1..50]of integer;
var
  i,j,n:integer;
  m:matrix;
begin
  repeat
    write('n<=50, n= ');
    readln(n);
  until (n>=1)and(n<=50);
  for i:=1 to n-1 do
    begin
      for j:=1 to n-1 do
        begin
          if i=j then
            m[i,j]:=i
          else
            m[i,j]:=0;
          write(m[i,j]:4);
        end;
      writeln;
    end;
  readln
end.

Третью не понял.

[anbroider]

Спасибо большое, Там на самих скриншотах написаны 1 и 2.