Занимайтесь своими делами, а дизайн упаковки пусть разработает опытная компания, чья деятельность с этим и тому подобным связана. Результат работы будет не просто упаковка, а качественная, запоминающаяся упаковка, которая будет вызывать у потребителя наилучшие эмоции. Хорошее знание рынка - важный инструмент компании.
Посетите http://solutions.almacor.ru/ для более подробного ознакомления с деятельностью компании.

Локальная канализация устанавливается в местах, где существует необходимость очистить бытовые стоки, и нет центральной канализации. Топас - принципиально новое устройство, которое в отличие от септиков очищает сточные воды на 99% и исключает шанс попадания нечистот в грунт. Работает система практически бесшумно. Существует несколько модификаций, что позволяет подобрать нужный вариант в определенных условиях, это значит, что можно использовать топас как на даче, так и в гостиничном комплексе. Система легко монтируется в любой вид грунта и благодаря устройству корпуса вы можете не беспокоится за жизнь работающих внутри аэробных бактерий даже в лютые морозы!

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

Сегодня мы говорим об операторе выбора. Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Параметром по которому осуществляется выбор служит так называем ключ выбора, который может быть любого типа. Структура оператора выбора выглядит несколько страшно :):
case ключ_выбора of список_выбора else операторы end;

Список выбора при этом состоит из нескольких конструкций вида выбор : оператор; Давайте рассмотрим такой пример (он правда не очень актуален, но....) : пользователю нужно ввести число (у нас оно будет хранится в переменной day), а мы выведем по нему день недели:

case day of
1 : writeLn ('Понедельник');
2 : writeLn ('Вторник');
3 : writeLn ('Среда');
else
writeLn ('Какой-то другой день.');
end;

Итак ключ выбора - это у нас day. Для него мы составляем список выбора - список возможных значений и что мы будем делать при этих значениях. Так если day = 1, то мы выведем Понедельник, если 2 - Вторник и т.д. Часть, которая начинается с else может отсутствовать - она схожа с частью оператора if-then-else. Поэтому она выполняется, если ключ выбора не удовлетворяет ни одному условию из списка. У нас она выполнится, если day не равен 1, 2 или 3, например при day=0 или day=4.

О том, что никогда не меняется - константы! Константы - это переменные, которые не могут изменять своего значения (или переменные - это константы, которые его меняют :) Так вот константы - это очень важная часть программы, для их описания выделена целая сексия. Константы имеют имя и значение. Секция констант начинается со слова const. Эта секция обычно распологается перед секцией переменных. Теперь шаблон у нас превращается в нечто более сложное:
Program ИмяПрограммы;
uses список подключаемых модулей;
const
Здесь идёт объявление констант.
var
Здесь идёт объявление переменных.
begin
Здесь идёт текст программы.
end.

Объявить константу можно следующим образом: ИМЯ_КОНСТАНТЫ = ЗНАЧЕНИЕ; Обратите внимание, что мы пишем просто равно, без двоеточия! Например напишем программу, которая считает число П/2 (П = 3.14259265)
Program PI_DEL_TWO;
const
pi = 3.14159265;
var
pid2 : real;
begin
pid2 := pi / 2
end.
Константы могут быть не только числовые, но и текстовые. Например
const
Text = 'Hello, World!';
begin
writeLn (Text)
end.

- ещё одна вариация на тему hello world! Зачем нужны константы, ведь вполне можно использовать численные значения ? Константы нужны для удобства! При компиляции они автоматически заменяются своими значениями. Но например, если это число нужно изменить ? (число П не изменишь, но например стоимость товара или ширина шкафа) Тогда просто меняете значение константы, номер версии программы на 1.01 и получаете совершенно новый продукт :)
Программа

Давайте сегодня напишем маленькую ходилку - нажимая на клавиши будем двигать курсор по экрану. Управление выберем самое примитивное.... нет не стрелки :) ... они как не странно несколько сложнее, а буквы w, a, s, d. Выход из программы будем осуществлять по клавише ESC. Для передвижения курсора нам понадобится функция gotoxy (X, Y) - передвижение курсора на координаты X,Y. При этом левому верхнему углу экрана соответсивуют координаты (1,1) а правому нижнему (80, 25). Это функция из модуля CRT.
Program CURSOR;

uses CRT;

const
LEFT = 'a';
RIGHT = 'd';
UP = 'w';
DOWN = 's';
ESC = 27;

var
x, y : integer;
key : char;

begin
ClrScr;

key := #0;
x := 1;
y := 1;

while key <> chr (ESC) do
begin
key := readkey;

case key of
LEFT : begin
if (x - 1) >= 1 then
x := x - 1
else
x := 80
end;
RIGHT : begin
if (x + 1) <= 80 then
x := x + 1
else
x := 1
end;
UP : begin
if (y - 1) >= 1 then
y := y - 1
else
y := 25
end;
DOWN : begin
if (y + 1) <= 25 then
y := y + 1
else
y := 1
end
end;

gotoxy (x, y)
end
end.

Что сразу бросатеся в глаза ? Наверное key := #0; - что это за #0 ? Значек диез "#" означает, что это не число, а символ! Существует так называемая таблица символов, каждый символ имеет в ней свой номер. Например весёлая рожица - #1, цифра 0 - #48, буква Ъ - #154, буква ъ - #234. Заглавные и строчные буквы имеют разные номера. Символы можно выводить с помощью функции write, например write (#1, #32, #2) - посмотрите, что выйдет (#32 - символ Читать далее...

Сегодня мы поговорим о циклах. Что это такое? Давайте представим, что вам необходимо вывести на экран слово ПРИВЕТ! двадцать раз. Писать: writeLn ('ПРИВЕТ'); 20 раз !!! А если нужно сто раз? А если заранее неизвестное число раз?? Как быть? Вот тут и нужны циклы.
Цикл - кусок кода, который повторяется определённое число раз (бесконость - это тоже определённое число раз!).
Цикл FOR

Этот цикл наиболее часто используется в программах ввиду его чрезвычайной удобности. Итак знакомтесь, цикл for!
Давайте рассмотрим его использованние на примере с выводом слова привет на экран. Да давайте оговоримся, что будем опускать стандартные куски программы типа Program, var, begin, end. И ещё одно соглашение об именах переменных: обычно именами i и j дают переменным целого типа и их объявление мы тоже будем опускать. Итак пример:
for i := 1 to 20 do
writeLn ('Привет!');

