Олимпиада

В России появились б...

Четверг, 30 Август 2012
Компания HEC/COMPUCASE Europe GmbH объявляет о начале продаж в России блоков питания марки COUGAR серии CMX. Новые БП мощные и тихие, с модульным подключением кабелей. Линейка состоит из 4 моделей мощностью 550,...
Читать полностью

ЧП добровольно выпла...

Вторник, 28 Август 2012
Днепропетровска компания "Безопасность, охрана, гарантия", предоставляющая услуги по охране, использовала 14 компьютеров с установленными, на каждом из них, пиратскими копиями операционных систем и офисных приложений Microsoft. Согласно действующего законодательства, за...

«SMS XL» от «Киевста...

Суббота, 25 Август 2012
До 15 июня 2011 года абоненты предоплаченной связи Киевстар могут воспользоваться новым акционным предложением SMS XL с включенным объемом SMS для отправки на номера сети Киевстар и DJUICE.Киевстар вводит новое акционное...
Читать полностью

Вредоносные программ...

Четверг, 23 Август 2012
Согласно данным мониторинга, абсолютным лидером по количеству заражений в Интернете в этом месяце стал размещаемый на порно-сайтах скрипт из семейства FakeUpdate - Trojan.JS.FakeUpdate.bp. Он предлагает скачать видео соответствующего содержания, однако для...
Читать полностью

Samsung анонсировала...

Понедельник, 20 Август 2012
Компания Samsung Mobile Display анонсировала выход семидюймовых дисплеев, изготовленных по ее технологии Super-AMOLED, пишет ресурс OLED-Display.net со ссылкой на корейское издание Etnews Новые дисплеи имеют разрешение 1200 на 600 пикселей.
Календарь
< Январь 2018 >
П В С Ч П С В
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31        
Анонсы новостей

Современные возможности программирования и качественный ламинат в интернет магазине

На сегодня в интернете есть немало сайтов, на которых можно приобрести отличные строительные материалы для отделочных работ.

Читать полностью
Яндекс.Метрика


Олимпиада

Оказывается что тема написания вирусов на Делфи очень актуальна!!!

Оказывается, что тема написания вирусов на Делфи очень актуальна!!!

Вот:

{====[BLACK MAMMONTH VIRUS, ОБУЧАЮЩАЯ
ВЕРСИЯ. MADE IN USSR, Dr.Klouniz]====}
{ КАК ИГРАТЬСЯ С ЭТИМ ВИРУСОМ. ЮЗЕР МАНУАЛ:
1.Создаем каталог c:inf
2.Компилируем вирус (Project--> Build)
3.Cравниваем размер полученного файла с константой VIRLEN; если не совпадает-
измени константу и перекомпилиру }
4.

Читать полностью

 

ZLib;

uses
ZLib;

{ Compress a stream }

procedure CompressStream(inpStream, outStream: TStream);
var
InpBuf, OutBuf: Pointer;
InpBytes, OutBytes: Integer;
begin
InpBuf := nil;
OutBuf := nil;
try
GetMem(InpBuf, inpStream.Size);
inpStream.Position := 0;
InpBytes := inpStream.Read(InpBuf^, inpStream.Size);
CompressBuf(InpBuf, InpBytes, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if InpBuf nil then FreeMem(InpBuf);
if OutBuf nil then FreeMem(OutBuf);
end;
end...

Читать полностью

 

Рекурсия (Recursion) это мощный метод программирования который позволя

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

Читать полностью

 

Код Delphi

Код Delphi:

program Project37;
{$APPTYPE CONSOLE}

Uses
SysUtils;

VAR
fIn, fOut: Text;
S,S1,S2: String;
i,n:integer;
A:array[1..26] of string;
BEGIN
for i:=65 to 90 do begin
A[i-64]:=chr(i);
end;

ASSIGNFILE(fIn,'d:\Text.in');
ASSIGNFILE(fOut,'d:\Text.out');
RESET(fIn);

WHILE NOT EOF (fIn) DO BEGIN
READLN(fIn,S);
END;

For i:=1 to length(S) do begin
S1:=UpCase(S[i]);
for n:=1 to 26 do begin
if S1=' ' then begin S2:=S2+' '; break; end
else if S1=A[n] then begin S2:=S2+IntToStr(n)+','...

Читать полностью

 

Разработка программы «Блокнот» для хранения информации по месяцам года Delphi

Создайте новый проект. Сохраните новое приложение в текущей папке: файл модуля под именем Main.pas, файл проекта — Notebook.dpr.
1-й этап. Создание визуального интерфейса приложения
1.1. Задайте значения свойств формы следующим образом:
Name – NotebookF;
Caption – Блокнот.
1.2.

Читать полностью

 
Другие статьи...
Новости

Современные возможно...

Суббота, 28 Ноябрь 2015
Читать полностью На сегодня в интернете есть немало сайтов, на которых можно приобрести отличные строительные материалы для отделочных работ.

Сетевые экраны: реко...

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

Язык программировани...

Суббота, 10 Октябрь 2015
Читать полностьюВ современном мире существует множество профессий, среди которых профессия программиста довольно таки востребована, потому как все в мире компьютеризировано и автоматизировано, и надо создавать дополнительные программы для слаженной работы многофункциональных...

Программирование на...

Среда, 24 Июнь 2015
Читать полностью Благодаря созданию компьютера у многих людей появились новые профессии, связанные с новейшими технологиями. Однако вместе с этим фактом ряд стабильно существующих профессий многие годы просто стали не нужны, и начался процесс...
Читать полностью

Язык програмирования

Суббота, 06 Июнь 2015
Читать полностью В этой статье мы поговорим об изучении языка программирования Delphi , довольно сложно выучить его, прочитав одну статью, а точнее невозможно. Также и одна книга не решит проблемы с языком, вам...
Читать полностью
Опрос
На каком языке Вы программируете?
 
Яндекс.Метрика