Форум Delphi.int.ru — Основной сайт Прочее Опросы |
|
Цитата (min@y™): Интересуют вопросы, более относящиеся к кодерской тематике. Да нету их. Всё уже обсосали. Ой, да ладно... | ||||||
|
Если бы были ещё темы, этого формум-топика не существовало бы. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Я не претендую на всезнайку - добавлял такие вопросы, какие приходили в голову. Потом начался дефицит, написал здесь - люди начали потихоньку что-то предлагать. Пусть и немного, но что-то. Можно спросить и о том, как люди называют переменные - осмысленными именами, буквами по алфавиту или бьют головой по клавиатуре и оставляют то, что получилось | ||||||
|
О, да. Я когда посмотрел исходники, которые пишут наши программисты с 20-40-летним стажем, пришёл в дикий ужос и ахтунг! Могу выложить как доказательство. Изучение и, не дай Бог, модификация и отладка этих исходников ведёт к неизбежному и скоропостижному раку мозга! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Особенно радовали переменные в транслите, типа "kolichestvo", "ocenka", "fail" и отсутствие комментариев. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Цитата (min@y™): Могу выложить как доказательство. Как вариант - можно создать тему с программерским юмором и туда постить наиболее интересные куски кода или ссылки на них Да ещё и медальку ввести за самый «лучший» код. | ||||||
|
Зацени! #include<stdio.h> int j1ptrakt; FILE *j1dft; j1ppk(p,t) int p; int t; { int l,l1; int e; extern int j5kcur,j5no; extern int J1T9,j1t21,j1t26,j1t62,j1t15,j1exp; extern int *j1svzu; extern char far *j1t3; extern int *jv1ng; int a,m11,m12,m15,ng,mp,mv,mt; char m[12]; char *d; mp=1000; mv=1000; mt=1000; if(j1exp==0) for(e=0;(m[e]=(*(j1t3+e)))!=0;e++); l=j1t21; l1=j1t26; a=((j1t26&036)>>1)&p; if((p!=0)&&(J1T9==0)) { ng=(*jv1ng); if(((a&1)!=0)&&(ng==1)) d="*** ОСТАНОВ ПО НЕ ГОДЕН ***"; else { if(((a&2)!=0)&&(j1t62==1)) d="****** ОСТАНОВ ПО РЕГ ******"; else { if((a&4)!=0) d="***** КОНЕЦ ПАРАМЕТРА *****"; else { if((a&010)!=0) d="******* ВЫБОРОЧНЫЙ *******"; else { j1t26=l1; return(0); } } } } } else d="********* ОСТАНОВ *********"; cik: j5oe2(10); j5nba(10,0,13,d); if(j1exp==0) { j5nba(10,0,43,m); j5nba(10,0,58,"шаг"); j3dsf(l,j1svzu,4); j5nba(10,0,62,j1svzu); } for(e=2;((e==2)||(e==301)||(e==102)||(e==103));) { j5oe2(4); jj247(0); j5oe2(5); j5line(0100005); j5nba(5,1,2," Пуск Протокол "); m12=27; m11=2; if(t==0) m15=0; else { m11++; mp=m11; j5nba(5,1,27," Повтор "); m12=38; m15=3; } if((a&010)!=0) { j5nba(5,1,m12," Выборочный"); m11++; mv=m11; m12=m12+12; } if(j1ptrakt!=0) { j5nba(5,1,m12," Тракт"); m11++; mt=m11; } j5kcur=0x70; j5no=5; e=0; while((e==0)||(e==101)||((e>103)&&(e<106))||((e>110)&&(e!=301))) e=j5pd(m11,13,2,1,1); j5oe2(4); if((e==102)||(e==103)) { if((j1t15&0100)!=0) jj259(e); } else if(e==301) { j5line(5); j5mem(4); j1ur(); j5ret(4); l1=j1t26; } else if(e>=106) jj245(e); else if(e==1) { d="ПУСК"; t=0; goto t20; } else if(e==2) j1vpr(0); else if((e==mt)&&j1ptrakt) j1vpr(2); else if(e==mp) { d="ПОВТОР"; t20: j5oe2(10,0,2,76); j5oe2(5); j5nba(10,0,20,d); J1T9=0; j1t26=l1; return(t); } else if(e==mv) { j1t26=l1; J1T9=0; j1ve(0); } } goto cik; } Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Ну сказал же отдельную тему завести Весело, угу. | ||||||
|
Цитата (Ерёмин А.А.): Ну сказал же отдельную тему завести Я тебе давно говорил завести раздел "как не надо задавать вопросы", ты отказался. Почему - не знаю. Может быть, тебе было просто влом. Теперь ты советуешь завести тему на форуме, который, 1хрен, никто не читает. Оно надо? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Причём тут это вообще? Совсем от темы ушли. Как и на любом форуме, я не приветствую оффтоп. Цитата (min@y™): Я тебе давно говорил завести раздел "как не надо задавать вопросы" Потому что не вижу в этом смысла. Слишком много сомнительных разделов развелось. Вон корзина есть со всяким мусором. Кому надо - можно рыться там. Цитата (min@y™): Теперь ты советуешь завести тему на форуме, который, 1хрен, никто не читает. Оно надо? Ну тогда и нечего было здесь писать. К опросам не относится всё равно. Может вообще вместо форума сделать одну общую ленту сообщений и все будут счастливы? | ||||||
Перейти в раздел:
© 2004 - 2024, Delphi.int.ru |
Версия форума: 1.10 (19.01.2010) |
Выполнено за 0.02 сек. |