Форум программистов, компьютерный форум, киберфорум
Наши страницы

[V] Хорош ли синтаксис языка программирования V? - Программирование

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Программирование ПИД регулятор на языке NXC http://www.cyberforum.ru/other-lang/thread1401702.html
Здраствуйте!Такой вопрос, нужно написать программу адаптивного пид регулятор,или с нейросетью на языке NXC для NXT роботов. Обычный ПИД регулятор уже написан,но с автоматической настройкой параметров...
Программирование [КуМир] Нерекурсивное для нахождения НОД четырёх натуральных чисел Составить программу для нахождения наибольшего общего делителя четырёх натуральных чисел. программа должна быть нерекурсивной. я сделала рекурсивно, не могу понять как переделать, чтоб она не... http://www.cyberforum.ru/other-lang/thread1400912.html
Программирование Беда с русификацией
Уважаемые форумчане, каждый из Вас хоть 1 раз но говорил "я не Ванга" или "Экстрасенсы в отпуске". Сейчас я Вас попрошу стать Вангой и вернуть экстрасенсов из отпуска. В общем по делу. Занялся...
Программирование Язык Promela - написать игру пятнашки 3 на 3
подскажите, пожалуйста, нужно написать игру пятнашки 3 на 3 на этом языке, вроде написал, но не работае, выдает все нули, z1 z2 ит.д. это значение ячеек, 0 это значит пустая. int z1 = 3, ...
Программирование Idl язык программирования которого не найти http://www.cyberforum.ru/other-lang/thread1388271.html
Здравствуйте, форумчане. Возникла необходимость в изучении языка IDL. Все языки учатся со стандартного так сказать "Hello world", но немного в другом смысле. Нужно вычислить NDVI.pro ndvi ...
Программирование Язык программирования GRASS У кого-нибуть есть информация по этому языку программирования? Поисковые системы выдают информацию что что это какой-то бейсико-подобный язык, но более совершенный. Хотелось бы узнать о нем чуточку... подробнее

Показать сообщение отдельно
vic_one
47 / 7 / 0
Регистрация: 20.03.2015
Сообщений: 55
15.06.2015, 07:49  [ТС]
Еще 1 пример.
Fortran
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
?Use("include.vsc") // присоединяет файл с кодом, исключает дублирование
 
?Template ToList - Type1(
Function ToList(Type1 rval_ret D1):
     *lres={
        List List__[Type1]:
            "+" Add;
        .
 
        Function List__Add(List__ rval_ret L, Type1 rval_ret R):
            L+=R;
            Return L;
        .
 
        Function List__Add(List__ lval L, Type1 rval_ret R):
            L+=R;
            Return L;
        .
 
        (): List__ lRes; Return lRes;
    }();
    lres+=D1;
    Return lres;
.
)
 
?Template Box - Type1(
Function Box(Type1 D1):
    Return {
        Type Box__(Type1 D1):
            "=" Set;
        .
 
        Function Box__Set(Box__ L, Box__ R):
            L.D1=R.D1;
            Return 1;
        .
 
        (Type1 D1):
            Box__ lRes; lRes.D1=D1;
            Return lRes;
    }(D1);
.
)
 
?Template Box - Type1 Type2(
Function Box(Type1 D1, Type2 D2):
    *lRes= {
        Type Box__(Type1 D1, Type2 D2):
            "=" Set;
        .
 
        Function Box__Set(Box__ L, Box__ R):
            L.D1=R.D1; L.D2=R.D2;
            Return 1;
        .
 
        (): Box__ lRes; Return lRes;
    }();
    lRes.D1=D1; lRes.D2=D2; 
    Return lRes;
.
)
 
 
Program НовыйСинтаксис(): // начало исполнения
    *fnPrint={(_String S):=отображение S}; // лямбда!!!
 
    *lList=Box(1).ToList+Box(2)+Box(3);
    *lListP1=lList+Box(4)+Box(5);
    @ lBox, lInd++ lListP1:
        fnPrint("lBox["+(lInd)+"].D1 = "+(lBox.D1)+"\n");
    .
 
    *lList2=Box(1, "первый").ToList+Box(2, "второй")+Box(3, "третий");
    @ lBox, lInd-- lList2:
        fnPrint("lBox["+(lInd)+"].D1 = "+(lBox.D1)+" D2="+lBox.D2+"\n");
    .
    
    End 0; // возврат кода завершения
.
1
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.