Ifk <>0 then

 

Мастер-класс

УЖАС И ВОСТОРГ ГЕШТАЛЬТ-ТЕРАПИИ. ПРАКТИКА РЕАЛЬНОГО КОНТАКТА

Ведущий: Старший теренер Елена Павлюченко

12.30 – Ауд. 466

 

Программа мастер-класса:

Мастер-класс познакомит вас с основными идеями гештальт-терапии и позволит пережить реальный опыт переживания «контакта» - ключевого понятия в теории одного из самых популярных психотерапевтических направлений.

Вы получите собственный взгляд на метод и сможете сами судить об эффективности работы гештальт-терапии.

 

Мастер-класс

Я – СУПЕР, Я – НИКТО. КАК НАУЧИТЬСЯ РАДОВАТЬСЯ ЖИЗНИ

Ведущие: Анна Синицина

Людмила Гатич

15.30 – Ауд. 466

 

Программа мастер-класса:

Этот мастер-класс для тех, кто в своей жизни сталкивается с трудностями в переживании своего несовершенства. Для тех, кто стремится быть идеальным и совершенным во всем, а когда это не получается, то ощущает себя никчемным и неспособным. На этом мастер-классе также будут затронуты некоторые теоретические аспекты нарциссической характерологии.

 

Конференция

АКТУАЛЬНЫЕ ПРОБЛЕМЫ ЭТНИЧЕСКОЙ, СОЦИАЛЬНОЙ И ДИФФЕРЕНЦИАЛЬНОЙ ПСИХОЛОГИИ

пройдет по адресу:

г. Москва,

ул. Миклухо-Маклая, д. 6

Схема проезд:

Сентября

Формула успеха: Повышаем эффективность командной работы

	Регистрация слушателей	10:00 – 10:30
	Корпоративная культура: методы формирования - элементы корпоративной культуры - для чего нужна корпоративная культура - способы трансляции внутри компании 1С-Битрикс	10:30 – 10:45
	Корпоративный портал. Что это? Для кого? Зачем? - функции корпоративного портала - инструменты формирования корпоративной культуры - инструменты планирования рабочего времени и задач сотрудников - анализ внутрикорпоративных коммуникаций 1С-Битрикс	10:45 – 11:30
	«Стоимость владения» корпоративным порталом - выбор редакции «1С-Битрикс: Корпоративный портал» - обучение сотрудников работе с корпоративным порталом 1С-Битрикс	11:30 – 11:50
	Как внедрить корпоративный портал у себя? - ресурсы, необходимые для внедрения - быстрый старт проекта - правильные шаги внедрения Виталий Дудка, компания «Создаватель»	11:50 – 12:10
	Корпоративный портал в 50-ти филиалах для 3000 сотрудников - Управление задачами - интеграция с 1С:УПП - Управление сотрудниками - интеграция с 1С:ЗУП - Система обучения - курсы, аттестация и прогресс роста 1С-БИТ	12:10 – 12:30
	Пример успешного внедрения "Корпоративный портал для сообщества ИТ-директоров Урала" Виталий Дудка, компания «Создаватель»	12:30 – 12:50
	Формирование эффективной команды. Инструменты управленческой деятельности - Принципы создания команд. Условия для успешной командной работы. - Долгосрочная мотивация и сплочённость. Примеры ошибок при проведении мотивационных мероприятий. - Критерии эффективности работы команды Елена Корноухова, «Лига независимых консультантов»	12:50 – 13:30
	Ответы на вопросы, свободная дискуссия	13:30 – 14:00
	Кофе-брейк, розыгрыш призов среди слушателей семинара	14:00 – 14:30

 

 

Var

St, Sl:string;

i, BegSl, LenSl, LenMax:integer;

Begin

Writeln ('Введите строку');

Readln (St);

 

BegSl:= 1;

LenMax:= 0;

for i:=1 to length(St) do

if ((St [ i ] = ' ') or (St [ i ] = '. ')) then

Begin

LenSl:= i - BegSl;

If LenSl > LenMax then

Begin

LenMax:= LenSl;

Sl:= copy (St, BegSl, LenSl)

end;

BegSl:= i + 1;

end;

Writeln ('Слово масимальной длины: ', Sl)

End.

 

2. Дана строка Txt. Вставить строку St1 встроку Txt после подстроки St2.

 

program vst;

Var

k:integer;

str1, str2, txt:string;

Begin

writeln ('Введите исходный текст:');

readln (txt);

writeln ('Введите вставляемый текст:');

readln (str1);

writeln ('Введите текст, после которого нужна вставка:');

readln (str2);

 

k:= pos (str2, txt);

if k =0

Then

writeln (‘В тексте ’, txt,‘ нет подстроки ‘, str2)

Else

insert (str1, txt, k + length(str2));

 

writeln ('Полученный текст:');

writeln (txt)

End.

3. Дан текст Txt. Удалить строку St из текста.

 

Program udal;

Var

st, txt:string;

k:integer;

Begin

Writeln ('Введите исходный текст: ');

readln (txt);

writeln ('Введите удаляемый текст: ');

readln (st);

 

Repeat

k:= pos (st, txt);

ifk <>0 then

delete (txt, k, length(st))

until k=0;

 

writeln ('Полученный текст: ');

writeln (txt)

End.

4. Дан текст Txt. Заменить любое вхождение строки St2 на строку St1.

 

program zam;

Var

k:integer;

str1, str2, txt:string;

Begin

writeln ('Введите исходный текст:');

readln (txt);

writeln ('Введите замещающий текст:');

readln (str1);

writeln ('Введите текст, вместо которого нужна замена:');

readln (str2);

 

Repeat

k:= pos (str2, txt);