- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
b:=['F','G','K','L','N'];
for i:=1 to 10 do
for j:=1 to 10 do
begin
repeat
M[i,j] := chr(random(9)+70);
until M[i,j] in b;
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+153
b:=['F','G','K','L','N'];
for i:=1 to 10 do
for j:=1 to 10 do
begin
repeat
M[i,j] := chr(random(9)+70);
until M[i,j] in b;
end;
Надо заполнить массив случайными буквами из набора. Бросаем монетку, пока не выпадет решка...
guest 24.03.2009 17:44 # +1
guest 07.04.2009 04:04 # +1
По-моему, наоборот: мозг пришлось излишне напрячь.
guest 05.05.2009 19:07 # 0
а по-моему, автор сохранил свое время.
guest 12.05.2009 11:42 # 0
Эх... нипомню уже что там есть в дельфи, но неужели нельзя написать так:
M[i,j] := b[random(b.length())];