- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
begin
if n=15 then
begin
a:=7200*56*99*12*13*14*15;
end
else
begin
if n=16 then
begin
a:=7200*56*99*12*13*14*15*16;
end
else
begin
if n=17 then
begin
a:=7200*56*99*12*13*14*15*16*17;
end
else
begin
if n=18 then
begin
a:=7200*56*99*12*13*14*15*16*17*18;
end
else
begin
if n=19 then
begin
a:=7200*56*99*12*13*14*15*16*17*18*19;
end
else
begin
if n=20 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19;
end
else
begin
if n=21 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21;
end
else
begin
if n=22 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22;
end
else
begin
if n=23 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23;
end
else
begin
if n=24 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24;
end
else
begin
if n=25 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25;
end
else
begin
if n=26 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26;
end
else
begin
if n=27 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27;
end
else
begin
if n=28 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28;
end
else
begin
if n=29 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29;
end
else
begin
if n=30 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29*30;
end
else
begin
if n=31 then
begin
Follow us!
Проблема в длине кода и Паскаль выдает ошибку Переполнение а арифметической операции
P.S. Первый раз вижу такое ужасное вычисление факториала. Автор не мог до конца досчитать числа на калькуляторе и вбить их в виде строк?
Если правильно помню, синтаксис такой:
P.S. Вот если честно - лучше бы и в си его не было. В 99% случаев нужен switch в котором ничего никуда не проваливается, как в паскале. А в том 1% случаев, где реально нужна сквозная передача управления (дафф девайсы и прочие извращения) - можно было бы вставить специальное слово типа nobreak или fall или в конце концов вставить тупое goto... Но теперь уже поздно что-то менять, и все сиподобные языки навсегда останутся с этой странной, исторически сложившейся, конструкцией...
А eth0, видимо, хотел написать как-то так:
покорми собак и ничего не трогай!
Борманд стоял чуть поодаль от полки с надписью "Устройство Даффа" и яростно вертел в руках какую-то странную конструкцию. В его глазах блестели искорки, которые часто можно увидеть у людей, занимающихся каким-то интересным для них делом. Почесав взъерошенные волосы на лбу, Борманд спросил сам себя: "А если мы применим здесь continue? Примерно вот так.", и продолжил вертеть в руках странное устройство.
Тихо скрипнула дверь, и в комнату вошел Дефекейт Плюсплюс. Бросив краткий взгляд на пустующую полку, он укоризненно покачал головой и произнес: "Ты же так duff's device сломаешь! Покорми собак и ничего не трогай!".
Борманд поставил устройство на полку и вышел из комнаты вслед за Дефекейтом. С улицы доносился лай собак, охраняющих музей говнокода...
P.S.:P.P.S. Забавно, писал название прагмы наугад, а гугл сказал, что такая уже есть в XL C/C++ и Keil, и работает именно так, как я себе и представлял.
Ты все поломал.
Так начиналась моя первая пара по С++ в далеком 2007...
У вашего преподавателя мания величия... ...С++.
Неспроста в с++ есть два креста, ой не зря...
Pascal (337)
Могу предположить, что на Pascal пишется много говнокода, но это в основном лабы, и такой код редко попадается на глаза. Но с другой стороны лабы пишутся и на C++, поэтому я все же склоняюсь к мысли, что на C++ говнокода больше в силу его популярности.