Программировать на русском...

[megachuhancer]

Поэтому и смотрится убого, потому что пишите хоть и русскими буквами, а все равно по английски .

Только вот, когда мы программируем "по-английски", мы оперируем теми названиями, которые нам подсунули разработчики, а когда программируем "по-русски"... Это же какая-никакая общая культура нужна, во как. А то изгадим не дай бог Великий и Могучий

[Levsha100]

http://www.niisi.ru/kumir/
Я пробовал программить на русском... чуть не сошел сума

[JTG]

Кстати, "русский ассемблер" я тут уже выкладывал. На си вроде такое дефайнами сделать тоже можно?
http://programmersforum.ru/attachmen...9&d=1216918404

ЗЫ: http://rus.24bb.ru/ Utkin, это ты там?

ЗЗЫ: Профт 5 от компании ПОБЕДИТ (одно только название делает моё лицо печальным )

    ПоПорядку = Нет.
    Пока Не ПоПорядку.
        ПоПорядку = Да.
        А = 1.
        Пока А < ВсегоЭлементов.
            Если Числа[А+1] < Числа[А].
                Временное = Числа[А].
                Числа[А] = Числа[А+1].
                Числа[А+1] = Временное.
                ПоПорядку = Нет.
            КонецЕсли.
            А = А + 1.
        КонецПока.
    КонецПока.

ГЛАГОЛ

(* Программа игры в русские шашки на языке Глагол (www.glagol.nad.ru).        *)
(******************************************************************************)
(**)                          ОТДЕЛ Шашки64+;                               (**)
(******************************************************************************)
(* НАЗНАЧЕНИЕ: создание экранных надписей и кнопочек                          *)
(******************************************************************************)

ИСПОЛЬЗУЕТ
  Игра     ИЗ ".\Шашки\", (* алгоритм игры *)
  Доска    ИЗ ".\Шашки\", (* рисунок доски *)
  Ввод     ИЗ "...\Отделы\Обмен\",
  ОС       ИЗ "...\Отделы\Обмен\",
  Окно     ИЗ "...\Отделы\Обмен\",
  Поле     ИЗ "...\Отделы\Поле\",
  Надел    ИЗ "...\Отделы\Поле\",
  Подложка ИЗ "...\Отделы\Поле\",
  Черта    ИЗ "...\Отделы\Поле\",
  Записка  ИЗ "...\Отделы\Поле\",
  Кнопка   ИЗ "...\Отделы\Поле\";

ПОСТ
  (* действия *)
  дЗаново     =1;
  дВыход      =2;
  дПредУровень=3;
  дСледУровень=4;

ПЕР
  времяНижних,времяВерхних,времяОбновления:ЦЕЛ; (* для секундомера *)
  зЖдите,зВремяН,зВремяВ,зУровень:Записка.Доступ; (* надписи *)

(******************************************************************************)
ЗАДАЧА ОбновитьСекундомер(номерЧасов:ЦЕЛ);
(* обновить секундомер *)
ПЕР
  прошлоВремени:ЦЕЛ;
  сек:ЦЕЛ;

  ЗАДАЧА ВыводХода(ход-:Игра.Ход);
  (* вывод на табло хода машины *)
  ПЕР
    x0,y0,x1,y1:ЦЕЛ;

    ЗАДАЧА NвXY(n,x+,y+:ЦЕЛ);
    УКАЗ
      ЕСЛИ НЕ Доска.нижниеБелые ТО
        n:=100-n
      КОН;
      x:=Игра.NвX[n];
      y:=Игра.NвY[n]
    КОН NвXY;

  УКАЗ
    ЕСЛИ ход.откудаN = ход.кудаN ТО (* пустой ход *)
      Записка.Изменить(зЖдите,"")
    ИНАЧЕ
      NвXY(ход.откудаN,x0,y0);
      NвXY(ход.кудаN,x1,y1);
      ЕСЛИ ход.битых > 0 ТО
        Записка.ИзЧЦел(зЖдите,"%c%d:%c%d",x0+ВЦЕЛ("a")-1,y0,x1+ВЦЕЛ("a")-1,y1)
      ИНАЧЕ
        Записка.ИзЧЦел(зЖдите,"%c%d-%c%d",x0+ВЦЕЛ("a")-1,y0,x1+ВЦЕЛ("a")-1,y1)
      КОН;
    КОН
  КОН ВыводХода;