Цикл записывается так for переменная_цикла := начальное_значение to конечное_значение do операторы; В нашем примере мы взяли в качестве переменной цикла взята переменная i, начальное значение 1, конечное - 20. Что это значит? А это значит, что цикл будет выполняться для i = 1, 2, 3, 4, 5 ... 19, 20. Т.е. 20 раз. Каждый раз мы прибавляем к i еденицу. При этом начальное и конечное значение переменной цикла может задаваться численным выражением (например for i := 1 to 3*65 do ....) или выражением с переменной (например for i := X + Y to X * Y / Z + 45 *j do ....). При этом эти значения вычисляются компилятором один раз перед выполнением цикла. Например, результат такой программы:
Program Test;

var
i : integer;
x : integer;
begin
x := 10;
for i := 0 to х do
begin
writeLn (i, ' ', x);
x := x + 2
end
end.
Будет таким :
0 10
1 12
2 14
3 16
4 18
5 20
6 22
7 24
8 26
9 28
10 30

Как видите предел i не поменялся, хотя х мы меняем! Использую цикл for нужно соблюдать следующее правило: не нужно менять переменную цикла (т.е. ту переменную, по которой идёт цикл, у нас это была i) внутри него.
Есть ещё один альтернативный вариант цикла for, который используется, когда считать нужно не "снизу вверх" а "сверху вниз". Например мы хотим изменять i не от 1 до 20, а наоборот от 20 до 1. Тогда наш цикл примет вид:
for i := 20 downto 1 do
writeLn ('Привет!');
Теперь i = 20, 19, ... 2, 1. А так всё аннологично. Основное неудобство состоит в том, что мы не можем задавать закон изменения переменной цикла. Однако и это не так страшно, как кажется на первый взгляд.
Цикл WHILE
Цикл номер два: while! Этот цикл называется циклом с предусловием. Записывается он так:
while условие do оператор;
Такой цикл выполняется пока условие истинно. И прекращается в противном случае. Например такой цикл:
while 1 do
writeLn ('Привет!');
Приведёт к "зависанию" компьютера, т.к. выражение 1 всегда истинно (не могут же быть числа ложными). выйдти из этого цикла можно нажатием клавиши Ctrl+Break (Ctrl+C) - стандартный выход из ДОС программ. Проверка истистинности условия проводится как и в операторе if.
Давайте покажем, как оператором While можно заменить for:
i := 1;
x := 10;
while i <= x do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1
end;

Попробуйте этот код... ну как эффект не тот? :) Давайте разберёмся в чём дело. А вся проблемма в том, что условие (максимальное значение) для цикла for считается зарание один раз заранее! А у нас оно всё время меняется. Ок. Теперь посмотрите результат программы: она останавливается при i = 32 757. Давайте посмотрим ещё один вариант:
i := 1;
x := 10;
while i <> x do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1
end;

Запустите и подождите немного.... СТОП! А откуда там отрицательные числа?? Ведь мы прибавляем каждый раз по 1 и 1, т.е. i и х растут ??? Давайте разберёмся по подробнее. Что из себя представляет числовая прямая? Это окружность максимального радиуса, т.е. радиуса бесконечность. Такая окружность вырождается в прямую. Однако для целых чисел (типа integer) эта "бесконечность" известна - 32767 (помните выпуск Типы данных?). Счечик i можно представить, как точку, которая движется по этой окружности. Когда i доходит до максимума, то она становится отрицательной, т.е. -32767!! А помните предыдущий пример, где всё останавливалось при x = 32 767. Почему так вышло? Прибавляя к х = 32767 один что мы получаем: x + 1 = -32767 !!!! А условие цикла у нас стоит i <= x т.е. когда х = 32 767 i = 32 757, далее х + 1 = -32 767 i + 1 = 32 758 т.е. условие i <= x не выполняется! И поэтому мы выходим из цикла!
Поэтому аккуратнее с максимальным значение integer, оно не такое большое, как может показаться! Теперь напишем нормальный вариант цикла for через цикл while:
i := 1;
x := 10;
Temp := x;
while i <= Temp do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1
end;

Здесь мы заранее посчиталь верхнюю границу цикла в переменную temp и тем самым всё работает правильно.
Ну и Читать далее...

В прошлый раз, мы написали программку для подсчёта корней уравнения. Вот её текст:
Program Decision_of_quadratic_equalation;

var
a, b, c, D : integer;
x1, x2 : real;
begin
writeLn ('Решение квадратного уравнения: 3*х^2 + 8*x + 5 = 0');

{ Инициализация начальных значений }
a := 3;
b := 8;
c := 5;

{ Вычисление дискриминанта }
D := sqr (b) - 4 * a * c;

{ Вычисление корней }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);

{ Вывод результата }
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end.

Однако у тех, кто знает математику может возникнуть вопрос: А что если дискриминант отрицательный? Да для этого случая он положительный, но в общем ?
Вопрос вполне законен! Итак как же мы можем сравнить дискриминант с нулём?
В Паскале существует так называемый условный оператор. Вот как он выглядит:
if условие then
оператор1
else
оператор2
Давайте разберём его по полочкам или шкафам, у кого как :)
Итак при переводе на русский if - then - else означает если - то - ещё Можно сказать и так:
ЕСЛИ условие ТО
оператор1
В ДРУГОМ СЛУЧАЕ (ещё)
оператор2
Т.е. если условие истинно, то выполняется оператор1, а если ложно, то оператор2. Как же нам узнать истинно условие или нет? Для этого существуют операторы сравнения:

= Равно. Будем всё смотреть на примерах: А = В
Ложь, если А не равно В.
Истина, если А равно В. По этому поводу вспоминается анекдот:
- Чем программист отличается от обычного смертного?
- А тем, что в состоянии ответить на вопрос, в котором уже заключен ответ.
- Это как же?
- Ну, например, ответь на вопрос: сколько будет 2х2=4?
В самом деле, сколько будет 2*2=4, если взглянуть на это со стороны Паскаля ?
Итак '=' - это оператор равно. 2х2 равно четырём в математическом смысле. Программа сначала считает выражение слева 2*2 =4, потом справа - там просто 4. Потом сравнивает их. Так как 4 = 4 , то результат оператора РАВНО будет ИСТИНА! Поэтому нельзя путать := и = !!!!!! По ходу дела познакомимся с ещё одной функцией : ORD (X) - преобразует к целым числам логические выражения и символы. О символах мы поговорим позже. А пока рассмотрим такую програмку:

var
a : integer;
begin
a := ord (2*2 = 4);
wirteLn (a)
end.


Что же выведет на экран такая программа ? Ответ: 1, т.к. результат логического выражения 2*2=4 - это истина, а при переводе логического выражения в целое истина становится 1, а ложь нулём. Если бы мы написали так:
a := ord (2*2 = 5);
, то на экране увидили бы 0.

