|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2011, 21:00 | #1 |
Новичок
Джуниор
Регистрация: 30.05.2011
Сообщений: 1
|
Процедура
Подскажите что выполняет даная програма
procedure Arr(var mt:matr;d1,dp,ms:byte); var i,j:byte; numb:string; begin settextstyle(2,0,8); outtextxy(350,200,month[ms]); for i:=1 to m do begin mt[d1,i]:=(i-1)*7+1; if mt[d1,m]>dp then mt[d1,m]:=0; end; for i:=d1+1 to n do for j:=1 to m do if (mt[i-1,j]<=dp-1)and(mt[i-1,j]>0) then mt[i,j]:=mt[i-1,j]+1 else mt[i,j]:=0; for i:=d1-1 downto 1 do for j:=1 to m do if j=1 then mt[i,j]:=0 else if mt[i+1,j]>0 then mt[i,j]:=mt[i+1,j]-1 else if mt[i,m-1]<=dp-7 then mt[i,m]:=mt[i,m-1]+7 else mt[i,j]:=0; for i:=1 to n do begin if i>=6 then setcolor(4) else setcolor(15); outtextxy(300,200+i*25,dn[i]); for j:=1 to m do begin str(mt[i,j],numb); if mt[i,j]<>0 then outtextxy(300+j*35,200+i*25,numb); end; end; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедура | nex 9119 | Помощь студентам | 1 | 19.12.2010 12:18 |
Процедура | ЗЛОбнаЯ | Помощь студентам | 5 | 18.09.2010 18:12 |
процедура БД | Nimf7 | Помощь студентам | 0 | 20.03.2010 21:21 |
Процедура | jester_1936 | Помощь студентам | 5 | 20.12.2009 17:45 |
Процедура в процедура в C++ Builder | Ecosasha | C++ Builder | 2 | 06.06.2009 17:17 |