Одно из препятствий на пути Open Sourse

Это пиратский софт, который надо лицензировать. Я тут вот что заметил - компании, предоставляющие IT услуги, предлагают услуги лицензирования софта, с которых имеют нехилое бабло.
Как я понимаю, механизм такой - конторы, закупая лицензии у своих поставщиков, входят с ними в сговор и поставщик выставляет счёт процентов на 10 больше, чем по своему нормальному прайсу. Контора кладёт эти 10% себе в карман + берёт бабки за саму услугу лицензирования. Поэтому многим IT конторам невыгодно внедрять тот же самый Open Office, потому что на его поставке навара не сделаешь.
Поэтому я думаю, что небольшие IT конторы не будут внедрять Open Sourse.

Spam cannibal'ы

Вот на такой забавный блеклист сегодня наткнулся:

M$ - личное

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

Ляпы современного кино..

Посмотрели "Красный дракон". Так себе фильмец, примечателен только фразой о том, что "у вас в камере нет Интернета - можем провести". И это в восьмидесятом году... Странно, что не сказали про отсутствие сотовой связи.
Кстати, иероглиф, который демонстрировался в фильме, называется "Фин"

Коннект по vnc на локалхост )

Вот так это выглядит:

Во что превратился Санрайз II

Я как-то уже писал о падении ассортимента Санрайза. А в последние месяцы-то вообще нечто. Зашёл, посмотрел - не удержался и сделал скриншот. Вот, полюбуйтесь:



И ведь это компьютерный магазин )))

The Call of Cthulhu

В 2005 году группа фанатов Лавкрафта сделали кино про Ктулху. Сделали очень качественное чёрно-белое немое кино. Рекомендую всем, а поклонникам сей зверюги вообще смотреть обязательно )
Вот несколько скриншотов:

Конец позора.

Ну вот, наконец-то победа! За это красно-белым можно простить весь сезон. До сих пор помню, с чего началось - 1-4, когда Робсон гол престижа забил. И всё, затянулось на семь лет.. Теперь надо свою победную серию начинать.

Мёбиус

Посмотрели сабж. Интересное кино, снятое аргентинскими студентами. Про собаку, пропавшую вместе с пассажирами в метро Буэнос-Айреса. Сюжет научно-фантастический, мораль фильма - несмотря на то, что человет не знает пределов ни себя, ни окружающего мира, он не хочет познавать ничего нового.

Лаба по ДСД

Program stack;

Type
te = integer;
pe = ^node;
node = record
inf: te;
next: pe;
end;

Var
stk: pe;
n: integer;
x: te;

//*************************************************************
//* Вставка в стек *
//*************************************************************
Procedure InsInStack(Var stk: pe; a: te);
Var
q: pe;
Begin
new(q);
q^.inf := a;
q^.next := stk;
stk := q
End;// end of InsInStack()


//*************************************************************
//* Создание стека *
//*************************************************************
Function CreateStack: pe;
Const
MAXLEN = 16;
Var
i,m: integer;
stk: pe;
a: te;
Begin
stk := NIL;

Write('Введите число элементов стека (не более ', MAXLEN,') и нажмите Enter: ');
Readln(m);

If (m > MAXLEN) Or (m < 1) Then
Begin
Writeln('Недопустимый размер стека, программа будет останолена. Нажмите Enter.');
Readln;
Halt(0);
End

Else
Begin
For i := 1 To m Do
Begin
Write('Введите значение ', i, '-го элемента и нажмите Enter: ');
Readln(a);
InsInStack(stk, a)
End;
End;

CreateStack := stk
End; // end of CreateStack()


//*************************************************************
//* Уничтожение стека *
//*************************************************************
Procedure DestroyStack(stk: pe);
Var
q: pe;
Begin
While stk <> NIL Do
Begin
q := stk;
stk := stk^.next;
Dispose(q)
End
End; // end of DestroyStack()


//*************************************************************
//* Поиск элемента *
//*************************************************************
Function Find(stk: pe; a: te): integer;
Var
n: integer;
flag: boolean;
Begin
n := 0;
flag := false;
While stk <> NIL Do
Begin
inc(n);
If stk^.inf = a Then // если искомый элемент найден,
Begin
flag := true; // то поднимаем флаг
Break // и выходим и цикла
End;
stk := stk^.next
End;

If flag = true Then
Find := n
Else
Find := 0
End; // end of Find()


//*************************************************************
//* Печать элементов стека *
//*************************************************************
Procedure PrintStack(stk: pe);
Begin
Writeln('Вывод элементов стека сверху вниз:');
While stk <> NIL Do
Begin
Writeln(stk^.inf);
stk := stk^.next
End
End;

//*************************************************************
//* Точка входа *
//*************************************************************

Begin
stk := NIL;
stk := CreateStack;
PrintStack(stk);
Writeln('Введите искомое значение и нажмите Enter: ');
Readln(x);
n := Find(stk, x);

If n <> 0 Then
Writeln('Элемент стека, содержащий искомое значение, ', n, '-й сверху.')
Else
Writeln('В стеке нет элементов, содержащих искомое значение.');

Writeln('Нажмите Enter для завершения.');
Readln;
DestroyStack(stk)
End.// end of Program