<> Не равно
А <> В
Ложь, если А равно В
Истина, если А не равно В
Этот оператор как бы обратное равно.
>,< - Больше / Меньше
A > B
Ложь если А меньше или равно В
Истина, если А больше В
A < B
Ложь если А больше или равно В
Истина, если А меньше В
>=, <= - больше или равно / меньше или равно
A >= B
Ложь если А меньше В
Истина, если А больше или равно В
A <= B
Ложь если А больше В
Истина, если А меньше или равно В
Замечательно теперь мы можем проверить дискриминант с 0:
if D>0 then
выводим сообщение об ошибке
else
считаем корни
Вторая часть (начиная с else) может отсутствовать. Например такой код:

a := 2; if a<3 then
a := a + 3; { Эта строчка никогда не выполняется!}
writeLn (a);

Но немного изменив текст:
a := 2;
if a<3 then
a := a + 3 { Эта строчка никогда не выполняется!}
else
a := 4; { Эта строчка всегда выполняется!}
writeLn (a);
Однако, что делать если нам нужно написать не одну строчку (a := a + 3), а сразу 5??? Тогда нам нужно выделить эти операции в блок, начало которого отмечается словом begin, а конец end. Т.е. например так:
if D >= 0 then
begin
{ Вычисление корней }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);

{ Вывод результата }
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end
else
begin
{ Корней нет }
writeLn ('Данное уравнение не имеет корней!');
writeLn ('Попробуйте ещё!')
end;

Очень часто может потребоваться использовать вложенные операторы условия. Как например понимать такую запись:
if a<3 then
if b>3 then c := 4
else c := 5;

А теперь внимание вопрос: к какому if относится в данном случае else?? минута пошла :)) Правильный ответ: ко второму!
Или по-русски: else ассоциируется с ближайшим if, которое ещё не связанно со словом else, т.к. при такой конструкции:
if a<3 then
if b>3 then c := 4
else c := 5
else c := 6;

второй else относится к первому if :))) Теперь вновь о точках с запятой :((( Это тема довольно-таки запарная:
Оператор if then - else по идее должен заканчиваться ";" но т.к. после else идут операторы, то последняя строчка относящаяся к else должна кончаться ";"
Вот он пример: между if и else ";" быть не должно, ";" ставится Читать далее...

Все программы работают с данными. Например целые числа, вещественные числа, строки - это данные. Данные могут быть постоянными, например дата рождения, а могут быть и переменными : например возраст. Итак давайте представим следующую задачу: необходимо решить уравнение вида ax2 + bx + c = 0.

Из математики нам известно, что решением такого уравнения являются числа:
x1,2 = - b ± (b2 - 4ac)1/2
2a
Где (b2 - 4ac)1/2 - это корень квадратный из числа b2 - 4ac. Спасибо Андрею, который подсказал это изображение корня.
Тем самым нам нужно знать 3 числа: a, b, c. Для конкретных чисел посчитаь всё можно на бумажке, а для любых коэффициентов??
Тут нам понадобятся переменные. В программе написанной на языке паскаль для переменных отводится специальная "секция" VAR (агн VARiable - переменная) и каркас программы выглядит так:

ИмяПрограммы;
var
Здесь идёт объявление переменных.
begin
Здесь идёт текст программы.

Переменные - это и есть наши данные. Так как Паскаль является строго типизированным языком, то каждой переменной ставится в соответствие свой тип. И для этой переменной разрещены операции допустимые типом. Но мы не всегда можем делать операции между типами: например нельзя сложить число 5 и строку 'Hello world!'!
Объявляются переменные таким образом:
ИмяПеременной : ИмяТипа;
В языке Паскаль существует очень разветвлённая система типов и сегодня мы поговорим только 2 из них: Целые и Вещественные.
Целые типы.Имя типа. Диапозон значений. Размер памяти.
Shortint - 128 .. 127 1 байт
integer - 32768 .. 32767 2 байтa
Long - 2147483648 .. 2147483647 4 байтa
byte 0 .. 255 1 байт
Word 0 .. 65535 2 байтa


Теперь я думаю понятно, что если нам надо решить уравнение с целыми коэффициентами, менее 32768 и более - 32768, то а,b,c мы должны объявить следующим образом:
Program Decision_of_quadratic_equalation;
var
a : integer;
b : integer;
c : integer;
begin
Здесь идёт текст программы.
end.

Так же переменные одного типа можно записывать в строчку: a, b, c : integer;
Благодаря такой системе типов мы можем всегда выбрать максимально нам подходящий!
В некоторых языках программирования вообще нет такого понятия, как тип переменной. Наглядный пример - Бейсик. В нём под каждую переменную выделяется максимальное количество памяти. Однако это не рационально. Если мы точно знаем, что переменная Х больше 0 и меньше 255, то зачем нам тратить лишние байты драгоценной памяти ? Но если размер заранее не известен, то лучше подстраховаться.
Итак теперь мы умеем выбирать нужный нам тип переменной, объявлять её.... теперь нам нужно научится что -то с ней делать :))
Так как данные целого типа являются по существу математическими переменными (во загнул-то:), то для них определены операции:
:=
присваивание ( двоеточие и равно всегда пишутся слитно!)
Например присвоить a значение 123: a := 123;
Присвоить а значение b: a := b;
Очень частая ошибка: забывают ставить двоеточие перед знаком равно! А что такое просто знак равно, мы поговорим позже и подробнее! Главное привыкнуть к такой записи :=
+
сложение
Идём от простого к сложному: присвоить а значение 120 + 3: а := 120 + 3;
Присвоить b значение а + 123: b := a + 123;
Присвоить с значение a + b + 123: c := a + b + 123;
И самое сложное присвоить с старое значение + 3: c := c + 3;
вот тут подробности! С математической точки зрения запись С = С + 3 не имеет ни какого смысла. Однако тут нет ничего сложного если смотреть на это под другим углом зрения. Например вот так:
b := c + 3; - строка 1
c := b; - строка 2
Тут всё становится гораздо понятней! Однако что нам стоит оптимизировать этот код, ведь значение b := c + 3, не меняется при переходе от строки 1 к строке 2 и мы можем заменить значение b сразу на c + 3, т.е. и написать с := с + 3. При работе такой программы берёться значение с в памяти, к нему прибавляется 3, а после всё это вновь заносится в с. Надеюсь, что понятно!
-
вычитание. Анологично сложению: c := с - a + b - 3; Без вопросов!
*
умножение
Оно тоже идёт по анологии со сложением но надо помнить приоритет операций! Первый класс: над длинным примером нас заставляли писать приоритеты операций: у сложения 2, у умножения 1 ??? Вот и здесь схожая ситуация! Помните загадку: сколько будет два плюс два умножить на два?
Правильный ответ: 6 (т.к. сначала нужно умножать, а потом складывать 2 + 2 * 2)
Вот и в паскале нужно строго соблюдать приоритет операций! В этом вам поможет оператор ( )! Тут как в математике: операции в скобках имеют высший приоритет: т.е. (2 + 2) * 2 = 8 Т.к. сначала мы складываем 2 и 2.
/
деление
Вот тут даёт о себе знать то, что паскаль строготипизированный язык: результат деления всегда вещественный! Т.е. не целый :))) И попытка присвоить целому числу результата деления даже двух целых чисел является незаконной! Тут же возникает извечные вопросы: что делать и кто виноват?
Ну виноват, понятное дело, Никлаус Вирт (можете кинуть в него грязью, если найдёте :). А вот на вопросе Читать далее...

