Говнокод. Pascal .:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS

Услуги

• Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
• Заказать продвижение сайта
• Программа для рисования блок-схем
• Инженерный калькулятор онлайн
• Таблица сложения онлайн

Популярные статьи

OpenGL и Delphi...		65535
Форум на вашем ...		65535
21 ошибка прогр...		65535
HACK F.A.Q		65535
Бип из системно...		65535
Гостевая книга ...		65535
Invision Power ...		65535
Пример работы с...		65535
Содержание сайт...		65535
ТЕХНОЛОГИИ ДОСТ...		65535
Организация зап...		65535
Вызов хранимых ...		65535
Создание отчето...		65535
Имитационное мо...		65535
Программируемая...		65535
Эмулятор микроп...		65535
Подключение Mic...		65535
Создание потоко...		65535
Приложение «Про...		65535
Оператор выбора...		65535

Сейчас на сайте

Гостей: 9
На сайте нет зарегистрированных пользователей

Пользователей: 13,372

новичок: vausoz

Новости

Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование процесса обработки заданий пакетным режимом работы с квант...

Моделирование работы участка термической обработки шестерен на GPSS + По...

Моделирование работы перекрёстка по регулированию движения на GPSS + Поя...

Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41 Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41

Просмотр темы

.:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS | Разное | Юмор

Автор Говнокод. Pascal

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 30-12-2008 16:32



function IntToMonth(NumberMonth: Integer): string;

begin

  сase NumberMonth of

    1: Result := 'Январь';

    2: Result := 'Февраль';

    3: Result := 'Март';

    4: Result := 'Апрель';

    5: Result := 'Май';

    6: Result := 'Июнь';

    7: Result := 'Июль';

    8: Result := 'Август';

    9: Result := 'Сентябрь';

    10: Result := 'Октябрь';

    11: Result := 'Ноябрь';

    12: Result := 'Декабрь';

  else

    Result := 'Август';

  end;

end;

с говнокод.ру

Автор RE: Говнокод. Pascal

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 07-02-2009 18:33

еще один забавный рабочий код:

program Project1;



{$APPTYPE CONSOLE}



uses

  SysUtils;

type

  Деньга = record

    Достоинство:integer;

    Количество:integer;

  end;



var

  Лопатник: array of Деньга;



procedure ПоложитьНаЛопату(Купюра:Integer);

var

  I: Integer;

  УжеПоложили:Boolean;

begin

  if Купюра=0 then

    Exit;

  УжеПоложили:=False;

  for I := low(Лопатник) to High(Лопатник) do

    if Лопатник[i].Достоинство=Купюра then

      begin

        inc(Лопатник[i].Количество);

        УжеПоложили:=True;

      end;

  if not(УжеПоложили) then

    begin

      SetLength(Лопатник,Length(Лопатник)+1);

      Лопатник[High(Лопатник)].Достоинство:=Купюра;

      Лопатник[High(Лопатник)].Количество:=1;

    end;

end;



var

  Купюра:integer;

  i:integer;

  ВсегоНаЛопате:integer;

begin

  repeat

    Readln(Купюра);

    ПоложитьНаЛопату(Купюра);

  until Купюра=0;

  ВсегоНаЛопате:=0;

  for I := low(Лопатник) to High(Лопатник) do

    begin

      WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));

      inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);

    end;

  WriteLn(Format('All money - %d',[ВсегоНаЛопате]));

  ReadLn;

end.

Автор RE: Говнокод. Pascal

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 07-02-2009 19:42

<?php

 

function drop_dir ( $dir_id )

{

	$query	=	mysql_query ( "SELECT `id` FROM `dirs` WHERE `subid`=" . $dir_id );

	while ( $row	=	mysql_fetch_array ( $query ) )

	{

		$n_query	=	mysql_query ( "SELECT `id` FROM `dirs` WHERE `subid`=" . $row['id'] );

		while ( $n_row	=	mysql_fetch_array ( $query ) )

		{

			$n2_query	=	mysql_query ( "SELECT `id` FROM `dirs` WHERE `subid`=" . $n_row['id'] );

			while ( $n2_row	=	mysql_fetch_array ( $n2_query ) )

			{

				mysql_query ( "DELETE FROM `dirs` WHERE `id`=" . $n2_row['id'] );

			} // Неужто блядь кто то дальше вложит

			mysql_query ( "DELETE FROM `dirs` WHERE `id`=" . $n_row['id'] );

		}

		mysql_query ( "DELETE FROM `dirs` WHERE `id`=" . $row['id'] );

	}

	mysql_query ( "DELETE FROM `dirs` WHERE `id`=" . $dir );

	RETURN TRUE;

}

 

?>

Изменил(а) Kest, 07-02-2009 19:42

Автор RE: Говнокод. Pascal

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 27-07-2009 11:03

попробуй разберись

