Перфо. Пример 3 — различия между версиями

Материал из ТХАБ.РФ
Перейти к: навигация, поиск
м
м
 
Строка 1: Строка 1:
  
#Область "Проверка установки значения переменной"
+
#Область "Проверка установки значения переменной"
 +
  //создадим переменную
 +
    (Перем ф 5)
 +
    (Вывод ф пс)
 +
  //установим ей новое значение'
 +
    (уст ф 99)
 +
    (Вывод ф пс)
 +
#КонецОбласти 
  
//создадим переменную
+
//проверим установку свойства общего для класса"
(Перем ф 5)
+
  (Уст Консоль.Заголовок "Перфо // супер-просто!!!")  
(Вывод ф пс)
+
//установим ей новое значение'
+
(уст ф 99)
+
(Вывод ф пс)
+
  
#КонецОбласти  
+
  //создадим новую коллекцию массив
 +
  (перем ф (новый массив))
 +
  (Вывод ф пс)
  
//проверим установку свойства общего для класса"
+
//добавим в коллекцию значение
(Уст Консоль.Заголовок "Перфо // супер-просто!!!")  
+
  (ф.Добавить "Добавленное значение")
 +
//проверим вызов свойства с параметром
 +
//получим только что добавленное значение
 +
  (Вывод (ф.Item 0) пс)
  
//создадим новую коллекцию массив
+
//проверим установку значения свойству с параметорм
(перем ф (новый массив))
+
  (уст ф.Item 0 "Установленное значение")
(Вывод ф пс)
+
//проверим, что значение установилось
 +
  (Вывод (ф.Item 0) пс)
  
//добавим в коллекцию значение
+
//то же самое с помощью методов Получить/Установить
(ф.Добавить "Добавленное значение")
+
  (ф.Установить 0 "Установленное значение методом")
//проверим вызов свойства с параметром
+
//проверим, что значение установилось
//получим только что добавленное значение
+
  (Вывод (ф.Получить 0) пс)
(Вывод (ф.Item 0) пс)
+
  
//проверим установку значения свойству с параметорм
+
//проверим команду Пуск
(уст ф.Item 0 "Установленное значение")
+
  (Пуск "Net" "View" (. (Новый СистемнаяИнформация) ИмяКомпьютера))
//проверим, что значение установилось
+
  (Вывод ПС "----------------------------" ПС)
(Вывод (ф.Item 0) пс)
+
  (Пуск "cmd" "/c" "dir")
 +
  (Вывод ПС "----------------------------" ПС)
 +
  (Пуск "ping" "promcod.com.ua")
  
//то же самое с помощью методов Получить/Установить
+
//многострочная строка
(ф.Установить 0 "Установленное значение методом")
+
  (Вывод "это первая строка текста //это не комментарий, а все еще первая строка текста
//проверим, что значение установилось
+
  это вторая строка текста
(Вывод (ф.Получить 0) пс)
+
  это третья строка текста" //а тут ошибка, тут нельзя комментарий!!!
 +
  пс)
 +
  (Перем МояСтрока "Перфо // супер-просто!!!")
 +
  (Вывод МояСтрока ПС)
  
//проверим команду Пуск
+
//тут самое интересное это ((перем Чис 4) Чис)
(Пуск "Net" "View" (. (Новый СистемнаяИнформация) ИмяКомпьютера))
+
//мы на лету создаем переменную Чис со значение 4 и тут же извлекаем ее значение для использования
(Вывод ПС "----------------------------" ПС)
+
  (Вывод (+ 3 ((перем Чис 4) Чис) 5) пс)
(Пуск "cmd" "/c" "dir")
+
(Вывод ПС "----------------------------" ПС)
+
(Пуск "ping" "promcod.com.ua")
+
  
//многострочная строка
+
  //создадим функцию, которая может заданное количество раз повторить вызов другой функции
(Вывод "это первая строка текста //это не комментарий, а все еще первая строка текста
+
  (функция(повторить ЧислоПовторов ВызываемаяФункция)
это вторая строка текста
+
    (если (> ЧислоПовторов 0)
это третья строка текста" //а тут ошибка, тут нельзя комментарий!!!
+
        ((ВызываемаяФункция)
пс)
+
            (повторить (- ЧислоПовторов 1) ВызываемаяФункция))))
(Перем МояСтрока "Перфо // супер-просто!!!")
+
//проверим её
(Вывод МояСтрока ПС)  
+
(функция (Вывести-Один) (вывод "1-"))
 
+
(функция (Вывести-Привет) (вывод "Привет-"))
//тут самое интересное это ((перем Чис 4) Чис)
+
(повторить 3 Вывести-Один) // 3 раза выведет на экран "1-"
//мы на лету создаем переменную Чис со значение 4 и тут же извлекаем ее значение для использования
+
(Вывод пс)
(Вывод (+ 3 ((перем Чис 4) Чис) 5) пс)
+
(повторить 5 Вывести-Привет) // 5 раз выведет на экран "Привет-"
 
+
(Вывод пс)
//создадим функцию, которая может заданное количество раз повторить вызов другой функции
+
(функция(повторить ЧислоПовторов ВызываемаяФункция)
+
    (если (> ЧислоПовторов 0)
+
        ((ВызываемаяФункция)
+
            (повторить (- ЧислоПовторов 1) ВызываемаяФункция))))
+
//проверим её
+
(функция (Вывести-Один) (вывод "1-"))
+
(функция (Вывести-Привет) (вывод "Привет-"))
+
(повторить 3 Вывести-Один) // 3 раза выведет на экран "1-"
+
(Вывод пс)
+
(повторить 5 Вывести-Привет) // 5 раз выведет на экран "Привет-"
+
(Вывод пс)
+
 
              
 
              
//создадим две анонимных функции  
+
//создадим две анонимных функции  
//и сохраним их в переменные квадрат и куб
+
//и сохраним их в переменные квадрат и куб
(перем квадрат (функ (ф) (* ф ф)))   
+
(перем квадрат (функ (ф) (* ф ф)))   
(перем куб (функ (ф) (* ф ф ф)))
+
(перем куб (функ (ф) (* ф ф ф)))
//создадим функцию для построения графика
+
//создадим функцию для построения графика
(функция (график НачИнтервала КонИнтервала ФункцияГрафика)  
+
(функция (график НачИнтервала КонИнтервала ФункцияГрафика)  
 
     (Для (Инд НачИнтервала КонИнтервала)
 
     (Для (Инд НачИнтервала КонИнтервала)
 
     (Вывод "х=" Инд " у=" (ФункцияГрафика Инд) "; ")
 
     (Вывод "х=" Инд " у=" (ФункцияГрафика Инд) "; ")
 
     )  
 
     )  
 
     (Вывод пс)
 
     (Вывод пс)
)
+
)
//строим график функции квадрат
+
//строим график функции квадрат
(график 1 4 квадрат)
+
  (график 1 4 квадрат)
//строим график функции куб
+
//строим график функции куб
(график -3 3 куб)
+
  (график -3 3 куб)
  
 
== Перфо. Примеры ==
 
== Перфо. Примеры ==

Текущая версия на 20:10, 17 ноября 2020

#Область "Проверка установки значения переменной"
  //создадим переменную
    (Перем ф 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 куб)

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