Forum of Computer Science Faculty of Baku State University |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Forum of Computer Science Faculty of Baku State University » Programming » Проход двумерного массива по спирали
Охх, какую я программу написал !!!
Она пробегает все элементы массива по часовой стрелке, начиная с левой верхней и присваивая каждой номер своего шага. А потом массив выводит в файл OUTPUT.TXT . (N,M <= 100)
http://depositfiles.com/files/6kgbcg20i
Файл будет находиться в папке .../bin , если Вы используете Турбо Паскаль. Если используете Фри Паскаль, то в той же папке, откуда Вы запустили программу.
О да,я задал 100 на 100 и вышла реальная матрица
Ляпота!!! Смотрю и глаз радуется!!! 
о___О поздрики =)) у меа тож постепенно начинабт задания полу чаться =))токо что сделал 7 заДаНий из КР 2го числа =))
+
Получилось 12е задание из к р))не ожидал от себя))щас делаю ППКЗ =)) уже 3 сделал))вопросы будут напишу сюда=)
Бабахан
Мои поздравления! Всё идёт как надо!
сылка битая!!жаль,а так хотелось посмотреть!! 
сылка битая!!жаль,а так хотелось посмотреть!!
Для файла примерно так:
var
s:array[1..100,1..100] of integer;
i,j,k,p,n:longint;
f:text;
BEGIN
assign(f,'input.txt');
reset(f);
read(f,N);
close(f);
i:=0; k:=0; p:=1;
repeat
k:=k+1;
for j:=k to n-k+1 do
begin
i:=i+1;
s[k,j]:=p;
p:=p+1;
end;
for j:=k+1 to n-k+1 do
begin
i:=i+1;
s[j,n-k+1]:=p;
p:=p+1;
end;
for j:=n-k downto k do
begin
i:=i+1;
s[n-k+1,j]:=p;
p:=p+1;
end;
for j:=n-k downto k+1 do
begin
i:=i+1;
s[j,k]:=p;
p:=p+1;
end
until i=n*n;
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
begin
for j:=1 to n do
write(f,s[i,j]:4,' ');
writeln(f);
end;
close(f);
END.
А без него я знаю ты сам разберёшься 
Руви,спс))попоробую разобратся)вечерком
ruvinbgu
Это мой код или твой? (не для базара спросил, а чисто уточнить)
Это мой код или твой? (не для базара спросил, а чисто уточнить)
Насколько я знаю у тебя с repeat,а у меня дороботка из пособия 16-ой главы 
Насколько я знаю у тебя с repeat,а у меня дороботка из пособия 16-ой главы
understood. thank you.
understood. thank you.
NOT AT ALL 
вы еще и подеритесь))вообще,это мой код,я его доработал его с помощью пособия 1298,которую написал мне лично Фаронов))и доставил тоже лично!!клевый чел) 
Вот и мой код! 
Прошу, обратите внимание на пост №1. Рамин Назмович требуе не эту программу.
VAR
A:array [1..100,1..100] of integer;
N,M,i,j,d:byte;
q:integer;
F:text;
BEGIN
assign(F,'INPUT.TXT'); reset(F);
readln(F,N,M);
close(F);
for i:=1 to N do
for j:=1 to M do
A[i,j]:=0;
i:=1;
j:=0;
d:=1;
repeat
if d=1 then
begin
repeat
INC(j);
INC(q);
A[i,j]:=q;
until (j=M) or (A[i,j+1]<>0);
if (i<>N) and (A[i+1,j]=0) then
repeat
INC(i);
INC(q);
A[i,j]:=q;
until (i=N) or (A[i+1,j]<>0);
d:=0;
end
else
begin
repeat
DEC(j);
INC(q);
A[i,j]:=q;
until ((j=1) or (A[i,j-1]<>0));
{ if A[i-1,j]=0 then }
repeat
DEC(i);
INC(q);
A[i,j]:=q;
until (A[i-1,j]<>0);
d:=1;
end;
until ( (d=1) and (A[i,j+1]<>0) ) or
( (d=0) and (A[i,j-1]<>0) ){and (i>=(n mod 2)+1) and (j>=(m mod 2)+1)} ;
assign(F,'OUTPUT.TXT'); rewrite(F);
for i:=1 to N do
begin
for j:=1 to M do
write(F,A[i,j]:7);
writeln(F);
end;
close(F);
END.Вы здесь » Forum of Computer Science Faculty of Baku State University » Programming » Проход двумерного массива по спирали