Что такое Hello World! - спросите любого програмиста - он тихо посмеётся про себя и посмотрит на вас, как на идиота. Програмкой типа Hello World! называют простую программу вывода текста на экран. Надеюсь, что будем выводить понятно :) Кстати Hello world! по русски значит "Привет, мир!". 90% начинают именно с программок типа Hello world!
Программа

Сразу начнём с текста программы:

Program HelloWord;

begin
writeLn ('Hello World!')
end.

Теория

Итак быстренько запускаем паскаль, вбиваем (в смысле набираем) эти 4 строчки, нажимаем F2 (сохранить), вводим имя, нажимаем Ctrl+F9 (исполнение)..... Какого чёрта! Ничего не вывелось! Досадно наверное ?? А ведь всё очень просто, как всегда :)
Что нужно сделать, что бы увидеть результаты программы?
Ну прежде всего написать программу. Этот важный пункт мы сделали. Можно загнуть палец на левой руке, правая нужна, что бы шуровать мышой :)
Откомпилировать её. Что это такое позже, пока достаточно знать, что это происходит при нажатии Ctrl+F9.... загните второй палец ...
Запустить её. Это тоже входит в нажатие Ctrl+F9.... Таким образом на руке должно быть загнуто три пальца
Теперь снимите правую руку с мыши и попробуйте нажать Alt+F5... я знаю это тяжело, но от этого зависит результат.... Это был четвёртый палец...

УРА!!! Можете разогнуть пальцы и радостно подпрыгнуть!!!!! Hello World! - эту строчку вывела наша программа!!!

Когда пройдет первая радость от содеяного, давайте рассмотрим теперь всё это дело более серьёзно (по строкам):
Итак слово Program - служебное слово языка паскаль (вы заметитили я его выделил ? :)). Служебные слова - это такие слова, которые программист использует в строго определённых целях. После слова Program идёт имя программы, однако это имя может и не совпадать с именем файла. Это служебные данные и на программе они не отражаются. Как это можно проверить? КОНЕЧНО же экспериментом: удалите эту строчку, программа будет прекрастно работать !! Как говорит описание: это чисто информативный заголовок. Замечательно! Всё начинает проясняться! Обратите внимание на завершающую току с запятой (;) Без неё нельзя! Почему? Расскажу чуть позже...
Дальше следует служебное слово begin - отсюда начинается сама программа (begin - англ. начало). Кстати не плохо было бы обзавестись словарём или знаниями английского... поможет....
writeLn ('Hello World!') - обратите внимание, что здесь нет служебных слов! (Hello World! - выделенна что бы понять, что это текст). writeLn - это функция вывода текста на экран, а текст в кавычках ('...') - это, как мона догадаться, то, что надо вывести на экран. Т.е. что бы вызвать функцию нужно написать её имя и в скобках указать параметр. СТОП! Вполне может возникнуть вопрос а откуда паскаль знает, что это за функция, в смысле, что она должна выводить текст на экран ??? Да всё дело в том, что с турбо паскалем поставляется набор стандартных функций, и это одна из них. writeLine - вывести линию, т.е. если вы до сих пор не заметили, то курсор переводится на следующую строчку и возвращается в начало этой строки. Например можете написать такое: write ('Hello World!') - курсор не будет переводится и каждый раз запуская программу слова Hello World! будут помещаться на одной строке, а не на новых! Т.е. можно сделать глубокомысленное заключение: функция write выводит текст на экран :))))))
Ну вот мы уже близки к концу программы... Последняя сткрока: end. - если begin указывал на начало программы, то end указывает на её конец. Обратите ОЧЕНЬ МНОГО ВНИМАНИЯ на точку: end. - этим мы указываем, что текст программы закончился и дальше читать его не надо. Читать это компилятору а не вам! Как в этом убедится? - не бойтесь экспериментировать! (хотя на начальном уровне лучше поосторожнее) Итак допишем после точки что-то типа этого: Баклан - это звучит гордо!... попытайтесь теперь нажать на Ctrl+F9 и посмотрите результат .... Однако добавление этой строки в любое другое место программы (кроме как вместо Hello World! или где-то рядом с ним :) вызовет ошибку: Error 5: Syntax error. - синтаксическая ошибка - слово Баклан не входит ни в число служебных слов, ни в число стандартных функций и поэтому паскаль его не понимает!

Итак вы узнали 3 служебных слова, 2 стандартные функции и написали первую программу!!


Однако много чего осталось за кадром, попытаюсь объяснить всё это подробнее: Что происходит при нажатии Ctrl+F9??: Запускаются программы - компилятор и линкер:
Компилятор - специальная программа, которая проверяет ошибки в вашей программе, и создаёт специальный файл: *.obj Линкер - специальная программа, которая превращает obj-файл в exe-файл ... и, если компиляция и линковка прошли успешно (т.е. без ошибок), запускается ваша программа на исполнение Кстати опции линкера и компилятора можно настроить здесь: Options -> Linker ... и Options -> Compiler ... однако пока там лучше ничего не менять!! Что происходит при нажатии Alt+F5???

Появляется экран пользователя, т.е. экран с тем, что программа выводит Читать далее...

Итак системой счисления, а вернее её основанием, называется колчество знаков. Так для десятичной системы - 10 знаков (от 0 до 9), шестнадцатеричной - 16 (0..F), а следовательно у двоичной всего 2 знака - 0 или 1. Обозначаются двоичные числа так: 110101b. b - это сокращение от слова Binary (двоичный). Рассмотрим несколько двоичных чисел: 0000b 0

0001b 1
0010b 2
0011b 3
0100b 4
и т.д...

Теперь о переводе в десятичную систему: перевод осуществляестся по тому же принципу, что и в шестнадцатеричной, т.е: 101101b = 1 * 2 5 + 0 * 2 4 + 1 * 2 3 + 1 * 2 2 + 0 * 2 1 + 1 * 2 0 = 45 = 2Dh Для тех, кто не очень внимательно читал предыдущий выпуск, повторюсь: берём самую правую цифру и умножаем на 2 в 0 степени, сдвигаемся на одну цифру влево и умножаем на 2 в 1, ......... и т.д. пока не дойдём до конца. Вся сложность этого метода состоит в том, что нужно помнить много степеней 2 (или той системы из которой переводим), на первый взгляд это тяжело, но по-переводив пару сотен чисел степени запомнятся сами собой. Как можно заметить, этот метод годится для перевода чисел из любых систем счисления в 10-ую, только нужно домножать на основание системы.

