Слакварь,ночь, лаба(пока только на паскале разрешают). Вот так. Хочу узнать мнение людей о своём десктопе, мне самому он нравится, хотя на скрине перегружен окнами.
Мля, убивать надо за такой кодинг ещё в детстве, чтобы потом другие не стардали от таких кодёров ... Уважай людей которым придётся лицезреть твои исходники, и открой для себя хотя бы отступы
> Мля, убивать надо за такой кодинг ещё в детстве, чтобы потом другие не стардали от таких кодёров ... Уважай людей которым придётся лицезреть твои исходники, и открой для себя хотя бы отступы
Так это он наверно для преподов пишет, не для себя. У нас в лицее один чел вообще проги на пас-кале сдавал записанными в одну строчку (с ассемблерной вставкой посередине для очистки CMOS) =)))
пасквиль, естественно, в топку сразу после получения зачета...
туда же можно отправить коньки и гейм уже сейчас - первый просто не нужен, а аська устарела с появлением джаббера.
>Так это он наверно для преподов пишет, не для себя. У нас в лицее один чел вообще проги на пас-кале сдавал записанными в одну строчку
У нас такое не пройдет. Преподу нужен код красиво оформленный. Требует выработки стиля у каждого. Просто отказывается принимать, если код нечитабелен. ИМХО, это правильно.
Твёрдая тройка с минусом за лабу!:)
if p3<>nil then begin
repeat
...
until p3=nil
Зачем цикл с послеусловием, когда явно while напрашивается?
if com=...
if com=...
if com=...
Где "else"? строка несколько раз сравнивается при ЛЮБОМ значении!? Бред...
num:=0;
p1:=nil;
p2:=nil;
Откройте для себя типизированные константы в паскале!
Не, три с минусом - это слишком много!:)
> А лучше использовать нормальные редакторы, которые сами за тебя всё отформатят.
Если ему такой стиль форматирования нравится, то и пофиг.
А вот за присвоение локальной переменной глобального указателя на списочную структуру надо сильно-сильно пропесочивать.
Что за дурацкое условие цикла c if, потом repeat? Здесь один while нужен без такого дурного нагромождения.
В Паскале (BP/FP) в модуле system есть функция sqr - возведение в квадрат и использовать ее имя для поля в структуре моветон и чревато дурацкими ошибками, хотя и допустимо.
Прямая ошибка. У тебя sum в процедуре area неинициализирован. Ты забыл sum:=0; написать.
И да, форматирование у тебя это тихий ужас.
Дизайнерская ошибка. У тебя вывод на экран, похоже раскидан по куче функций в разных местах. Для небольших программ так еще можно делать, но в серьезных приложениях через некоторое время ты сам задолбаешься отлаживать или расширять такой винигретный код. Ввод данных, вывод данных это интерфейс и он не должен путаться с логической частью, с обработкой данных.
>помоему была такая функция которая обнуляла переменую любого типа
вроде если целое то 0. если строка то "" и тд и тп
num:=zero;
p1:=zero;
p2:=zero;
Зачем это, если можно (и нужно):
const
num:real=0;
p1:pointer=nil;
p2:pointer=nil;
Температуры камня и матери - нулевые. Это так задумано? типа "чтобы было"?
з.ы. цвета подобраны неплохо, но вот декор окон, имхо, можно было и менее броским сделать. И это... на неактивных окнах заголовок сливается. Фон в rxvt можно помягче сделать, чтобы из гаммы не вылетал. И полосу прокрутки там можно убрать - имхо она там не в тему.
> а аська устарела с появлением джаббера. А что делать, если треть знакомых и друзей - ламаки, которые и icq с трудом воспринемают? Живёшь ведь не только в компьютерном мире.
>Не форматировал, потому что от лабы на пару листиков ничего кроме зачёта не надо )
угу.. не форматировал, потому что код всего-то на пару тысяч строк.. так, фигня..
Блин, а я думал, и чего это препод нас так торопит с сроками (с другом пишем как раз курсовую -- программа форматирования исходного текста)... блин, кодеры, млин.. Хотя, это и не твоя вина, а вина препода, согласитесь со мной.. Я бы даже и смотреть на алгоритм не стал, когда так "написано".
>Смотришь на _это_ и понимаешь, как таки здорово учиться на физика...
а представляешь, как здорово случайно забредшим сюда филологам, историкам и философам.. и в целом, гуманитариям =) Наверное, этот сайт -- самое клевое место в интернете для них :D