Процедуры в Паскале

[venomdanger]

Задача № 1
Даны целые числа а1, а2, а3. Получить целочисленный массив В[1..3, 1..3], для которого B[i,j]=ai-3aj.

Программный код:

Program xxx;
const n=3;
var i,j:integer;
    a:array[1..n] of integer;
    b:array[1..n,1..n] of integer;    
begin
for i:=1 to n do
 readln(a[i]);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  b[i,j]:=a[i]-3*a[j];
  write(b[i,j]:4);
  end;
  writeln;
 end;
end.

Дан целочисленный массив В[1..5, 1..5]. Найти наименьший элемент массива и сообщить его расположение относительно правой диагонали.

Программный код:

program Project2;
const
  N = 5;
var
 A : array[1..N,1..N] of Integer;
 i,j,b,d: Integer;
begin
Randomize;
for i:=1 to N do
  begin
  for j:=1 to N do
    begin
    A[i,j]:=Random(50);
    Write(' A[',i,',',j,']=',A[i,j]);
    end;
  WriteLn;
  end;
 d:=1; b:=1;
for i:=1 to N do
     for j:=1 to N do
          if A[i,j] < A[b,d] then
            begin
            b:=i;
            d:=j;
            end;
if b=d then
  WriteLn('Min - A[',b,',',d,']=',A[b,d],' nax nad pravoy diogonalyu')
else
  if b > d then
    WriteLn('Min - A[',b,',',d,']=',A[b,d],' pod pravoy diogonalyu') 
   else    WriteLn('Min - A[',b,',',d,']=',A[b,d],' nad pravoy diogonalyu'); 
ReadLn;
end.

Заполнить двумерный массив целыми числами от 1 до 100 по спирали.

Программный код:

Program xxx;
const
  n = 10; m =10;
var
 s: array[1..n,1..m] of integer;
 i,j,k,p: integer;
begin
 i:=0; k:=0; p:=1;
 while i<n*m do
  begin
    inc(k);
    for j:=k to m-k+1 do
     begin
       inc(i);
       s[k,j]:=p;
       inc(p);
     end;
  for j:=k+1 to n-k+1 do
   begin
     inc(i);
     s[j,m-k+1]:=p;
     inc(p);
   end;
  for j:=m-k downto k do
   begin
     inc(i);
     s[n-k+1,j]:=p;
     inc(p);
   end;
  for j:=n-k downto k+1 do
   begin
     inc(i);
     s[j,k]:=p;
     inc(p);
   end
 end;
 for i:=1 to n do
  begin
    for j:=1 to m do
     write(s[i,j]:4,' ');
  writeln;
 end;
 readln;
end.

Помогите пожалуйста решить процедурами! Реально нужна помощь! Завтра сдача!

[Stilet]

Задача № 1

const n=3;
var i,j:integer;
    a:array[1..n] of integer;
    b:array[1..n,1..n] of integer;

procedure in_;
begin
for i:=1 to n do
 readln(a[i]);
end;

procedure chang;begin  b[i,j]:=a[i]-3*a[j];  end;
begin

in_;

for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   chang;
   write(b[i,j]:4);
  end;
  writeln;
 end;
 readln;
end.

Дан целочисленный массив В

const
  N = 5;
var
 A : array[1..N,1..N] of Integer;
 i,j,b,d: Integer;

procedure in_;
begin
for i:=1 to N do
  begin
  for j:=1 to N do
    begin
    A[i,j]:=Random(50);
    Write(' A[',i,',',j,']=',A[i,j]);
    end;
  WriteLn;
  end;
end;

begin
Randomize;
in_;

 d:=1; b:=1;
for i:=1 to N do
     for j:=1 to N do
          if A[i,j] < A[b,d] then
            begin
             b:=i;
             d:=j;
            end;
if b=d then
  WriteLn('Min - A[',b,',',d,']=',A[b,d],' nax nad pravoy diogonalyu')
else
  if b > d then
    WriteLn('Min - A[',b,',',d,']=',A[b,d],' pod pravoy diogonalyu') 
   else    WriteLn('Min - A[',b,',',d,']=',A[b,d],' nad pravoy diogonalyu'); 
ReadLn;
end.

Подойдет?

[venomdanger]

Спасибо за помощь! Большое спасибо!

А ты можешь по этим же задачам помочь мне с созданием программы работы с файлами?

[L_M]

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

А ты можешь по этим же задачам помочь мне с созданием программы работы с файлами?

В смысле чтобы считывание/запись данных происходили в файлы?

[venomdanger]

Да! Чтобы считывание и запись происходила в файлы

[Stilet]

Рекомендую к ознакомлению:
http://tolks.narod.ru/textbook/files.html
http://valera.asf.ru/delphi/book/tp15.shtml