Теперь о переводе наоборот: из 10-ой в 2-ую. Тут тоже действует уже, надеюсь, известный вам способ деления, т.е. число делим на 2; число получившеесе в остатке является младшей двоичной цифрой. Затем уже частное поделить на 2 и полученый остаток даст следующую влево 2-ую цифру. Продолжая таким образом пока в частном не получится 0, из остатков получим все необходимые 2-ые цифры. Частное Остаток Двоичная цифра
45 / 2 22 1 1 (младшая цифра)
22 / 2 11 0 0
11 / 2 5 1 1
5 / 2 2 1 1
2 / 2 1 0 0
1 / 2 0 1 1 (старшая цифра)
Тут также нет ничего сложного.

Теперь о переводе в шестнадцатеричную систему: тут алгоритм посложнее: начиная с правой цифры разбиваете число на соответствующие 16-ой системе. Ясно это будет из дальнейших примеров: 101101b разбиваем справа: 1b = 1h, 01b=1h, 101b=5h 1101b=Dh СТОП! Первая правая цифра уже есть! Рассмотрим оставшуюся часть: 10b = 2h, и следовательно наше число 101101b = 2Dh. Почему мы остановились после 1101b ? Просто потому, что 01101b=Dh, а 101101b > Fh, а нам нужно получить только одну цифру числа. Ещё один пример, показан он по другому: 10101011b = (1010)(1011)b = ABh Т.е. нужно запомнить первые 16 чисел 2-ой системы и тогда сразу будет видно, когда нужно остановиться. Число 01011b так же равно Bh, но при этом нуль слева нам совсем не нужен, т.к. он не играет никаой роли, т.е. мы можем дополнить число любым количеством нулей слева и поэтому этот на этот нуль мы не смотрим, а следущее число 101011b > Fh = 1111b и значит мы производим разбивку по 4-ой цифре, т.е. (1010)b и (1011)b. Это и даёт нам конечный результат.

Двойчная арифметика. Сейчас мы заново научимся складывать числа столбиком :) 1011101 +1111001 11010110 Правила всё те же, что и для десятичной системы, но нужно помнить, что 1b + 1b = 10b. Вычитание - это всё наоборот, 10b - 1b = 1b, а правила - знакомые со школы!

А теперь поговорим об отрицательных числах. Начнём с простого числа (-1). Как же можно представить его в двоичном виде ?? Ответ кроется в следуещем соображении: (-а) = 0 - а :))) Тут вроде бы всё ясно, НО какой глубокий смысл! Рассмотрим число (-1): (-1) = 0 - 1, а теперь в двоичном виде: 000000000 -000000001 111111111 Каково ??? Удивительно, но это логично: попробуйте к 111111111111b прибавить 000001b и получится 0 !!!! Это очень интересное свойство двоичных чисел.

Ну а перевод отрицательных двоичных в 10-ую систему происходит так: переворачиваем все цифры на противоположные, т.е. вместо 0 ставим 1 и наоборот. 11111011b -> 00000100b переводим полученное в Dec 00000100b = 4 добавляем 1 4 + 1 = 5 ставим знак минус 5 -> -5 Ладно, а теперь всё проверим..... Запускаем виндовский калькулятор, ставим галочку Bin, вводим 11111011, ставим галочку Dec, и ...... видим на экране 251 ??? Что-то тут не так! В душу вкладывается сомнение: а не гон ли всё это? Устроим ещё одну проверку: берём (-5), ставим галочку Bin, и видим число : 1111111111111111111111111111011 ? Похоже, но не то! (Кстати попробуйте перевести его обратно в Dec :)). Вся фишка заключается в том, что виндовский калькулятор: не умеет преобразовывать отрицательные Bin в Dec. Об числе 1111111111111111111111111111011b : всё дело втом, что когда мы вычитали из 000b 001b, то мы не учли одной очень нужной вещи: к числу можно добавить любое количество нулей слева!! Т.е. 0 у калькулятора выглядит так: 00000000000000000000000000000000b :)) Вот и весь прикол! В (-1) на самом деле бесконечное множество 1.

А теперь ещё одно маленькое соглашение: что бы не уподобляться виндовскому калькулятору и не путать отрицательные числа с положительными (в Bin разумеется), мы будем писать положительные числа, добавляя слева нуль (например: 1 = 01b, 2 = 010b и т.д.), а отрицательные без него (-1 = 1111b)! Тем самым мы предотвратим возможную путаницу!
А нафига они нужны - эти системы?

Да уж волнующая тема! Читать далее...

Для начала разоберёмся с шестнадцатеричной системой счисления. Ничего сложного в ней нет. Мы используем в жизни десятичную систему. Поэтому объяснения начну с аналогий: В десятеричной системе мы используем десять цифр - от 0 до 9 => в шестнадцатеричной цифр должно быть 16. С первой десяткой вроде ясно (те же арабские цифры от 0..9), а как быть с остальными?? Этот вопрос решили просто - взяли первые шесь букв латинского алфавита. Таким образом получается такой набор цифр:

0 1 2 3 4 5 6 7 8 9 A B C D E F

В дальнейшем, для предотвращения путаницы шестнадцатеричные числа я буду писать, ставя на конце букву h или H (например 12A4Dh ) H - это сокращение от англ. hexadecimal (шестнадцатеричное). Для краткости его иногда называют просто Hex. Вообщем-то h пришло из языка Ассемблера. Важно сразу же понять, что десятичные и шестнадцатеричные числа равны только в промежутке от 0..9, т.е. 10 = Аh, 11 = Bh .... 15 = Fh, а 11 не равно 11h.

Преобразование из шеснадцатеричной (HEX) в десятичную (DEC).

Для первода числа в Dec необходимо последовательно начиная с самой левой цифры умножать на 16 и складывать со следующей цифрой. Так как операции выполняются в 10-ом формате, то необходимо цифры A..F преобразовать в 11..15 :) Пример преобразования числа A7B8h:

Первая цифра А(10)
Умножаем на 16

Прибавляем следующую цифру, 7

Умноить на 16

Прибавить следующую цифру, В(11)

Умножить на 16

Прибавить следующую цифру, 8
Десятичное значение 10