УКАЗ
  прошлоВремени:=ОС.Время()-времяОбновления;
  времяОбновления:=ОС.Время();
  ЕСЛИ Игра.конец ТО
    Записка.Изменить(зЖдите,"--КОНЕЦ--")
  ИНАЧЕ
    ЕСЛИ Доска.думаютНижние ТО
      УВЕЛИЧИТЬ(времяНижних,прошлоВремени);
      ВыводХода(Игра.ходМашины)
    ИНАЧЕ
      УВЕЛИЧИТЬ(времяВерхних,прошлоВремени);
      Записка.Изменить(зЖдите,"Подождите")
    КОН
  КОН;
  сек:=времяВерхних ДЕЛИТЬ 1000;
  Записка.ИзЧЦел(зВремяВ,"%.2d:%.2d",сек ДЕЛИТЬ 60,сек ОСТАТОК 60,0,0);
  сек:=времяНижних ДЕЛИТЬ 1000;
  Записка.ИзЧЦел(зВремяН,"%.2d:%.2d",сек ДЕЛИТЬ 60,сек ОСТАТОК 60,0,0);
КОН ОбновитьСекундомер;

(******************************************************************************)
ЗАДАЧА ПредУровень;
УКАЗ
  ЕСЛИ Игра.уровень > 2 ТО 
    УМЕНЬШИТЬ(Игра.уровень);
    Записка.ИзЧЦел(зУровень,"%d",Игра.уровень-1,0,0,0)
  КОН
КОН ПредУровень;

(******************************************************************************)
ЗАДАЧА СледУровень;
УКАЗ
  ЕСЛИ Игра.уровень < 10 ТО 
    УВЕЛИЧИТЬ(Игра.уровень); 
    Записка.ИзЧЦел(зУровень,"%d",Игра.уровень-1,0,0,0)
  КОН
КОН СледУровень;

.............................

(******************************************************************************)
ЗАДАЧА Поехали;
ПЕР
  поле:Поле.Доступ;
  часы:ЦЕЛ;
УКАЗ
  Окно.Графическое("Шашки","Lucida Console",30,ОбновитьСекундомер);
(*
  Окно.Текстовое(ОбновитьСекундомер);
*)
  поле:=СоздатьПоле();
  Поле.ОкноНаВсёПоле(поле);
  Поле.Рисовать(поле);
  НачатьЗаново(поле);
  часы:=Окно.СоздатьЧасы(1,1000); (* обновляем часы через 1000 мс *)
  Окно.Показать;
  (* проверяем и обрабатываем ввод от человека *)
  ПОКА поле.состояние = Поле.сРабота ВЫП
    Поле.Проверить(поле)
  КОН;
  Окно.УдалитьЧасы(часы)
КОН Поехали;

(******************************************************************************)
УКАЗ
  Поехали
КОН Шашки64.

Поехали! (...и махнул рукой)
make me unsee it

[EducatedFool]

Я в последнее время на форуме всё чаще использую русские имена для констант и функций (VBA это позволяет)

Sub main()
    Const НомерСтолбцаСКоличеством = 4, НомерСтолбцаСоСтоимостью = 6
    For i = sh.Cells(Rows.Count, НомерСтолбцаСКоличеством).End(xlUp).Row To 2 Step -1
        If Val(Cells(i, НомерСтолбцаСКоличеством)) = 0 Then Rows(i).Delete
    Next
End Sub

Sub УдалитьВыборки()
    ' код
End Sub

Это позволяет не писать лишние комментарии к коду, да и топикстартер лишних вопросов задавать не будет.

Разумеется, пишу я такой код только "для других" (поскольку моя цель - не сделать им готовую программу, а показать пути решения проблемы).
А в своих программах использую только англоязычные имена переменных и констант.

PS: С переключением раскладки отлично справляется PuntoSwither - мне вообще не приходится переключать раскладку.
К тому же, PuntoSwither пишет за меня половину кода - пользуюсь его функцией автозамены, когда вводишь заранее определённые несколько символов, а он их заменяет на несколько строк кода.

[Levsha100]

