Мое извращенство2 или крестики нолики по русски

[mutabor]

Я принципиально против "начала" и "конца". На какой предмет всевозможные скобки у вас на клаве? Возможно Вирт сделал такие неудобные операторные скобки в угоду учебности языка, чтобы ученикам было легче усвоить, Бэйсик туда же. Далеко не лучший синтаксис.

Кстати цикл вообще можно универсальным словом "цикл" обозначать, а какой именно это цикл компилятору будет ясно из параметров, правда читабельность пострадает.

выбрать_из ( куда )
начало
вариант '7': ... ;
прервать ... ;
вариант '8': ... ;
прервать ... ;
конец

Кошмар какой ) Избыточность кода.

[Utkin]

# Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
# Задача должна решаться без использования альтернативных ветвей вычислений
# (Это специальное ограничение для любителей всевозможных условий и проверок :) )

# Создаем хранилище чисел
Создадим переменную Число1 . Здесь будет содержаться первое число
Создадим переменную Число2 . Здесь будет содержаться второе число

# Переменные для хранения результатов вычислений
Создадим переменную Сумма . Сюда мы поместим результат от сложения обоих чисел
Создадим переменную Разность . Здесь мы будем хранить результат операции Число1 - Число2
Создадим переменную Произведение . Результат от произведения двух чисел будет помещен сюда .
Создадим переменную Частное . Это переменная будет хранить результат деления Число1 на Число2

# Получим оба числа
Число1 = Получим_строку ( '' ; 'Введите первое число' )
Число2 = Получим_строку ( '' ; 'Введите второе число' )

# Найдем сумму
Сумма = Число1 + Число2

# Найдем разность
Разность = Число1 - Число2

# Найдем произведение
Произведение = Число1 * Число2

# Найдем частное
# Здесь используется самое простое деление
# Так как пример учебный особая точность вычислений не требуется
Частное = Число1 / Число2

# Подготовим результат для отображения
Сумма = 'Сумма чисел: ' & Сумма
Разность = 'Разность чисел: ' & Разность
Произведение = 'Произведение чисел: ' & Произведение
Частное = 'Частное чисел: ' & Частное

Сумма = Сумма & Разность & Произведение & Частное

# Выведем результат на экран
Сумма = Выведем_строку_на_экран ( Сумма ; 'Результаты' )

Закончим вычисления . Работа программы завершена .

Вот моя прога. Интерепретатор на нее глючный, но вроде как кушал. Сейчас переделываю его, иначе очень медленно было .

# - Тестовая программа - тест массивов и циклов

Создадим массив Утка. Здесь мы будем хранить свойства утки.
Создадим переменную Характеристика. С помощью этой переменной определим свойства этой замечательной птицы.
Создадим переменную Все_об_утках. Сюда мы поместим результат, а потом, сохраним его в файле.

Добавим в массив элемент Утка [тип] = птица
Добавим в массив элемент Утка [название] = 'утка'
Добавим в массив элемент Утка [имя]='Дональд Дак'
Добавим в массив элемент Утка [двигатель]= крылья   
Добавим в массив элемент Утка [способ_передвижения]=полет
Добавим в массив элемент Утка [миграции]='сезонного типа'

Примечание: До этого мы осуществляли подготовительные операции

Для Характеристика подставляем индексы массива Утка. В цикле определим все характеристики птицы.
        Все_об_утках=Все_об_утках & Характеристика & ' = ' & Утка [Характеристика] & конец_строки
Конец цикла. Результат накапливается в цикле.

Затем сохраним переменную Все_об_утках в файле 'утиные_истории.txt'

Эта прога использовалась для отладки интерпретатора. Думаю алгоритм дополнительных комментариев не требует.

[Arigato]

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

Я принципиально против "начала" и "конца". На какой предмет всевозможные скобки у вас на клаве? Возможно Вирт сделал такие неудобные операторные скобки в угоду учебности языка, чтобы ученикам было легче усвоить

По-моему, начало и конец нормально смотрятся. К тому же, скобочки {} и [] в русской раскладке не набираются.

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

Кошмар какой ) Избыточность кода.

Это на базе Си++ переделано. В Паскале оператор выбора немного лучше выглядит.

[Alex Cones]

Единственные скобки на русском - ()
Может еще \...\ или /.../?
Как только пришел с универа хотел сказать про

Просто произвести автозамену и пустить текст на компилятор

. Опоздал((((

А в консольном варианте паскаля (TPX) - не так много операторов. Придумать им всем замену можно максимум за день

[Utkin]

А для Делфи? Учтите еще VCL и общераспространенные библиотеки и все покажется не таким уже и легким...

[Alex Cones]

Сначала, думаю надо бы составить копию Turbы. Освоиться, так сказать.

[Utkin]

Насчет скобок - ну пусть будет ввод слеша, а парсер и/или редактор автоматически заменяет на нужный Вам вид скобок, это не проблема.

[Alex Cones]

В принципе весь наш компилятор будет состоять из EXE и DLL. В DLL предлагаю вставить функцию Replace:
S:=ReplaceString(S,'Начало','Begin' );
и пр.
Почему в DLL? Потому что для всех слов весить эта функция будет минимум кило 15. И не придется заменять exe.
А exe наверное надо сделать в виде текст редактора с разными функциями и кнопкой RUN.

[pu4koff]

процедура НачалоМычало;
переменные
  начало_целое: целое;
начало
  ...
конец;

заменяем и получаем:

procedure beginМычало;
var
  begin_целое: integer;
begin
  ...
end;

Так что лексический анализатор по любому прикручивать придется.

[evg_m]

русский язык программирования(почти паскаль)

http://torrents.ru/forum/viewtopic.php?t=2157486