- 1
- 2
- 3
- 4
if (x>13)or(x<13)or(x=13) then begin writeln('введено невероное значение X');halt end else begin
//Расчёт уравнения
..........
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+92
if (x>13)or(x<13)or(x=13) then begin writeln('введено невероное значение X');halt end else begin
//Расчёт уравнения
..........
end;
в лабе в студента увидел o_O
конечно он получил 2 за лабу
но ка пример какокода супер
кста уравнения квадратного оно таки не решало
d=b*b-4*a*b (c)
Я сейчас предподаватель. И ЭТО написал один из моих студентов.
p.s. Сильно не критиковать, это учебный пример, в жизни было б меньше кода и замутов.
дальше не читал
не хватает еще {$Errors Off} {$Compile No}
ИМХО лично мне удобно.
а вот это B- все всем понятно
C+ ну и тут читаемость 100%
eg: почему вы не хотите служить в армии, однако пишете {$C+,D+,L+,Y+} в сочетании с {$O+,W-}? :-P
да ну? все-все?
говно (даже 15 летней выдержки =) ) остается говном
можно и в справочник слазить, заодно станет очевидно, что в той длинной личинке: 1 директива влияет на приведенный код, 4 существуют только для обратной совместимости и вообще ничего не должны менять. зато красиво отсортировано по алфавиту, да.
по мне, так всякое #pragma option push -bi -a8 и трубопаскакалевское {$Z4,A8} - равноуёбищны
...
>>{$Warnings Off}
>>Var
A,B,C,D,X,X1,X2,Y:Extended;
Вы реально детей такому учите?
нет проверки на D < 0
X2 вообще нигде не выводится
в случае fabs(B) < epsilon и fabs(A) > epsilon будет выведен только один из корней (например x^2 -1)
нигде нет ни слова про кратность корней
итого:
неуд нумер адын
в жизни было б больше кода и замутов -> неуд нумер два
это - special black magic