Новые книги
Искусство сериала: Как стать успешным автором на TV
Книга известного голливудского сценариста и преподавателя Памелы Дуглас – ценное пособие для тех, кто хочет попробовать себя в жанре, завоевавшем весь мир, а не так давно обретшем второе дыхание. Из низкопробного развлечения сериалы превратились в настоящее высокое искусство и бросили вызов традиционному киноформату. Автор погружает читателя в увлекательный мир, рассматривая создание сценария в комплексе, в том числе переговоры со студиями и телеканалами, различные варианты развития событий и пути преодоления типичных трудностей в условиях бешеных темпов развития телевидения и интернета. Памела Дуглас сама прошла все этапы карьеры сериального сценариста и достигла успеха и признания. Особую ценность книге придают интервью с ключевыми героями телевизионных драм – сценаристами и продюсерами. Книга, выдержавшая три издания, вооружает нас высококлассным инструментарием и «инсайдерской» информацией, используя которую читатель имеет отличные шансы войти в историю телеиндустрии и придумать своего уникального «Декстера».
Продажи по телефону и Skype от А до Я
Главная особенность продаж по телефону состоит в том, что вы не видите собеседника, а следовательно, ваша задача как менеджера по продажам значительно усложняется.

Нет врожденных продавцов. Есть люди, которые умеют правильно использовать технологии продаж. Продажи – это приобретенный навык. На сегодняшний день телефонные продажи весьма распространены, а менеджеры, владеющие этим искусством, ценятся на вес золота. Чтобы научиться успешно продавать себя или свой товар, необходимо встраивать продажи в свое общение с внешним миром.

Из этой книги вы узнаете о ПЯТИ ОСНОВНЫХ УСЛОВИЯХ, при которых осуществляется телефонная продажа; о ТРЕХ ГЛАВНЫХ ПРАВИЛАХ в телефонных продажах; о ДЕВЯТИ ПРИЕМАХ обработки возражений. Вы получите полную и готовую к применению систему продаж по телефону и скайпу, с помощью которой сможете продавать любые товары или услуги на холодную аудиторию (тем, кто не знает вас и то, что вы продаете, с вами незнакомы), а также программу продаж личного обучения, коучинга или консалтинга, полностью закроете для себя тему дополнительного заработка и перестанете нуждаться в любой дополнительной информации (книги, тренинги, курсы) касательно продаж по телефону и скайпу. В этой книге есть все самое нужное и важное.

Тексты программ на Бейсике
Версия для печати

Тексты программ на Бейсике


 ' Программа решения задачи об n ферзях перебором с возвратом

 ' Процедура печати решения
 SUB WriteSolution
 FOR i = 1 TO n
   PRINT queen(i);
 NEXT i
 PRINT
 END SUB

 ' Функция проверки совместимости m-го ферзя с предыдущими
 FUNCTION Check(m)
 Check = 1
 FOR i = 1 TO m-1  ' совпадают горизонтали, нисходящие диагонали
   IF (queen(i) = queen(m)) Or (i+queen(i) = m+queen(m)) _
       Or (i-queen(i) = m-queen(m)) THEN ' восходящие диагонали
     Check = 0: EXIT FOR
   END IF
 NEXT i
 END FUNCTION

 ' Процедура, осуществляющая перебор
 SUB Backtrack(m)
 IF m > n THEN ' найдено решение
   CALL WriteSolution
 ELSE
 FOR i = 1 TO n
   queen(m) = i
   IF Check(m) = 1 THEN ' m-ый ферзь не бьёт предыдущих
     CALL Backtrack(m+1)
   END IF
 NEXT i
 END SUB

 DIM SHARED n ' размер доски
 INPUT "Размер доски? ",n
 DIM SHARED queen(n) ' массив положений ферзей
 CALL Backtrack(1)




 ' Программа решения задачи об n ферзях перебором
 ' с распостранением ограничений и просмотром вперёд

 ' Процедура печати решения
 SUB WriteSolution
 FOR i = 1 TO n
   PRINT queen(i);
 NEXT i
 PRINT
 END SUB

 ' Процедуры сокращения пространства перебора
 SUB ExcludeField(nq,qu,m)
 IF qu >= 1 And qu <= n THEN
   IF space(nq,qu) = 0 THEN
     cases(nq) = cases(nq)-1: space(nq,qu) = m
   END IF
 END IF
 END SUB

 SUB Prune(qm,qu,m)
 FOR i = m+1 TO n
   nq = vstep(i)
   CALL ExcludeField(nq,qu,m) ' на той же горизонтали
   CALL ExcludeField(nq,qu+nq-qm,m) ' на той же диагонали
   CALL ExcludeField(nq,qu-nq+qm,m)
 NEXT i
 END SUB

 ' Процедуры восстановления пространства перебора
 SUB IncludeField(nq,qu,m)
 IF qu >= 1 And qu <= n THEN
   IF space(nq,qu) = m THEN
     cases(nq) = cases(nq)+1: space(nq,qu) = 0;
   END IF
 END IF
 END SUB

 SUB Restoring(qm,qu,m)
 FOR i = m+1 TO n
   nq = vstep(i)
   CALL IncludeField(nq,qu,m) ' на той же горизонтали
   CALL IncludeField(nq,qu+nq-qm,m) ' на той же диагонали
   CALL IncludeField(nq,qu-nq+qm,m)
 NEXT i
 END SUB

 SUB Propagate(m)
 IF m > n THEN
   CALL WriteSolution
 ELSE
   ' Выбирается ферзь с наименьшим количеством вариантов
   minq = n+1
   FOR i = m TO n
     IF cases(vstep(i)) < minq THEN
       l = i: qm = vstep(l): minq = cases(qm)
     END IF
   NEXT i
   vstep(l) = vstep(m): vstep(m) = qm
   FOR i = 1 TO n
     IF space(qm,i) = 0 THEN
       queen(qm) = i
       CALL Prune(qm,i,m)
       CALL Propagate(m+1)
       CALL Restoring(qm,i,m)
     END IF
   NEXT i
 END IF
 END SUB

 DIM SHARED n ' размер доски
 INPUT "Размер доски? ",n
 DIM SHARED queen(n) ' массив положений ферзей
 DIM SHARED space(n,n) ' пространство перебора
 DIM SHARED vstep(n) ' порядок выбора ферзей
 DIM SHARED cases(n) ' количество вариантов
 FOR i = 1 TO n
   FOR j = 1 TO n
     space(i,j) = 0
   NEXT j
     vstep(i) = i: cases(i) = n
 NEXT i
 CALL Propagate(1)
Содержание