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

    • А мне понравилось и ниибёт. Афтар молодец, сэкономил время своего мозга.
      Ответить
    • Steex:
      По-моему, наоборот: мозг пришлось излишне напрячь.
      Ответить
    • NARKOZ:
      а по-моему, автор сохранил свое время.
      Ответить
    • HZ kto:
      Эх... нипомню уже что там есть в дельфи, но неужели нельзя написать так:
      M[i,j] := b[random(b.length())];
      Ответить

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