Есть ещё один способ перевода из Hex в Dec: A7B8h = 10 * 16 3 + 7 * 16 2 + 11 * 16 1 + 8 * 16 0 = 42936 Этот способ по-моему несколько проще: берём самую правую цифру и умножаем на 16 в 0 степени, сдвигаемся на одну цифру влево и умножаем на 16 в 1, ......... и т.д. пока не дойдём до конца. Вспомните из математики: любое число в 0 степени равно 1 (кроме 0 есстественно)! Вся сложность этого метода состоит в том, что нужно помнить много степеней 16, на первый взгляд это тяжело, но по-переводив пару сотен чисел :) степени запомнятся сами собой. Теперь поговорим об обратном преобразовании из Hex в Dec. Для преобразования необходимо сначала исходное число разделить на 16; число получившеесе в остатке является младшей шестнадатеричной цифрой. Затем уже частное поделить на 16 и полученый остаток даст следующую влево 16-ую цифру. Продолжая таким образом пока в частном не получится 0, из остатков получим все необходимые 16-ые цифры. Тут нужно незабывать делать обратные преобразования, т.е. 10 преобразовывать в А, 11 в B и т.д. Пример переведём число 42936 в Hex: Частное Остаток Шестнадцатиричное значение

42936 / 16 2683 8 8 (младшая цифра)
2683 / 16 167 11 B
167 / 16 10 7 7
10 / 16 0 10 A (cтаршая цифра)


Тем самым ответ: 42936 = A7B8h. Не забудьте, что результат пишется, как бы наоборот, т.е. первый остаток является последней цифрой искомого числа!

Дома не забудьте попрактиковаться - переводите числа на листочке из одной системы в другую, благо есть чем проверять!
А нафига она нужна - эта система?

Да уж! Такой вопрос сразу же возникнет у многих. И в самом деле - всю жизнь обходились десятичной и жалоб не было, а тут понимаешь ли подают какую-то непонятную полубуквеную систему, нафига она нужна ?

