LVV>>Где вы увидели хамство? Я называю вас на Вы и повторяю библейский совет: не судите, и не судимы будете. Или в Библии тоже хамство?

К>По поводу Библии не всё так однозначно

Существует два взаимно противоположных определения хамства. Н.И. Тургенев определял хама как человека, проявляющего «угодничество перед властью, раболепие, соединенное с гражданским и политическим невежеством». В своем дневнике от 27.11.1818 года он пишет: «Мне приято слышать, что мое слово употребляется некоторыми». Не только некоторыми. Известно, что именно в таком смысле использует его А.С. Пушкин и ряд других писателей. Но обратимся еще к одному определению хамства, данному С. Довлатовым. «Хамство есть не что иное, как грубость, наглость, нахальство, вместе взятые, но при этом — умноженное на безнаказанность».

Не вам судить о разработках мировой величины в программировании. Значит, не доросли еще до его идей. Сделайте хотя бы тысячную час того, что сделал Вирт, а потом и судить будете.

LVV>Да его идеи только сейчас осознаны промышленностью и повсеместно внедряются...

а подлинное признание PASCAL получил после разработки Кеном Боулесом Р-кода для микрокомпьютеров

MODE LIST = REF NODE;
# да, с полиморфизмом дела обстоят плохо, но не хуже, 
чем в других тогдашних стат. типизированных языках. 
Есть union и множество перобразований между типами, 
которые - головная боль#
MODE NODE = STRUCT(INT h, LIST t);

# узел размещается в хипе (есть сборщик мусора) и инициализируется кортежем #
PROC cons = (INT x, LIST xs)LIST: HEAP NODE := (x,xs);
PROC head = (LIST xs)INT: h OF xs;
PROC tail = (LIST xs)LIST: t OF xs;

PROC printlist = (LIST xs)VOID:
    (xs ISNT NIL | print((" ",whole(head(xs),0))); printlist(tail(xs)));

# можно определить собственные операторы, для которых возможна перегрузка,
для функций перегрузки нет #
OP FROMTO = (INT l, u)LIST: (l > u | NIL | cons(l, (l+1) FROMTO u));
PRIO FROMTO = 9;

# ФВП. В стат. типизированном языке. В 68-м году. В Виртовских языках ссылки на функцию
 еще долго не появятся. #
PROC map = (PROC(INT)INT f, LIST xs)LIST:
    (xs IS NIL | NIL | cons(f(head(xs)), map(f,tail(xs))));
    
# Вложенные функции есть, но мне здесь не понадобились. #

INT a = 2;

# Лямбда с "замыканием". Замыкание, увы, не настоящее, так что лямбда примерно на уровне
лямбды из C++ 0X. Функции из функций возвращать можно, но по вышеуказанной причине 
ничем хорошим это не кончится. И это при наличии сборщика мусора! #
printlist(map((INT x)INT: x + a, 3 FROMTO 10))

# Впрочем, даже такой лямбды в Виртовских языках вообще никогда не появится.#

"За неимением гербовой пишем на простой" (c)

Видимо, вы совсем не умеете общаться с великими людьми...

Не вам судить о разработках мировой величины в программировании. Значит, не доросли еще до его идей. Сделайте хотя бы тысячную час того, что сделал Вирт, а потом и судить будете.

K># ФВП. В стат. типизированном языке. В 68-м году. В Виртовских языках ссылки на функцию
K> еще долго не появятся. #
K>PROC map = (PROC(INT)INT f, LIST xs)LIST:
K>    (xs IS NIL | NIL | cons(f(head(xs)), map(f,tail(xs))));
K>

function map = (f:function(integer):integer; xs:LIST ):LIST;
begin 
   if xs = nil then map := nil else map := cons(f(head(xs)), map(f,tail(xs)));
end;

Т>function map = (f:function(integer):integer; xs:LIST ):LIST;
Т>begin 
Т>   if xs = nil then map := nil else map := cons(f(head(xs)), map(f,tail(xs)));
Т>end;
Т>

function map(function f:integer; xs:LIST ):LIST;
begin 
   if xs = nil then map := nil else map := cons(f(head(xs)), map(f,tail(xs)));
end;

LVV>>У нас не научный спор.