Перфо. Пример 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 куб)

Перфо. Примеры