Ответа на этот вопрос придётся подождать ещё немножко :( Он в общем-то не сложный, но требует ещё кое-каких дополнительных знаний, которые вы получите на следующем уроке.

Руководитель Национальной ассамблеи азербайджанцев Грузии (НААГ) Дашгын Гюльмамедов приговорен к 4,5 года лишения свободы по обвинению в мошенничестве и присвоении полномочий должностного лица, сообщает 6 августа информагентство Trend.

Как передает Day.Az, уголовное дело против Гюльмамедова было возбуждено в декабре 2008 года. В феврале он был объявлен в розыск, а в марте задержан в Баку. Подробности уголовного дела неизвестны.

Общественно-политическая организация НААГ была создана в 2001 году. Участники этой организации борются за права азербайджанцев, живущих в Грузии, в том числе выступают за признание азербайджанского одним из официальных языков Грузии, а также за создание азербайджанского телеканала.

Как сообщалось ранее, в НААГ арест Гюльмамедова считают частью "тайного плана правительства Азербайджана подавить движение азербайджанцев в Грузии".

Российские казино приглашают в СНГ и Европу

Со времени запрета на организацию и проведение азартных игр в России прошло больше месяца. Пока возобновлять деятельность казино и игровых клубов никто не собирается, поэтому российский игорный бизнес активно ищет новое "место прописки". Предложений из-за рубежа крупным казино поступило уже немало.


Пресс-конференция посла Киргизии в России Раимкула Аттакурова, состоявшаяся 6 августа, оказалась яркой на целый ряд неожиданных заявлений. Аттакуров, в частности, отдал "Газпрому" контрольный пакет акций "Кыргызгаза", а также заявил о планах по проведению футбольного матча между киргизскими гастарбайтерами и московскими скинхедами.

Но для игорного бизнеса гораздо важнее оказались другие слова Аттакурова, почти не растиражированные СМИ. На конференции посол Киргизии предложил российским казино переехать… на Иссык-Куль – самое большое озеро в Киргизии и одну из главных достопримечательностей страны.

По словам Аттакурова, власти Киргизии планируют построить на берегу озера игорный комплекс под незамысловатым названием "Казино". Когда будет возведено "Казино" – неизвестно, так что по степени готовности киргизский проект пока напоминает долгострой российских игорных зон, куда, по задумке чиновников, и должны были отправиться все рулетки и любители азартных игр. Пока ни одна из зон не работает – и неизвестно, когда будет работать.

Заявление Аттакурова, несмотря на всю неопределенность планов Киргизии, тем не менее, весьма показательно. Оно лишний раз доказывает, что на экономических просчетах России не прочь заработать ее соседи.
От Киргизии до Латвии

Оборот казино и залов игровых автоматов в России оценивался в 3,6 миллиарда долларов ежегодно. Значительная часть из этих денег шла в федеральный и региональные бюджеты, но недополучение огромных
Берег Иссык-Куля. Фото пользователя Headscarf с сайта wikipedia.org

средств не смутило чиновников, активно взявшихся за борьбу с игроманией.
Берег Иссык-Куля. Фото пользователя Headscarf с сайта wikipedia.org


Зато многие другие страны тут же объявили о готовности приютить у себя пострадавший бизнес. Одними из первых на запрет казино и залов игровых автоматов отреагировали в Белоруссии. По данным портала Slon.Ru, в Белоруссии сейчас располагается около восьми тысяч казино и залов игровых автоматов, но ни одно из этих заведений не может сравниться по объемам с их вымершими московскими конкурентами. Да и доходы бюджетов от местных казино весьма невелики: всего 13 миллионов долларов в год.

Поэтому неудивительно, что экспансия российских казино за рубеж началась именно с Белоруссии. В середине июля местные СМИ сообщали, что в Минске вот-вот откроется "Шангри Ла" с 12 игровыми столами и 70 игровыми автоматами.

В компании Storm International, которой принадлежит "Шангри Ла", утверждают, что белорусским рынком не ограничатся. Во всяком случае, еще одно казино – X.O. – планируется открыть в Бишкеке. Кроме того, в середине июля портал BFM.Ru сообщал и об интересе компании к таджикскому рынку: Storm International начала поиск специалиста по подбору персонала в этой стране.

Проект привлечения туристов из России с помощью казино разработали и в Латвии. Недавно выбранный мэром Риги Нил Ушаков заявил, что в столице Латвии необходимо создать "маленький Лас-Вегас". Для этого, по мнению Ушакова, надо собрать игорные заведения города под одну крышу многофункционального центра. Этот центр и будет, по замыслу мэра, привлекать азартных россиян.
Запрет на азартный бизнес может обернуться для России потерей не только миллиардов долларов налогов и инвестиций, но и "культурных ценностей". Во всяком случае, Алла Пугачева уже заявила, что намерена переехать в Киев или Минск, потому что там есть, где поиграть.


Любопытно, что в Латвии в 2005 году также пытались почти полностью запретить игорную деятельность, но бизнесмены сумели добиться отмены этого решения. В итоге только государственный бюджет получает от "игровиков" два миллиона латов (4,09 миллиона долларов) налоговых поступлений, а в Риге располагается около 12 тысяч игровых автоматов.
За пределами СНГ

На российские казино летом 2009 года стали претендовать не только страны из числа бывших советских республик. В конце июля, например, стало известно, что в столице Болгарии Софии будет возведено казино стоимостью в 100-120 миллионов евро, которое построят три российские компании и одна болгарская. Кто именно из россиян заинтересовался инвестициями в Болгарию, неизвестно, но, по данным болгарской стороны, среди них есть компании, владевшие крупными казино в Москве.

Не осталась в стороне и Черногория, которая летом становится едва ли не сплошь российской из-за обилия отечественных туристов. Во всяком случае, группа компаний "Корстон", (владелец Korston Hotel & Casino Moscow) готовится развивать игорный бизнес в отеле The Queen of Montenegro – он принадлежит "Корстон" на 75 процентов.

Закрытое московское казино. Фото Мити Алешковского для Читать далее...

Премьер-министры России и Турции Владимир Путин и Реджеп Эрдоган подписали протокол о сотрудничестве в газовой сфере, предусматривающий предварительное согласие турецкой стороны на строительство газопровода "Южный поток" (South Stream) в своих территориальных водах. Об этом сообщает "Интерфакс".

Согласно документу, Турция также даст России разрешение на проведение в турецких территориальных водах изысканий по "Южному потоку".

Предполагается, что "Южный поток" обеспечит поставки газа в Европу в обход Украины. Маршрут газопровода пока точно не определен, однако планируется, что сначала он будет идти из России в Болгарию по дну Черного моря, а затем разделится на две ветки. Одна из них будет транспортировать газ в Грецию и на юг Италии, а вторая - в Сербию, Венгрию и Австрию.

О том, что турецкая сторона согласилась пустить "Южный поток" через свои воды, стало известно 5 августа, когда об этом сообщали РИА Новости со ссылкой на замглавы аппарата правительства России Юрия Ушакова. Тогда же сообщалось, что согласие Турция дала за месяц до визита российского премьера. Источники газеты "Коммерсант" упоминали, что в случае если турецкая сторона даст России допуск в территориальные воды, то "6 августа можно будет считать днем рождения South Stream".

В российско-турецком газовом соглашении также упомянуты планы сотрудничества сторон по проекту "Голубой поток - 2". Эта ветка газопровода пройдет параллельно "Голубому потоку - 1" из РФ в Турцию, который уже построен, а затем через ближневосточные государства будет направлен в Израиль. В ближайшее время "Газпром" намерен провести переговоры с Турцией и Израилем относительно реализации данного проекта.

Стороны также договорились о возведении в Турции крупных подземных хранилищ газа (ПХГ), передает РИА Новости.

Кроме того, представители России и Турции подписали 6 августа протокол о сотрудничестве в сфере атомной энергетики. Согласно документу, в Турции примерно в 200 км от Антальи будет построена первая в стране АЭС. Пока единственным претендентом на проект является консорциум российских "Атомстройэкспорта" и "Интер РАО ЕЭС", а также турецкой Park Teknik.

При этом стороны смогли согласовать стоимость электроэнергии, которую будет производить будущая АЭС. Первоначальное предложение консорциума составляло 21,13 цента за киловатт-час, однако теперь цена снижена до 15,33 цента за киловатт-час.

Китайский подросток, лечившийся от интернет-зависимости, скончался в реабилитационном центре, сообщает The Times. Родители ребенка обратились к региональным властям с просьбой провести справедливое расследование причин инцидента.

15-летний Дэн Сэньшань (Deng Senshan) был помещен в реабилитационный центр в Гуанси-Чжуанском автономном районе Китая 1 августа. Родители подростка хотели таким образом помочь ему избавиться от интернет-зависимости.

По словам отца мальчика, сотрудники медицинского учреждения поместили ребенка в одиночную камеру через несколько часов после его прибытия в центр. Около трех часов 2 августа Дэн Сэньшань скончался в больнице города Наньнин.

О смерти сына отцу сообщили лишь через сутки. Он позвонил в реабилитационный центр, однако руководство учреждения отрицало смерть ребенка. Сообщается, что прибыв на опознание, отец заметил кровь на лице мальчика, на теле погибшего были многочисленные синяки, на руках – следы от наручников.

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

Как заявил один из хирургов больницы, в реанимационном отделении которой скончался Дэн Сэньшань, местная полиция изъяла все медицинские записи подростка в интересах следствия. По словам сотрудников правоохранительных органов, четверо подозреваемых задержаны, расследование этого дела продолжается.

В ноябре 2008 года органы здравоохранения Китая официально признали интернет-зависимость болезнью. Были разработаны диагностические критерии и рекомендации по лечению данного расстройства. Психиатрическим клиникам предписано оказывать помощь пациентам с этим заболеванием.

В июне 2009 года появились сообщения о том, что в одной из клиник для лечения интернет-зависимости используется электросудорожная терапия. 14 июля китайский Минздрав признал такое лечение небезопасным и рекомендовал медицинским учреждениям отказаться от его использования.

В России начались официальные продажи игры Wii Sports Resort для консоли Wii, сообщается на официальном сайте российского подразделения Nintendo. Игра появилась на прилавках магазинов в среду, 5 августа. Жители остальных европейских государств получили возможность поиграть в Wii Sports Resort еще 24 июля текущего года. Японский релиз состоялся 25 июня.

Проект Wii Sports Resort представляет собой сборник из 12 мини-игр. Основной упор разработчики сделали на летних видах спорта - геймеры могут побросать фрисби, покататься на каноэ, водном мотоцикле или водных лыжах, а также объехать на велосипеде тропический остров Wuhu.

Новая игра продается в комплекте с устройством под названием Wii MotionPlus. Этот аксессуар присоединяется к контроллеру Wii Remote, повышая его точность. По словам разработчиков, Wii MotionPlus позволяет консоли Wii отслеживать практически все движения игрока.

Сборник Wii Sports Resort пользуется хорошим спросом в Японии. К 26 июля геймеры купили свыше 750 тысяч копий этой игры. Первая часть Wii Sports, в который было представлено всего пять мини-игр, вышла в конце 2006 года. Сборник продается в комплекте с приставкой Wii во всех регионах кроме Японии и Южной Кореи. На днях стало известно, что во всем мире продано уже 47,62 миллиона копий Wii Sports.

Американский рэпер Снуп Догг примет участие в телешоу "Кто хочет стать миллионером?", сообщает ContactMusic. Выпуск программы с участием рэп-артиста и других знаменитостей, будет приурочен к десятилетнему юбилею викторины.

Помимо Снуп Догга в праздничных выпусках программы, которые будут идти на американском телеканале ABC ежедневно в течение двух недель, также примут участие певица Кэти Перри, актриса Ванесса Уильямс и другие звезды шоу-бизнеса и общественные деятели. Премьера первого юбилейного шоу состоится 9 августа.

По условиям юбилейного "Кто хочет стать миллионером?", каждому из знаменитых участников телешоу предстоит ответить всего на один вопрос (в традиционном варианте игры 15 вопросов). В том случае, если ведущий получит верный ответ, участнику достанутся 50 тысяч долларов. После этого он должен будет пожертвовать выигранные деньги на нужды той или иной благотворительной организации.

Викторина "Кто хочет статья миллионером?" вышла на экраны в сентябре 1998 года. Премьера шоу состоялась на британском телеканале ITV. В августе 1999 года программа вышла в США. В октябре того же года телепередача появилась на российском канале НТВ. Игра получила название "О, счастливчик!", а ее ведущим стал Дмитрий Дибров. Однако в 2001 году передаче вернули оригинальное название, а ее выпуски начал транслировать Первый канал.

В настоящее время правами на производство своих версий "Кто хочет стать миллионером?" владеют более ста телеканалов во всем мире. Цель игры - правильно ответить на 15 вопросов (в некоторых версиях - на 12) из разных областей знаний и заработать главный денежный приз в размере нескольких миллионов. Каждый вопрос имеет четыре варианта ответа, но правильный из них только один.

В том случае, если участник сталкивается с трудностями при ответе на вопрос, у него есть возможность воспользоваться подсказками. Кроме того, он может отказаться от продолжения игры и забрать ту сумму, которую успел заработать.

Выпуски "Кто хочет стать миллионером?" с участием звезд являются традиционной телевизионной практикой. В России такие номера программы обычно готовятся к выпуску в преддверии новогодних праздников.

В Санкт-Петербурге в возрасте 72 лет скончалась поэтесса, сценарист и драматург Альбина Шульгина, сообщает 5 августа агентство ИТАР-ТАСС. Шульгина написала сценарии к более чем 40 фильмам киностудии "Ленфильм", на которой она работала с 1964 года.

До прихода на "Ленфильм" Шульгина училась в Литературном институте, во время обучения в котором участвовала в стройке Братской ГЭС. Среди фильмов, снятых по ее сценариям, картина "Соло" Константина Лопушанского, "Год собаки" Семена Арановича, "Завтрак на траве" Николая Александровича и "Колесо любви" Эрнеста Ясана.

Сценаристка также работала над сериалами "Бандитский Петербург" (1 и 2 части), писала либретто, тексты песен, а также выпустила два поэтических сборника.

Мэр Вологды Алексей Якуничев признан виновным в злоупотреблении должностными полномочиями и приговорен к четырем годам лишения свободы условно, передает 5 августа "Интерфакс". Кроме того, Якуничеву запрещается занимать руководящие должности в течение трех лет.

Вологодскому градоначальнику инкриминировалось два преступления: злоупотребление должностными полномочиями (часть 2 статья 285 УК РФ) и нецелевое расходовании бюджетных средств в особо крупном размере (пункт "б" части 2 статьи 285.1 УК РФ). По решению суда экс-мэр был признан виновным только по первому эпизоду, в то время как обвинение в нецелевом расходовании средств было снято.

Расследование в отношении мэра Вологды Якуничева началось в августе 2007 года. Градоначальника, в частности, заподозрили в злоупотреблении полномочиями при распределении жилья из муниципального жилого фонда, а также в даче взятки следователю с тем, чтобы избежать уголовного преследования.

В июне 2008 года Якуничев, руководившей Вологдой более 13 лет, добровольно сложил с себя полномочия мэра города. Причину своего решения Якуничев тогда не назвал, заметив лишь, что для такого шага "пришло время

Патриарх Московский и всея Руси Кирилл около 17:30 по московскому времени вылетел в Москву из аэропорта города Ровно, сообщает "Интерфакс".

Десятидневный визит главы РПЦ на Украину завершен. В среду вечером патриарх вернется в Москву. За время поездки патриарх Кирилл посетил 11 городов и населенных пунктов Украины и провел в Киево-Печерской лавре заседание Священного Синода.

Визит на Украину стал первой официальной зарубежной поездкой патриарха. В Киеве предстоятель РПЦ встретился с действующим президентом страны Виктором Ющенко и премьер-министром Юлией Тимошенко, а в Донецке - с лидером Партии Регионов Виктором Януковичем.

Поездка патриарха Кирилла по территории Украины сопровождалась акциями протеста националистических организаций, которые поддерживают "Украинскую православную церковь Киевского патриархата" возглавляемую Михаилом Денисенко (Филаретом). Представители националистического всеукраинского объединения "Свобода" даже обратились в Генпрокуратуру Украины с требованием депортировать патриарха.

На встрече с украинским духовенством 4 августа патриарх Кирилл заявил, что одной из причин раскола стала неправильная церковная политика Москвы, которая, однако, была не злонамеренной, а инерционной. Глава РПЦ сказал, что поездка по Украине убедила его в том, что "народ здесь хранит горячую веру в сердцах", и это поможет преодолеть возникающие трудности. Патриарх также выразил готовность принять украинское гражданство.

Московское "Динамо" проиграло шотландскому "Селтику" в ответном матче третьего квалификационного раунда Лиги чемпионов УЕФА и завершило свое выступление на турнире. Матч, состоявшийся на стадионе "Арена Химки" 5 августа, завершился со счетом 2:0 в пользу гостей. "Лента.ру" вела онлайн-трансляцию этого поединка.

Шотландские футболисты активно начали встречу, проводя в атаке большую часть времени, однако москвичам удавалось сдерживать натиск гостей и время от времени проводить острые контратаки. Тем не менее в концовке первого тайма футболисты "Селтика" сумели забить гол - на 44-й минуте отличился форвард гостей Скотт Макдоналд.

Во втором тайме преимуществом попеременно владели обе команды. На 57-ой минуте матча "Динамо" могло сравнять счет в матче, однако защитник "Селтика" Андреас Хинкель вынес мяч с линии ворот. Развязка двухматчевого противостояния наступила уже в добавленное время: Шон Мэлони с нескольких метров не смог поразить ворота Владимира Габулова, но уже в следующей атаке шотландцев Георгиос Самарас забил гол, установив окончательный счет в матче.

Напомним, первая встреча, состоявшаяся 29 июля в Глазго, завершилась победой "Динамо" 1:0. Таким образом в следующую стадию Лиги чемпионов - стыковые матчи за место в основном турнире - проходит "Селтик", победивший по сумме двух встреч со счетом 2:1. "Динамо", в свою очередь, теперь сыграет в отборочном раунде Лиги Европы (бывший Кубок УЕФА).