1. Pascal / Говнокод #757

    +153

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 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;

    Надо заполнить массив случайными буквами из набора. Бросаем монетку, пока не выпадет решка...

    Запостил: guest, 22 Марта 2009

    Комментарии (4) RSS

    • ava guest 24.03.2009 17:44 # +1

      А мне понравилось и ниибёт. Афтар молодец, сэкономил время своего мозга.
      Ответить

    • ava guest 07.04.2009 04:04 # +1

      Steex:
      По-моему, наоборот: мозг пришлось излишне напрячь.
      Ответить

    • ava guest 05.05.2009 19:07 # 0

      NARKOZ:
      а по-моему, автор сохранил свое время.
      Ответить

    • ava guest 12.05.2009 11:42 # 0

      HZ kto:
      Эх... нипомню уже что там есть в дельфи, но неужели нельзя написать так:
      M[i,j] := b[random(b.length())];
      Ответить

    Добавить комментарий