if o is TSpellChecker then

      begin

        TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);

        TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);

      end else

        if o is Tform then

        begin

          TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);

          TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);

        end else

          if o is TComboBox then

          begin

    //TComboBox(o).Caption:=ml(TMenuItem(o).Caption,form.Name);

            TComboBox(o).Hint := ml(TComboBox(o).Hint, form.Name);

          end else

            if o is TMenuItem then

            begin

              TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);

              TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);

            end else

              if (o is TTBXButton) then

              begin

                TTBXButton(o).Caption := ml(TTBXButton(o).Caption, form.Name);

                TTBXButton(o).Hint := ml(TTBXButton(o).Hint, form.Name);

              end else

                if (o is TTBXLink) then

                begin

                  TTBXLink(o).Caption := ml(TTBXLink(o).Caption, form.Name);

                  TTBXLink(o).Hint := ml(TTBXLink(o).Hint, form.Name);

                end else

                  if (o is TRzGroup) then

                  begin

                    TRzGroupBox(o).Caption := ml(TRzGroup(o).Caption, form.Name);

                    TRzGroupBox(o).Hint := ml(TRzGroup(o).Hint, form.Name);

                  end else

                    if (o is TRzPanel) then

                    begin

                      TRzGroupBox(o).Caption := ml(TRzPanel(o).Caption, form.Name);

                      TRzGroupBox(o).Hint := ml(TRzPanel(o).Hint, form.Name);

                    end else

                      if (o is TRzButton) then

                      begin

                        TRzButton(o).Caption := ml(TRzButton(o).Caption, form.Name);

                        TRzButton(o).Hint := ml(TRzButton(o).Hint, form.Name);

                      end else

                        if (o is TRzTabControl) then

                        begin

                          TRzTabControl(o).Hint := ml(TRzTabControl(o).Hint, form.Name);

                          for k := 0 to TRzTabControl(o).Tabs.Count - 1 do

                          begin

                            TRzTabControl(o).Tabs.Items[k].Caption := ml(TRzTabControl(o).Tabs.Items[k].Caption, form.Name);

                            TRzTabControl(o).Tabs.Items[k].Hint := ml(TRzTabControl(o).Tabs.Items[k].Hint, form.Name);

                          end;

                        end else

                          if (o is TRzTabSheet) then

                          begin

                            TRzTabSheet(o).Caption := ml(TRzTabSheet(o).Caption, form.Name);

                          end else

                            if (o is TRzGroupBox) then

                            begin

                              TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);

                              TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);

                            end else

                              if (o is TRzGroupItems) then

                              begin

                                TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);

                                TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);

                              end else

                                if (o is TToolButton) then

                                begin

                                  TToolButton(o).Caption := ml(TToolButton(o).Caption, form.Name);

                                  TToolButton(o).Hint := ml(TToolButton(o).Hint, form.Name);

                                end else

                                  if o is TButton then

                                  begin

                                    TButton(o).Caption := ml(TButton(o).Caption, form.Name);

                                    TButton(o).Hint := ml(TButton(o).Hint, form.Name);

                                  end else

                                    if o is TBitBtn then

                                    begin

                                      TBitBtn(o).Caption := ml(TBitBtn(o).Caption, form.Name);

                                      TBitBtn(o).Hint := ml(TBitBtn(o).Hint, form.Name);

                                    end else

                                      if o is TSpeedButton then

                                      begin

                                        TSpeedButton(o).Caption := ml(TSpeedButton(o).Caption, form.Name);

                                        TSpeedButton(o).Hint := ml(TSpeedButton(o).Hint, form.Name);

                                      end else

 

                                        if o is TRzToolButton then

                                        begin

                                          TRzToolButton(o).Caption := ml(TRzToolButton(o).Caption, form.Name);

                                          TRzToolButton(o).Hint := ml(TRzToolButton(o).Hint, form.Name);

                                        end else

 

                                          if o is TRadioButton then

                                          begin

                                            TRadioButton(o).Caption := ml(TRadioButton(o).Caption, form.Name);

                                            TRadioButton(o).Hint := ml(TRadioButton(o).Hint, form.Name);

                                          end else

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Говнокод. Pascal

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 27-07-2009 11:05

{nemnogo pritiormozim nas processor}

for rre:=1 to 3 do begin

  for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

      for rt:=1 to 10000 do rr:=random(rt)*rt;

    for rt:=1 to 10000 do rr:=random(rt)*rt;

    end;

    {vse teper prodolzaem pisat progu}

Я знаю, что ничего не знаю, но многие не знают и этого

Перейти на форум:

Гость

Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.

Поделиться ссылкой

• Фолловь меня в Твиттере! • Смотрите канал о путешествиях • Как приготовить мидии в тайланде?

Загрузки

Новые загрузки

Случайные загрузки

VFW

Топ загрузок

Приложение Клие...	100774
Delphi 7 Enterp...	97843
Converter AMR<-...	20268
GPSS World Stud...	17019
Borland C++Buil...	14195
Borland Delphi ...	10302
Turbo Pascal fo...	7376
Калькулятор [Ис...	5987
Visual Studio 2...	5207
Microsoft SQL S...	3661