![]() |
![]() |
Altair |
![]() ![]()
Сообщение
#1
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
название темы - рекламный шаг, для привлечения читателей (хотя название темы отражает действительность).
читаем статью Вирта: http://www.inr.ac.ru/~info21/greetings/wirth_doklad_rus.htm английский оригинал: http://www.inr.ac.ru/~info21/greetings/wirth_doklad_eng.htm -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
Altair |
![]()
Сообщение
#2
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Function Next(var x:byte):byte; -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
Я обычно делаю вот так:
Код function _inc(var x: byte): byte; begin inc(x); _inc := x end; function inc_(var x: byte): byte; begin inc_ := x; inc(x) end; Тогда _inc(a) соответствует ++а, но inc_(a) соответствует а++ ;) |
![]() ![]() |
![]() |
Текстовая версия | 12.07.2025 6:20 |