Боже! Только что представил гопника-прграммиста
Это будет что-то
Как написал Stilet:

СЕЛЕКТАНУТЬ Пупкиных ИЗ ОБЩАГИ ЕСЛИ Задолжали=капитально

[megachuhancer]

Позволю себе процитировать ещё раз

Поэтому и смотрится убого, потому что пишите хоть и русскими буквами, а все равно по английски .

Дело как раз в том, что английский язык для нас - не родной и мы меньше замечаем "неровности" в английском тексте.

Ещё позволю процитировать себе себя

А то изгадим не дай бог Великий и Могучий

Если что, я в бога не верю, просто к слову пришлось. Ещё одно свойство русского языка.

[JTG]

Дело как раз в том, что английский язык для нас - не родной и мы меньше замечаем "неровности" в английском тексте.

Английский язык - одна сплошная неровность, для них корявые конструкции звучат вполне естественно:
newspaper - НовостиБумага
football - НогаМяч
worksheet - РаботаЛист
shutdown - ЗакрытьНиз
outside - СнаружиСторона

[Utkin]

Сообщение от megachuhancer

Только вот, когда мы программируем "по-английски", мы оперируем теми названиями, которые нам подсунули разработчики, а когда программируем "по-русски"... Это же какая-никакая общая культура нужна, во как. А то изгадим не дай бог Великий и Могучий

Вот именно, где культура? Многие термины не имеют адекватного перевода на русский и уважаемые книги в скобках пишут слово в оригинале. Поэтому это все это не от культуры, ИМХО, а как раз из-за ее отсутствия. Ну а собственно вопрос о культуре программирования это уже отдельная большая тема .

Нужно продвинутый парсер, который бы смог разобрать "При нажатии на кнопку 'Отправить' выполнить процедуру 'Сформировать(Ответ)', при положительном результате записать в поток 'Вывод' содержимое переменной 'Ответ' и вызвать метод 'ТОтправлялка.Отправить('Вывод')'.
Потом можно вообще в стихах программы писать

Ничего подобного, я как раз в данный момент занимаюсь чем-то подобным. Да парсер нужен свой, но, ИМХО, не сложней чем для Делфи. Ну а в стихах, так в стихах, чем плохо? Такая программа будет запоминающейся .

http://www.niisi.ru/kumir/
Я пробовал программить на русском... чуть не сошел сума

Этот случай как и с 1С, дело в механизмах, а не в русском языке. Среди англоязычных также имеется масса не удачных, почему Вы не вспоминаете о них?

ЗЫ: http://rus.24bb.ru/ Utkin, это ты там?

Теперь уже редко.

Дело как раз в том, что английский язык для нас - не родной и мы меньше замечаем "неровности" в английском тексте.

А если немного подумать? Неровностей можно избежать, если не тупо переводить английские if, for и пр. Пример вроде как был уже.

[DeKot]

JTG ну это за уши притянуто.Вы приводите перевод частей конструкции слова, а на самом деле это не конструкции, а обычные слова с вполне определенным смыслом. Football - игра с мячом ногами, newspaper - газета и т. д.
Так и русский можно исковеркать, разбив слова на части - ЗАписка, РАСписка, ОТписка, ВЫписка. Или - САМОлет и САМОгон.
Почему же мы говорим парсер, кейлогер вместо того, что бы сказать - определитель нажатой клавиши с функцией сохранения (в файл)?

[Stilet]

Среди англоязычных также имеется масса не удачных, почему Вы не вспоминаете о них?

Дружище, о них постоянно вспоминает то одна то другая армия холливарящих флудеровфанов какого-то одного языка.

Неровностей можно избежать, если не тупо переводить английские if, for и пр

Тогда анализатор кода должен быть очень могучим. Чтоб довести синтаксис до делового-разговорного стиля нужно очень постараться учесть кучу ньюансов языка (русского в данном случае)

ГЛАГОЛ

"Стреляй, малышь... это же жюлики!..."

Ну а в стихах, так в стихах, чем плохо? Такая программа будет запоминающейся .

ЕСЛИ Деньги.У_Нас.Есть ЗНАЧИТ Купим.Мы.Поесть
ЕСЛИ Деньги равно Ноль ЗНАЧИТ Вешается(Моль)