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

    −2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    Program Aliski; 
    uses Graphabc; 
    begin 
    SetWindowWidth(800); 
    SetWindowHeight(600); 
    SetPenWidth(3); 
    SetFontSize(18); 
    SetFontColor(clGreen); 
    rectangle(85,80,500,140); 
    TextOut(100,100,'Алексей у тебя реально 10см?'); 
    Circle(350,500, 40); 
    Circle(430,500, 40); 
    FloodFill(350,500,clSkyBlue); 
    FloodFill(430,500,clPurple); 
    Line(350,460,350,250); 
    Line(430,460,430,250); 
    Line(340,250,440,250); 
    Line(390,220,390,200); 
    Arc(390,250,50,0,180); 
    end.

    Ученик решил поприкалываться над товарищем на уроке

    Запостил: vodandr, 28 Января 2019

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

    • Вы, собственно, кто?
      Ответить
    • Надо перевести на jsfiddle, а то прикол неясен.
      Ответить
      • Перевёл свою сперму тебе за щеку, проверь.
        Ответить
        • стертор, я думал ты сгнил
          Ответить
          • Тебе очень повезло, что ты не индюк. А то бы это... того... ну как Петьку из соседнего курятника.
            Ответить
            • стертора-то?
              Ответить
              • Тебя, блять.
                Ответить
                • Примитивный червь-пидор
                  Ответить
                  • Ты примитивен.
                    Странно, что страйк тебя не забанивает - очевидно, в твоём пребывании здесь есть какой-то, хоть и ничтожный, смысл. Я бы тебя забанил. Не за спам, не за тупость, а именно за твою примитивность.
                    Ответить
      • Судя по двум кругам в (350, 500) и (430, 500), дуге над ними и двум вертикальным линиям из центров кругов — там нарисован «хуй».
        Ответить
      • У них же раньше была такая онлайн поебень:
        http://wde.pascalabc.net/
        и графику поддерживала, но они походу её выпилили.
        Ответить
    • Переведи на язык ГРИС "Стрелочка".
      Ответить
      • Переведи на "PHP".
        Ответить
        • <?php
          $image = imagecreate(800, 600);
          $clGreen = imagecolorallocate($image, 0x00, 0x99, 0x00);
          $clSkyBlue = imagecolorallocate($image, 0x00, 0x99, 0x99);
          $clPurple = imagecolorallocate($image, 0x99, 0x00, 0x99);
          imagesetthickness($image, 3);
          imagerectangle($image, 85,80,500,140, $clGreen); 
          imagettftext($image, 18, 0, 100, 100, $clGreen, 'ARIAL.TTF', 'Алексей у тебя реально 10см?');
          imagefilledellipse($image, 350, 500, 40, 40,  $clSkyBlue);
          imagefilledellipse($image, 430, 500, 40, 40,  $clPurple);
          imageline($image, 350,460,350,250, $clGreen); 
          imageline($image, 430,460,430,250, $clGreen); 
          imageline($image, 340,250,440,250, $clGreen); 
          imageline($image, 390,220,390,200, $clGreen);
          imagearc($image, 390,250, 50, 50, 0, 180, $clGreen);
          imagegif($image, 'output.gif');
          imagedestroy($image);
          Ответить
          • Ведь не поленился... Зачтено.
            Ответить
            • ой, да иди нахуй уже, говно
              Ответить
            • Я даже не запускал. Наглючил с закраской. Нужно строку
              imagerectangle($image, 85,80,500,140, $clGreen);

              заменить на
              $clBlack = imagecolorallocate($image, 0x00, 0x00, 0x00);
              imagerectangle($image, 85,80,500,140, $clBlack);

              Тогда даже что-то будет видно.
              Ответить
              • на псакаль кохоже
                только тмам длорар был перед числом и значил... кажеца.. осьмиричность, да?
                Ответить
                • Нет, доллар перед числом в «Паскале» означал шашнадцатеричность.
                  Ответить
                  • P.S. Пример:
                    http://govnokod.ru/12304

                    Так и возник термин «постоянная Тараса».
                    Ответить
                  • clBlack := imagecolorallocate(image, $0, $0, $0);
                    Ответить
                    • А слабо́ портировать всю библиотеку «GD»?
                      Ответить
                      • нет, могу только GDI и под Delphi
                        Но не хочу: её стертор руками трогал, и теперь оно всё запарфинено
                        Ответить
                        • А ещо стертоор трогал руками уиндоус —– это повод для перехода на линухс.
                          Ответить
                          • Давайте перейдём на «Кокококолибри»!
                            Ответить
                            • Я за Solaris. Кто трогал руками IPS, ZFS и SMF, тот на другие ОС смотрит как хаскеллист на вижал бейсик
                              Ответить
                              • >> IPS
                                Это монитор такой?

                                >> SMF
                                Simple Machines Forum? Standard MIDI File?
                                Ответить
                                • >Это монитор такой?
                                  Не монитор, а матрица

                                  А Solaris это машина. Точнее роман Станислава Лема.
                                  Ответить
                                  • А я думал, что это фильм Андрея Тарковского.
                                    Ответить
                                    • А произведение как называлось?
                                      Ответить
                                      • С «Солярисом» всё просто: фильм и книга называются одинаково. Но я же петух и не умею читать, поэтому смотрел фильм.
                                        Ответить
                                        • А я пеиух и не усею попадаьб по кдавишам.
                                          Ответить
                                          • Попробуй добыть где-нибудь аккордную клавиатуру:
                                            https://ru.wikipedia.org/wiki/Аккордовая_клавиатура

                                            На ней можно набирать, не перемещая лапу.
                                            Ответить
                                • если серьезно что IPS это Image Packaging System: оче крутой покетный менеджер

                                  SMF это system management framework: как systemd, только круче

                                  а zfs это zfs File System, скрезивание волум менеджера и файловой системы с возможностью бесплатных снепшотов (как бранчей в гите примерно)

                                  Все это очень круто интегрировано между собой.

                                  например, делаешь снепшот текущего рута, приманучиваешь его в папку, правишь там что-то, ставишь туда софт через IPS, он создает там нужные SMF сервисы, потом делаешь из снепшота бутэнварнмент и перегружаешься в него

                                  если понимаешь что все плохо -- перегружаешься обратно
                                  Ответить
                                  • В «Windows» ничего из этого нет. Я просто копирую файлы через «Проводник» и теку. Именно поэтому я за «Windows».
                                    Ответить
                                    • в виндуос тоже есть точки восстановления, но они хуже
                                      Ответить
    • Привет, Стертор.
      Ответить
      • Привет, guest8.
        Ответить
        • какой же ты мерзкий, фу
          Ответить
          • Обоснуй, либо поди нахуй.
            Ответить
            • ты настолько блевотный, что с тобой даже говорить неприятно
              ты пидр во всех смыслах, включая самый плохой
              Ответить
              • А ты - трусливая шавка, которая только и может, что брехать с гостя. Я знаю, что у тебя есть учётка на гк; но у тебя не хватает смелости писать с нее. Всякий раз когда возникает накаленная обстановка, ты переходишь на учётку гостя - дабы не запятнать основную. Сделай сам вывод о себе. А я уже сделал - говно.
                Ответить
                • Зойчем в конце тире?
                  Ответить
                  • это подпись
                    Ответить
                  • Таки двоеточие нужно? Охбля. Это больная тема.
                    Ответить
                    • ты не только глуп, ты еще и неграмотен
                      Ответить
                      • Окей, подытожим.... Мне сейчас 28. Я не только получил отменное образование, но и неплохой однополый опыт. Моя жопа и мой рот (по сути, разница между этими отверстиями невелика) обслуживают весь Владикавказ. А чего достиг ты?
                        Ответить

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