Задачки на массивы. Большая просьба помочь

[tohkaRu]

№1
По введенному n <= 30 выведи n первых строк треугольника Паскаля.
Пример входных данных
5
Пример выходных данных
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1

№2
По введенным значениям n и m заполните массив размерностью n*m
числами от 1 до mn, расположив их «горизонтальной змейкой»
Пример входных данных
3 5

Пример выходных данных
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15


№3
По введенным значениям n и m заполните массив размерностью n*m числами от 1 до mn, расположив их по спирали, закрученной по часовой стрелке.
Пример входных данных
4 4

Пример выходных данных
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7

Помогите решить задачки на эти двумерные массивы. если возможно – то можно и блок-схемы нарисовать

[tohkaRu]

хотя бы блок-схему нарисовать помогите пожалуйста

[alex_fcsm]

uses crt;
const n1=10;
      m1=10;
var a:array[1..n1,1..m1] of integer;
    i,j,n,m:integer;

begin
clrscr;
writeln('Input n');
readln(n);
writeln('Input m');
readln(m);
for i:=1 to n do
if i mod 2=1 then  for j:=1 to m do
                     a[i,j]:=(i-1)*m+j
   else for j:=m downto 1 do
              a[i,j]:=i*m-j+1
              ;

for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:3);
  writeln;
 end; 
end.

[tohkaRu]

спасибо большо!

[alex_fcsm]

Нашел в нете
program Triangle;

uses
  Crt;
const
  N = 30;
var
  I, J,Nn: Integer;
  A: array[1..N, 1..N] of longint;
begin
  writeln('Input n');
  readln(Nn);
  ClrScr;
  for I:= 1 to Nn do
    begin
      A[I, 1]:= 1;
      A[I, i]:= 1;
    end;

  for I:= 3 to Nn do
    begin
      For J:= 2 to I-1 do A[I, J]:= A[I-1,J-1]+A[I-1, J];
    end;

  ClrScr;
  for I:= 1 to Nn do
    begin
      for J:= 1 to I do Write(a[I, J],' ');
      WriteLn;
    end;
  WriteLn;
  WriteLn('Press Enter');
  ReadLn;
end.

[tohkaRu]

еще раз премного благодарен, а где искали не подскажите? потому как треугольник Паскаля уже успел решить, а вот "Спираль" пока не дается

[alex_fcsm]

Про спираль ТОЧНО есть на форуме, а про треугольник здесь

[Serge_Bliznykov]

спиралька.

var
  a:array[1..100,1..100]of integer;
  i,imax,imin,j,jmax,jmin,k,m,n:integer;
begin
  write('Vvedite 4islo strok: ');
  readln(m);
  write('Vvedite 4islo stolbcov: ');
  readln(n);
  jmin:=1;
  jmax:=n;
  imin:=2;
  imax:=m;
  k:=0;
  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      a[imin-1,j]:=k;
    end;
    for i:=imin to imax do
    begin
      inc(k);
      a[i,jmax]:=k;
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      a[imax,j]:=k;
    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      a[i,jmin]:=k;
    end;
    inc(imin);
    inc(jmin);
  until k>=m*n;
  for i:=1 to m do
  begin
    writeln;
    for j:=1 to n do write(a[i,j]:3);
  end;
  readln;
end.

[tohkaRu]

спасибо всем большое! а кто посоветует какой программой блок схему рисовать можно? чтобы просто листинг вставить а она нарисовала?

[Serge_Bliznykov]

а кто посоветует какой программой блок схему рисовать можно? чтобы просто листинг вставить а она нарисовала

FCEditor

на форуме выкладывали "вылеченную"...