|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2010, 17:08 | #1 |
Пользователь
Регистрация: 13.05.2010
Сообщений: 27
|
Спираль
Построить матрицу по спирали,размерность 10*10. Из нижнего левого - в право.
P.S Как нужно начать чтобы она начала работать с нижнего левого в право,вот это мне не понятно. Надеюсь на скорый ответ. program spir; uses crt; var a: array [1..10,1..10] of byte; i,j,k,v,b,c,d: byte; begin clrscr; i:=10; j:=1; v:=1; b:=0; c:=0; d:=2; a[i,j]:=1; k:=2; repeat while i>v do begin dec(i); a[i,j]:=k; inc(k); end; inc(v); while j<10-b do begin inc(j); a[i,j]:=k; inc(k); end; inc(b); while i<10-c do begin inc(i); a[i,j]:=k; inc(k); end; inc(c); while j>d do begin dec(j); a[i,j]:=k; inc(k); end; inc(d); until k>100; for i:=1 to 10 do begin writeln; for j:=1 to 10 do begin if a[i,j]<=100 then write (a[i,j]:2, ' '); if a[i,j]>=100 then if a[i,j]=100 then end; end; readln end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обход ячеек по спираль с произвольным центром. | iness | Помощь студентам | 6 | 16.11.2009 10:09 |
логарифмическая спираль с++ | salmanov | Помощь студентам | 0 | 23.06.2009 21:17 |
Задача "Спираль" | Witaliy | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 01.05.2008 21:09 |
как написать программу в Graphе,чтобы он рисовал спираль архимеда | Pafnutiya | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 07.10.2007 20:40 |