я предпочитаю китайские языки программирования. а какие языки программирования предпочитаешь ты?
17:00:00 Get
>китайскиепруф или быдлоАлсо, мининедогет и проёбан
>китайские
пруф или быдлоАлсо, мининедогет и проёбан
Кстати, охуенно было бы. Одно ключевое слово - один иероглиф. Тексты были бы простые и лаконичные.Интересно, на что бы походили компьютеры и языки программирования, если бы центром технологической революции был бы китай, а не европа.
>>538http://en.wikipedia.org/wiki/ChinesePython
>Кстати, охуенно было бы. Одно ключевое слово - один иероглиф.Perl && use utf8 - имена переменных можно на любом языке.
>Кстати, охуенно было бы. Одно ключевое слово - один иероглиф.
Perl && use utf8 - имена переменных можно на любом языке.
gccDEFINE switch 如...PROFIT!
>>561Ох, наоборот же.
1СБИ = СоздатьОбъект("БухгалтерскиеИтоги");БИ.Рассчитать(НачДата, КонДата, "20,26");СпрПодр = СоздатьОбъект("Справочник.Подразделения");СпрСтат = СоздатьОбъект("Справочник.СтатьиЗатратНаПроизводство");СпрПодр.ВыбратьЭлементы();Пока СпрПодр.ПолучитьЭлемент() <> 0 Цикл БИ.ИспользоватьСубконто(ВидыСубконто.Подразделения, СпрПодр.ТекущийЭлемент()); СпрСтат.ВыбратьЭлементы(); Пока СпрСтат.ПолучитьЭлемент() <> 0 Цикл БИ.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство, СпрСтат.ТекущийЭлемент()); БИ.ВыполнитьЗапрос(НачДата, КонДата, "20,26", , , 1, , "СК"); Сообщить(БИ.Субконто(1).Наименование + " - " + БИ.Субконто(2).Наименование + " - " + БИ.ДО()) КонецЦикла;КонецЦикла;Результат:Иркутский филиал - Амортизация - 174002.4Сообщить(БИ.Субконто(1).Наименование + " - " + БИ.Субконто(2).Наименование + " - " + БИ.ДО())
1С
БИ = СоздатьОбъект("БухгалтерскиеИтоги");БИ.Рассчитать(НачДата, КонДата, "20,26");СпрПодр = СоздатьОбъект("Справочник.Подразделения");СпрСтат = СоздатьОбъект("Справочник.СтатьиЗатратНаПроизводство");СпрПодр.ВыбратьЭлементы();Пока СпрПодр.ПолучитьЭлемент() <> 0 Цикл БИ.ИспользоватьСубконто(ВидыСубконто.Подразделения, СпрПодр.ТекущийЭлемент()); СпрСтат.ВыбратьЭлементы(); Пока СпрСтат.ПолучитьЭлемент() <> 0 Цикл БИ.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство, СпрСтат.ТекущийЭлемент()); БИ.ВыполнитьЗапрос(НачДата, КонДата, "20,26", , , 1, , "СК"); Сообщить(БИ.Субконто(1).Наименование + " - " + БИ.Субконто(2).Наименование + " - " + БИ.ДО()) КонецЦикла;КонецЦикла;
Результат:Иркутский филиал - Амортизация - 174002.4Сообщить(БИ.Субконто(1).Наименование + " - " + БИ.Субконто(2).Наименование + " - " + БИ.ДО())
- wakaba 3.0.8 + futaba + futallaby -