Просмотр исходного текста страницы Перфо. Пример 3


#Область "Проверка установки значения переменной"

//создадим переменную
(Перем ф 5)
(Вывод ф пс)
//установим ей новое значение'
(уст ф 99)
(Вывод ф пс)

#КонецОбласти  

//проверим установку свойства общего для класса"
(Уст Консоль.Заголовок "Перфо // супер-просто!!!") 

//создадим новую коллекцию массив
(перем ф (новый массив))
(Вывод ф пс)

//добавим в коллекцию значение
(ф.Добавить "Добавленное значение")
//проверим вызов свойства с параметром
//получим только что добавленное значение
(Вывод (ф.Item 0) пс)

//проверим установку значения свойству с параметорм
(уст ф.Item 0 "Установленное значение")
//проверим, что значение установилось
(Вывод (ф.Item 0) пс)

//то же самое с помощью методов Получить/Установить
(ф.Установить 0 "Установленное значение методом")
//проверим, что значение установилось
(Вывод (ф.Получить 0) пс)

//проверим команду Пуск
(Пуск "Net" "View" (. (Новый СистемнаяИнформация) ИмяКомпьютера))
(Вывод ПС "----------------------------" ПС)
(Пуск "cmd" "/c" "dir")
(Вывод ПС "----------------------------" ПС)
(Пуск "ping" "promcod.com.ua")

//многострочная строка
(Вывод "это первая строка текста //это не комментарий, а все еще первая строка текста
это вторая строка текста
это третья строка текста" //а тут ошибка, тут нельзя комментарий!!!
пс)
(Перем МояСтрока "Перфо // супер-просто!!!") 
(Вывод МояСтрока ПС)  

//тут самое интересное это ((перем Чис 4) Чис)
//мы на лету создаем переменную Чис со значение 4 и тут же извлекаем ее значение для использования
(Вывод (+ 3 ((перем Чис 4) Чис) 5) пс)

//создадим функцию, которая может заданное количество раз повторить вызов другой функции
(функция(повторить ЧислоПовторов ВызываемаяФункция)
    (если (> ЧислоПовторов 0)
        ((ВызываемаяФункция)
            (повторить (- ЧислоПовторов 1) ВызываемаяФункция))))
//проверим её
(функция (Вывести-Один) (вывод "1-"))
(функция (Вывести-Привет) (вывод "Привет-"))
(повторить 3 Вывести-Один) // 3 раза выведет на экран "1-"
(Вывод пс)
(повторить 5 Вывести-Привет) // 5 раз выведет на экран "Привет-"
(Вывод пс)
            
//создадим две анонимных функции 
//и сохраним их в переменные квадрат и куб
(перем квадрат (функ (ф) (* ф ф)))  
(перем куб (функ (ф) (* ф ф ф)))
//создадим функцию для построения графика
(функция (график НачИнтервала КонИнтервала ФункцияГрафика) 
    (Для (Инд НачИнтервала КонИнтервала)
    	(Вывод "х=" Инд " у=" (ФункцияГрафика Инд) "; ")	
    ) 
    (Вывод пс)
)
//строим график функции квадрат
(график 1 4 квадрат)
//строим график функции куб
(график -3 3 куб)

== Перфо. Примеры ==
* [[Перфо. Пример 1]]
* [[Перфо. Пример 2]]
* [[Перфо. Пример 3]]
* [[Перфо - Списки]]
* [[Перфо - ПоВсем]]
* [[Перфо - ПоКаждому]]

[[Категория:Перфо.NET]]