Выручайте бедного студента(((Паскаль

[Jereme]

НАДО РЕШИТЬ В ПАСКАЛЕ !!!

1. Заполнить матрицу линейной последовательностью, от левого верхнего угла по спирали: вправо - вниз - влево - вверх. Размерность матрицы должна вводиться при выполнении программы. Само решение задачи должно быть оформлено в виде функции, которой передается матрица и ее размерность.
2. Описать функцию WordN(S,k) строкового типа, возвращающую k-е слово строки S (под словом понимается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше k, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки S слова с номерами k1, k2, k3.

[paloit]

362827711. Помощь платная.

[Serge_Bliznykov]

Jereme, учитесь пользоваться поиском!
Например, поиск вводите слово: СПИРАЛИ
и смотрите готовые решения...

[Максимка]

Держи для первой задачи!
Насчет функции, сам переделаешь!

program speral;
const
n=100;
var
m: array[1..n,1..n] of integer;
__x: byte;
{---------------------------}
procedure print(_x: byte);
var
_i,_j: byte;
begin
for _j:=1 to _x do
begin
for _i:=1 to _x do
write (m[_j,_i],' ');
writeln;
end;
end;
{---------------------------}
procedure z;
var
_i: word;
x,y: word;
stroka: boolean;
vpered: boolean;
begin
x:=1; y:=0; stroka:=false; vpered:=true;
for _i:=1 to __x*__x do
begin
if stroka=true then
begin
if vpered=true then
inc(x)
else dec(x);
end
else begin
if vpered=true then
inc(y)
else dec(y);
end;
m[x,y]:=_i;
if y=__x then
stroka:=true;
if x=__x then
begin
stroka:=false;
vpered:=false;
end;
if (x=__x) and (y=1) then
stroka:=true;
if (vpered=false) and (stroka=true) and (m[x-1,y]<>0) then
begin
vpered:=true;
stroka:=false;
end;
if (vpered=true) and (stroka=false) and (m[x,y+1]<>0) then
begin
vpered:=true;
stroka:=true;
end;
if (vpered=true) and (stroka=true) and (m[x+1,y]<>0) then
begin
vpered:=false;
stroka:=false;
end;
if (vpered=false) and (stroka=false) and (m[x,y-1]<>0) then
begin
vpered:=false;
stroka:=true;
end;
end;
end;
{---------------------------}
begin
Assign (input,'spiral.in');
Assign (output,'spiral.out');
reset (input);
readln (__x);
close (input);
z;
rewrite (output);
print(__x);
close (output);
end.

Олимпиаду решаешь что ли?