- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
For i:=1 to 70 do
Begin
a[i]:=random(9);
if a[i] div 2 = 0 then
a[i]:=a[i]
else begin
a[i]:=0;
i:=i-1;
end;
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+139
For i:=1 to 70 do
Begin
a[i]:=random(9);
if a[i] div 2 = 0 then
a[i]:=a[i]
else begin
a[i]:=0;
i:=i-1;
end;
end;
Одноклассница поразила.
Задача - заполнить массив из 70 элементов чётными числами [1..8]
Над блонидинками конечно неприлично шутить, но...
Чем был хуже простой a[i]:=random(5)*2;
Govnocoder#0xFF 14.04.2011 14:14 # +9
Школьник детектед.
А код в раздел Delphi надо бы...
guest 14.04.2011 14:42 # +8
Так что топикстартер неправ, нужно
a[i]=(random(4)+1)*2;
burdakovd 14.04.2011 14:56 # +6
Lure Of Chaos 14.04.2011 18:22 # 0
burdakovd 14.04.2011 18:24 # 0
Я о том, что зачем в качестве начала отрезка указывать 1, если по факту минимально возможным четным числом тут будет 2.
Lure Of Chaos 14.04.2011 18:29 # 0
TarasB 14.04.2011 18:04 # +1
Внутри цикла? Такое пропускает только древний компилятор ТП.
koodeer 14.04.2011 18:31 # +1
guest 14.04.2011 18:34 # +1
bugmenot 14.04.2011 19:29 # +6
Falcon 15.04.2011 09:00 # 0
0 - Чётное. Остаток от деления - 0
Школьник. А вы не были школьником, уважаемый Govnocoder#0xFF?
bugmenot 15.04.2011 10:38 # 0
eth0 15.04.2011 11:03 # −1
RaZeR 15.04.2011 16:26 # 0
Школьники ведь тоже разные бывают, как и кодеры, собственно.
Vasiliy 15.04.2011 16:41 # +3
Lure Of Chaos 15.04.2011 17:16 # 0
Vasiliy 16.04.2011 19:09 # +1
TheHamstertamer 04.05.2011 19:47 # 0
Falcon 21.04.2023 18:13 # 0
Jakkk 21.04.2023 18:15 # 0
fuckyounoob 21.04.2011 15:47 # −1
KATAJIU3ATOP 01.05.2011 22:17 # 0
Falcon 21.04.2023 18:13 # 0