powered by simpleCommunicator - 2.0.18     © 2024 Programmizd 02
Map
Форумы / Языки программирования семейства Pascal [закрыт для гостей] / Creating Gear: An interpreter written in Free Pascal, Поиск: Искать сообщения, созданные автором: Неуловимый Джо  
25 сообщений из 107, страница 2 из 5
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #545730
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Присвоение разных видов.
Снимок.PNG
...
Рейтинг: 1 / 0
Нравится: Гарыныч
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #545739
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #545754
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #545830
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
надо бы еще для строк сделать *=
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #546341
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Становится удобнее тестировать в VSCode :)
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #546374
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Сразу и дерево выражений посмотреть...

Как думаете, пришло уже время доставать всех интерпретатором?
Ведь по сути, это конвертатор + калькулятор!
Снимок.PNG
...
Рейтинг: 1 / 0
Нравится: Гарыныч
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #546826
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Настроил в VSCode чтобы расширение .gear воспринимало как javascript, просто чтобы красивее смотрелось :)
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #547325
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
декларация множества переменных через запятую
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #549509
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Неуловимый Джо  20.09.2023, 00:37
[игнорируется]
надо бы еще для строк сделать *=
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #551394
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
if, else и локальные переменные
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #551869
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Циклы!
Правда пока только while.
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #551901
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
s62 [игнорируется] 

Да может тоже не буду for.
Сейчас из важного break и continue.
И функции.
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #551904
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Главная проблема с while, это что время от времени забываешь оператор приращения переменной цикла.
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #551915
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
s62  24.09.2023, 14:40
[игнорируется]
Неуловимый Джо  24.09.2023, 14:31
[игнорируется]
Главная проблема с while, это что время от времени забываешь оператор приращения переменной цикла.
Не раз бывало с Dataset'ом вот такое:
Код: Delphi
1.
2.
3.
4.
5.
6.
while not DSet.EOF do
begin
  ...
  ...
//а тут забыл поставить DSet.Next;
end;
да я почему вспомнил, сейчас когда тестировал, забыл i += 1
в первую секунду растерялся что происходит :)
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #552292
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
циклы for и repeat

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

вот так у него в книге:
Код: Delphi
1.
2.
3.
for var i := 0 where i < 100, i+=1 do
  print(i)
end
я переделал на почти сишный вариант
Код: Delphi
1.
2.
3.
for i = 0, i < 10, i += 1 do
  print(i)
end
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #552299
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
переделал for
сделал там var обязательным, и переменная цикла локальная внутри блока цикла
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #553512
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
elseif (правда пока можно только один)
на выходных сделаю чтоб можно было несколько.
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #553519
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Получается смесь Паскаля, Висуал бэйсика и Си.
Цикл For почти сишный.
...
Рейтинг: 1 / 0
Нравится: s62
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #554150
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Множественные elseif
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #556306
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Что-то подумал.
А мне ведь никто не мешает сделать все ключевые слова на русском!
сделать что-то вроде 1С.
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #557057
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
break
Снимок.PNG
...
Рейтинг: 1 / 0
Нравится: Tosh
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #558202
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
continue
Снимок.PNG
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #558212
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
var a = -1

print('test break on')
for var a = 0; a < 5; a += 1 do
  print(a)
  break on a == 2
end

print('test break')
for var a = 0; a < 5; a += 1 do
  print(a)
  if a == 3 then
    break
  end
end

print('test while with break')
a = 0
while a < 10 do
  print(a)
  break on a == 2
  a += 1
end

print('test repeat until with break')
a = 0
repeat
  print(a)
  break on a == 2
  a += 1
until a > 10

print('test continue')
for var i = 0; i < 10; i += 1 do
  if i == 2 then
    continue
  else
    print(i)
  end
end

print('test while with continue')
a = 0
while a < 10 do
  if a == 2 then
    a += 1
    continue
  else
    print(a)
  end
  a += 1
end

print('test repeat until with continue')
a = 0
repeat
  if a == 2 then
    a += 1
    continue
  else
    print(a)
  end
  a += 1
until a > 10
...
Рейтинг: 1 / 0
Нравится: Гарыныч
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #558214
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
Switch точно не нужен, если есть elseif.

Следующий этап функции.
...
Рейтинг: 0 / 0
Языки программирования семейства Pascal / Creating Gear: An interpreter written in Free Pascal
    #558414
Неуловимый Джо
Скрыть профиль Поместить в игнор-лист
Участник
[игнорирует гостей]
s62  30.09.2023, 09:15
[игнорируется]
Неуловимый Джо  30.09.2023, 00:20
[игнорируется]
Switch точно не нужен, если есть elseif.
...
Вот так засланных казачков и вычисляют. В Паскале - case! :)

Кстати удобная конструкция.
Удобная, но elseif тоже достаточно.

Да просто не терпится уже функции начать :)
В принципе необходимый минимум уже есть.

Сейчас функции, потом "встроенные" функции. Встроенные или стандартные, как их автор называет.
Имеется в виду свой набор функций языка.
...
Рейтинг: 0 / 0
25 сообщений из 107, страница 2 из 5
Форумы / Языки программирования семейства Pascal [закрыт для гостей] / Creating Gear: An interpreter written in Free Pascal, Поиск: Искать сообщения, созданные автором: Неуловимый Джо  
Читали тему (3): Анонимы (2), Yandex Bot 3 мин.
Игнорируют тему (1): erbol 
Читали форум (4): Анонимы (2), Yandex Bot 3 мин., Bing Bot 7 мин.
Пользователи онлайн (25): sergey11, Анонимы (13), cat2, Yandex Bot, Bing Bot, Ибрагимов Мага 82, Droog 2 мин., Т-Миронов 2 мин., erbol 2 мин., паразит 3 мин., Брюквенные годы 4 мин., Шоколадный01 5 мин., s62 9 мин.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]