My modules, program and that similar http://blogs.cetki.com/Arch1S/ ru-ru Wed, 09 Jul 2008 04:42:39 +0300 Cetki Blogs Компонент предназначен для выбора или отброжения даты. Он очень похож на календарь, которой появляется в компоненте TDateTimePicker (при значении dmComboBox в свойстве DateMode), но в отличие от последнего может отброжать одновременно несколько смежных месяцев - в зависимости от своих размеров.Свойства компонента TMonthCalendar:property CalColors: TMontCalcolors;C компонентом связвн объект класса TMontCalcolors;property Date: TDate;Определяет выбранную дату;property EndDate: TDate;Определяет конечную дату диапазона выбранных дат;type TCalDayOfWeek = (dowMondey, dowTuesday, dowWednesday, dowThursday, dowFriday, dowSaturday, dowSunday, dowLocaleDefault);priperty FirstDayOfWeek: TCalDayOfWeek;Определяет первый день недели;property MaxDate: TDate;Содержит максимальную дату, месяц который ещё будет доступен для отоброжения в компоненте. Если свойство содержит пустое значение, отброжается любой слудующий месяц;property MaxSelectRange: Integer;Содержит максимальное количество дат в выбранном диапазоне;proprty MinDate: TDate;Содержит максимальную дату, месяц который ещё будет доступен для отьрожения в компоненте. Если свойство содержит пустое значение, отброжается любой предыдущий месяц;property MultiSelect: Boolean;Разрешает/ запрещает возможность выделения диапазона дат;property ShowTodey: Coleean;Разрешает/запрещает показ текущей даты (по показание системных часов) внизу календаря;property ShowTodeyCircle: Boolean;Разрешает/запрещает обводить кружком текущую дату;property WeekNumbers: Boolean;Разрешает/запрещает показ порядковых номеров недель от начала года в левой колонке;Свойство объекта TMonthCalColors:BackColor - цвет фона, разделяющего смежные месяцы;MonthBackColor - цвет фона дат;TextColor - цвет дат;TitleBackColor - цвет фона заголовка;TitleTextColor - цвет текста заголовка;TrailingTextColor - цвет текста ведущих и ведомых дат.50% информации статьи взята из интернетався остальная часть статьи моя Компоненты http://blogs.cetki.com/Arch1S/19267/ http://blogs.cetki.com/Arch1S/19267/ Thu, 19 Jun 2008 20:10:00 +0000 Arch1S Процедура assignДля работы с файлами необходимо связать файловую переменную в программе с файлом на диске.Для этого используют процедуру assign(f,s), f-имя переменной, s-полное имя файла на диске.Например:varf:file of real;beginassign(f,'c:\windows.txt');Процедура resetПосле установления связи между файловой переменной нужно открыть файл, воспользующей процедурой reset.Когда будет выполнина процедура reset(f), f- имя переменной. Далее можно выполнить чтениеи запись информации из файла.Процедура rewriteФайл можно открыть для записи и очистить при помощи процедуры rewrite(f), где f-имя файловой переменной. Она откроети очищит файл, после чего его можно использовать для записи новой информации. Автор: Arch1S Pascal http://blogs.cetki.com/Arch1S/18167/ http://blogs.cetki.com/Arch1S/18167/ Sat, 24 May 2008 09:53:00 +0000 Arch1S Компонент TBevel служит оформительский характер и предназначен для визуального выделения группы элементов или отдельных их друг друга. Вид компонента(рамка, верхняя линия, нижняя линия, левая линия, правая линия, прямоугольник) определяет следующие свойство: Type TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRigthLine); Property Shape: TBevelShape;Стиль компонента определяет другое свойство: Type TBevelStyle = (bsLowered, bsRaised); Property Style: TBevelStyle;Автор: Arch1S Статьи http://blogs.cetki.com/Arch1S/17394/ http://blogs.cetki.com/Arch1S/17394/ Fri, 02 May 2008 20:09:00 +0000 Arch1S Что бы кто нибудь увидел, создал пост... Пишу лабораторные, курсовые по Pascal-ю и Delphi (цены не дорогие) связаться со мной можно по sergej.rebko@gmail.com или ICQ: 445292338 http://blogs.cetki.com/Arch1S/17243/ http://blogs.cetki.com/Arch1S/17243/ Tue, 29 Apr 2008 14:32:00 +0000 Arch1S function GetFileSize(const FileName:string):longint;{Поехали:)}var SearchRec:TSearchRec;begin if FindFirst(ExpandFileName(FileName),faAnyFile,SearchRec)=0 then Result:=SearchRec.Size else Result:=-1; FindClose(SearchRec);end; http://blogs.cetki.com/Arch1S/17240/ http://blogs.cetki.com/Arch1S/17240/ Tue, 29 Apr 2008 13:51:00 +0000 Arch1S Компонент TStaticText очень похож на TLabal за исключением двух аспектов. Во-первых, он порождён от класса TWinControl и, таким образом, имеет Win-окно. Во-вторых, в свойстве BorderStyle добавлено значение sdsSunken, которое создаёт иллюзию рельефности компонента: Type TStaticBorderStyle = (sdsNone, sdsSingle, sdsSunken); Property BorderStyle: TStaticBorderStyle;Все остольные методы, свойство копируют TLabel. Отмечу, что компонент обладает внешней и внутренней рамкой, так что его вид можно без проблем разнообразить.Автор: Arch1S Статьи http://blogs.cetki.com/Arch1S/17230/ http://blogs.cetki.com/Arch1S/17230/ Tue, 29 Apr 2008 12:07:00 +0000 Arch1S Приложение содержит ссылку, которая позволяет запускать Браузер и сразу перейти по указанному в ссылке адресу. Процесс создания URL заключается в переделке компоненты TLabel в URL. Следующие 3 шага показывают как переделать TLabel в URL.Шаг 1 Установите в свойствах шрифта подчёркивание и цвет ссылки. Шаг 2 Установите свойства курсора. Когда мышка попадает на URL, то курсор должен превращаться в ручку. Шаг 3 Записываем событие OnClick для ссылки. Когда пользователь нажимает на ссылку, то запускается браузер, который автоматически переходит на заданный адрес. Однако этого мало! Нужно будет добавить в приложение ещё одну строчку Та самая строчка: ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL); Пример приложения :unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ShellAPI;typeTForm1 = class(TForm) URLLabel: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); procedure URLLabelClick(Sender: TObject);private { Private declarations }public { Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);beginClose;end;procedure TForm1.URLLabelClick(Sender: TObject);ConstURL : String = 'http://blogs.cetki.com/Arch1S';beginShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);end;end. Delphi http://blogs.cetki.com/Arch1S/16551/ http://blogs.cetki.com/Arch1S/16551/ Wed, 09 Apr 2008 19:23:00 +0000 Arch1S Допустим, Image1 - компонент TImage, содержащий растровое изображение. Используйте следующий фрагмент кода для конвертации вашего изображения в JPEG-файл:varMyJpeg: TJpegImage;Image1: TImage;beginImage1:= TImage.Create;MyJpeg:= TJpegImage.Create;Image1.LoadFromFile('TestImage.BMP'); MyJpeg.Assign(Image1.Picture.Bitmap); MyJpeg.SaveToFile('MyJPEGImage.JPG'); end; Delphi http://blogs.cetki.com/Arch1S/16436/ http://blogs.cetki.com/Arch1S/16436/ Mon, 07 Apr 2008 14:17:00 +0000 Arch1S property AlphaBlend:  Boolean; property AlphaBlendValue:  Byte; Свойство AlphaBlend указывает, следует ли (значение True) выводить форму в полупрозрачном режиме, а свойство AlphaBlendValue задает степень ее непрозрачности целочисленным значением от 0 (полностью прозрачна) до 255 (полностью непрозрачна).   Атрибуты прозрачности устанавливаются не только для окна, но и для всех элементов управления, которые в нем расположены. Причем при значениях непрозрачности, больших нуля, сохраняется возможность взаимодействия с окном и визуальными компонентами в полном объеме, даже когда окна не видно на экране (например, когда свойство AlphaBlendValue имеет значение 1).   Полупрозрачные окна могут быть применены для организации панелей инструментов, сквозь которые видно редактируемые документы.   Также предусмотрена возможность полной прозрачности точек формы, имеющих один цвет, задаваемый свойством TransparentColorValue: property TransparentColorValue: TColor; Все точки формы, которые имеют заданный этим свойством цвет, могут быть полностью прозрачны, причем не только визуально, но также и для событий, связанных с манипуляциями мышью. Для включения такого поведения окна предназначено свойство TransparentColor: property TransparentColor: Boolean; Показано окно, в котором находится визуальный компонент Shape, отображающий эллипс белого цвета. Белый цвет также установлен в качестве значения свойства TransparentColorValue формы, а свойству TransparentColor присвоено значение True. При выводе формы над приложением Microsoft Word пользователь имеет возможность видеть часть окна редактора сквозь область компонента, имеющую белый цвет. Также при щелчке мышью в эту область, активным станет приложение MS Word.   Заметим, что подпись формы «Form1», выведенная белым цветом, также является прозрачной. Возможность использования «прозрачного цвета» для формы позволяет легко создавать окна приложений непрямоугольной формы. Для этого следует присвоить одинаковые цвета форме (с помощью свойства Color) и свойству TransparentColorValue, расположив при этом на форме изображение, в котором не используется такой цвет. В результате область, занятая изображением, будет выводиться на экран, а остальная часть окна будет скрыта. При изменениях в изображении, происходящих во время выполнения программы, соответствующим образом будет изменяться форма окна. И, наконец, отметим, что полупрозрачность формы и полная прозрачность ее цвета не исключают друг друга, что позволяет реализовывать различные графические эффекты, например, плавную потерю видимости окна, имеющего непрямоугольную форму.   Delphi http://blogs.cetki.com/Arch1S/16299/ http://blogs.cetki.com/Arch1S/16299/ Thu, 03 Apr 2008 12:51:00 +0000 Arch1S unit pogoda_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; // дата Edit2: TEdit; // температура Button1: TButton; // кнопка Добавить Label1: TLabe1; Label2: TLabe1; procedure FormActivate(Sender: TObject); procedure ButtonlClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} const DBNAME = 'a:\pogoda. db'; var db: TextFile; // файл — база данных procedure TForm1.FormActivate(Sender: TObject); begin AssignFile(db, DBNAME);. {$I-} Append(db); if IOResult = 0 then begin Edit1.Text := DateToStr(Date); // получить текущую дату Edit2.SetFocus; // курсор в поле Edit2 end else begin Rewrite(db); if IOResult <> 0 then begin // сделать недоступными поля ввода // и командную кнопку Edit1.Enabled := False; Edit2.Enabled := False; Buttonl.Enabled := False; ShowMessage('Ошибка создания '+DBNAME); end; end; end; // щелчок на кнопке Добавить procedure TForml.Button1Click(Sender: TObject); begin if (Length(edit1.text)=0) or (Length(edit2.text)=0) then ShowMessage('Ошибка ввода данных.' +#13+'Bce поля должны быть заполнены.') else writeln(db, editl.text,' ',edit2.text); end; // Событие OnClose возникает при закрытии формы procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin CloseFile(db); // закрыть файл БД end; end.   Delphi http://blogs.cetki.com/Arch1S/14494/ http://blogs.cetki.com/Arch1S/14494/ Mon, 25 Feb 2008 12:45:00 +0000 Arch1S unit b_found_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Button1: TButton; Label3: TLabel; CheckBox1: TCheckBox; StringGrid1: TStringGrid; Editl: TEdit; procedure ButtonlClick(Sender: TObject); procedure StringGridlKeyPress(Sender: TObject; var Key: Char); procedure EditlKeyPress(Sender: TObject; var Key: Char); private {Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} { Бинарным поиск в массиве } procedure TForm1.Button1Click(Sender: TObject); const SIZE=10; var a:array[1..SIZE] of integer; { массив ) obr:integer; { образец для поиска} verh:integer; { верхняя граница поиска } niz: integer; { нижняя граница поиска } sred:integer; { номер среднего элемента ) found:boolean; { TRUE — совпадение образца с элементом массива } n:integer; / число сравнений с образцом } i:integer; begin // ввод массива и образца for i:=l to SIZE do a[i]:=StrToInt(StringGridl.Cells[i-l,0] ) ; obr := StrToInt(Editl.text); // поиск verh:=1; niz:=SIZE; n:=0; found:=FALSE; labels.caption:=''; if CheckBoxl.State = cbChecked then Labels.caption: ='verh'+#9+'niz'#9'sred' #13; // бинарный поиск в массиве repeat sred:=Trunc ( (niz-verh) /2)+verh; if CheckBox1.Checked then Labels.caption:=label3.caption +IntToStr(yerh) + #9 +IntToStr(niz) + #9 +IntToStr(sred) + #13; n:=n+1; if a[sred] = obr then found:=TRUE else if obr < a[sred] then niz:=sred-1 else verh:=sred+1; until (verh > niz) or found; if found then labels.caption:=label3.caption +'Совпадение с элементом номер ' + IntToStr(sred)+#13 + 'Сравнений ' + IntToStr(n) else label3.caption:=label3.caption +'Образец в массиве не найден.'; end; // нажатие клавиши в ячейке StringGrid procedure TForml.StringGridlKeyPress(Sender: TObject; var Key: Char), begin if Key = #13 then // нажата клавиша <Enter> if StringGrid1.Col < StringGridl.ColCount - 1 then // курсор в следующую ячейку таблицы StringGridl.Col := StringGrid1.Col +1 else // курсор в поле Editl, в поле ввода образца Editl.SetFocus; end; // нажатие клавиши в поле Editl procedure TForm1.Edit1KeyPress(Sender: TObject;. var Key: Char); begin if Key = #13 // нажата клавиша <Enter> then // сделать активной командную кнопку Button1.SetFocus; end; end. Delphi http://blogs.cetki.com/Arch1S/13886/ http://blogs.cetki.com/Arch1S/13886/ Sun, 17 Feb 2008 13:21:00 +0000 Arch1S Ниже приведен текст программы поиска в массиве целых чисел. Перебор элементов массива осуществляется инструкцией repeat, в теле которой инструкция if сравнивает текущий элемент массива с образцом и присваивает переменной found значение true, если текущий элемент и образец равны. Цикл завершается, если в массиве обнаружен элемент, равный образцу (в этом случае значение переменной found равно true), или если проверены все элементы массива. По завершении цикла по значению переменной found можно определить, успешен поиск или нет. unit s_found_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Button1: TButton; Edit2: TEdit; StringGridi: TStringGrid; procedure ButtonlClick(Sender: TObject); private { Private declarations } public { Public declarations ) end; var Form1: TForm1 ; implementation {$R *.DFM} { поиск в массиве перебором } procedure TForml.ButtonlClick(Sender: TObject); const SIZE=5; var a: array[1..SIZE] of integer; //массив obr: integer; // образец для поиска found: boolean; // TRUE — совпадение образца с элементом // массива i: integer; // индекс элемента массива begin // ввод массива for i:=l to SIZE do a[i] := StrToInt(StringGridl.Cells[i-1,0]); // ввод образца для поиска obr := StrToInt(edit2.text); // поиск found := FALSE; // пусть нужного элемента в массиве нет i:= 1; repeat if a[i] = obr then found := TRUE else i := i+1; until (i > SIZE) or (found = TRUE); if found then ShowMessage('Совпадение с элементом номер ' +IntToStr(i)+#13+'Поиск успешен.') else ShowMessage('Совпадений с образцом нет.'); end; end. Очевидно, что чем больше элементов в массиве и чем дальше расположен нужный элемент от начала массива, тем дольше программа будет искать необходимый элемент. Поскольку операции сравнения применимы как к числам, так и к строкам, данный алгоритм может использоваться для поиска как в числовых, так и в строковых массивах.   Delphi http://blogs.cetki.com/Arch1S/13215/ http://blogs.cetki.com/Arch1S/13215/ Thu, 07 Feb 2008 13:33:00 +0000 Arch1S При решении многих задач возникает необходимость определить, содержит ли массив определенную информацию или нет. Например, проверить, есть ли в списке студентов фамилия Петров. Задачи такого типа называются поиском в массиве. Для организации поиска в массиве могут быть использованы различные алгоритмы. Наиболее простой — это алгоритм простого перебора. Поиск осуществляется последовательным сравнением элементов массива с образцом до тех пор, пока не будет найден элемент, равный образцу, или не будут проверены все элементы. Алгоритм простого перебора применяется, если элементы массива не упорядочены.   Delphi http://blogs.cetki.com/Arch1S/13183/ http://blogs.cetki.com/Arch1S/13183/ Wed, 06 Feb 2008 13:54:00 +0000 Arch1S Функция length возвращает длину строки. Уэтой функции один параметр — выражение строкового типа. Значением функцииlength (целое число) является количество символов, из которых состоит строка.Например, в результате выполненияинструкцийn:=length('Иванов');m:=length(' Невский проспект ');значение переменных n и m будет равно 6 и20.  Функции http://blogs.cetki.com/Arch1S/12994/ http://blogs.cetki.com/Arch1S/12994/ Sun, 03 Feb 2008 20:17:00 +0000 Arch1S Читаю вот такую весч, решил поделиться) 20 мая 1859 г. Николай Петрович Кирсанов, сорокатрехлетний, но уже немолодой с виду помещик, волнуясь, ожидает на постоялом дворе своего сына Аркадия, который только что окончил университет. Николай Петрович был сыном генерала, но предназначенная ему военная карьера не состоялась (он в молодости сломал ногу и на всю жизнь остался «хроменьким»). Николай Петрович рано женился на дочке незнатного чиновника и был счастлив в браке. К его глубокому горю, супруга в 1847 г. скончалась. Все свои силы и время он посвятил воспитанию сына, даже в Петербурге жил вместе с ним и старался сблизиться с товарищами сына, студентами. Последнее время он усиленно занялся преобразованием своего имения. Наступает счастливый миг свидания. Однако Аркадий появляется не один: с ним высокий, некрасивый и самоуверенный молодой человек, начинающий доктор, согласившийся погостить у Кирсановых. Зовут его, как он сам себя аттестует, Евгений Васильевич Базаров. Разговор отца с сыном на первых порах не клеится. Николая Петровича смущает Фенечка, девушка, которую он содержит при себе и от которой уже имеет ребенка. Аркадий снисходительным тоном (это слегка коробит отца) старается сгладить возникшую неловкость. Дома их ждет Павел Петрович, старший брат отца. Павел Петрович и Базаров сразу же начинают ощущать взаимную антипатию. Зато дворовые мальчишки и слуги гостю охотно подчиняются, хотя он вовсе и не думает искать их расположения. Уже на следующий день между Базаровым и Павлом Петровичем происходит словесная стычка, причем ее инициатором является Кирсанов-старший. Базаров не хочет полемизировать, но все же высказывается по главным пунктам своих убеждений. Люди, по его представлениям, стремятся к той или иной цели, потому что испытывают различные «ощущения» и хотят добиться «пользы». Базаров уверен, что химия важнее искусства, а в науке важнее всего практический результат. Он даже гордится отсутствием у него «художественного смысла» и полагает, что изучать психологию отдельного индивидуума незачем: «Достаточно одного человеческого экземпляра, чтобы судить обо всех других». Для Базарова не существует ни одного «постановления в современном нашем быту... которое бы не вызвало полного и беспощадного отрицания». О собственных способностях он высокого мнения, но своему поколению отводит роль не созидательную - «сперва надо место расчистить». Павлу Петровичу «нигилизм», исповедуемый Базаровым и подражающим ему Аркадием, представляется дерзким и необоснованным учением, которое существует «в пустоте». Аркадий старается как-то сгладить возникшее напряжение и рассказывает другу историю жизни Павла Петровича. Он был блестящим и многообещающим офицером, любимцем женщин, пока не встретил светскую львицу княгиню Р*. Страсть эта совершенно изменила существование Павла Петровича, и, когда роман их закончился, он был полностью опустошен. От прошлого он сохраняет лишь изысканность костюма и манер да предпочтение всего английского. Взгляды и поведение Базарова настолько раздражают Павла Петровича, что он вновь атакует гостя, но тот довольно легко и даже снисходительно разбивает все «силлогизмы» противника, направленные на защиту традиций. Николай Петрович стремится смягчить спор, но и он не может во всем согласиться с радикальными высказываниями Базарова, хотя и убеждает себя, что они с братом уже отстали от жизни. Молодые люди отправляются в губернский город, где встречаются с «учеником» Базарова, отпрыском откупщика, Ситниковым. Ситников ведет их в гости к «эмансипированной» даме, Кукшиной. Ситников и Кукшина принадлежат к тому разряду «прогрессистов», которые отвергают любые авторитеты, гоняясь за модой на «свободомыслие». Они ничего толком не знают и не умеют, однако в своем «нигилизме» оставляют далеко за собой и Аркадия и Базарова. Последний Ситникова откровенно презирает, а у Кукшиной «занимается больше шампанским». Аркадий знакомит друга с Одинцовой, молодой, красивой и богатой вдовой, которой Базаров сразу же заинтересовывается. Интерес этот отнюдь не платонический. Базаров цинично говорит Аркадию: «Пожива есть...» Аркадию кажется, что он влюблен в Одинцову, но это чувство напускное, тогда как между Базаровым и Одинцовой возникает взаимное тяготение, и она приглашает молодых людей погостить у нее. В доме Анны Сергеевны гости знакомятся с ее младшей сестрой Катей, которая держится скованно. И Базаров чувствует себя не в своей тарелке, он на новом месте начал раздражаться и «глядел сердито». Аркадию тоже не по себе, и он ищет утешения в обществе Кати. Чувство, внушенное Базарову Анной Сергеевной, ново для него; он, так презиравший всякие проявления «романтизма», вдруг обнаруживает «романтика в самом себе». Базаров объясняется с Одинцовой, и хотя та не тотчас же освободилась от его объятий, однако, подумав, она приходит к выводу, что «спокойствие лучше всего на свете». Не желая стать рабом своей страсти, Базаров уезжает к отцу, уездному лекарю, живущему неподалеку, и Одинцова не удерживает гостя. В дороге Базаров подводит итог происшедшему и говорит: «...Лучше камни бить на мостовой, чем позволить женщине завладеть хотя бы кончиком пальца. Это всё вздор». Отец и мать Базарова не могут надышаться на своего ненаглядного «Енюшу», а он скучает в их обществе. Уже через пару дней он покидает родительский кров, возвращаясь в имение Кирсановых. От жары и скуки Базаров обращает внимание на Фенечку и, застав ее одну, крепко целует молодую женщину. Случайным свидетелем поцелуя становится Павел Петрович, которого до глубины души возмущает поступок «этого волосатого». Он особенно негодует еще и потому, что ему кажется: в Фенечке есть что-то общее с княгиней Р*. Согласно своим нравственным убеждениям, Павел Петрович вызывает Базарова на поединок. Чувствуя себя неловко и, понимая, что поступается принципами, Базаров соглашается стреляться с Кирсановым-старшим («С теоретической точки зрения дуэль - нелепость; ну, а с практической точки зрения - это дело другое»). Базаров слегка ранит противника и сам подает ему первую помощь. Павел Петрович держится хорошо, даже подшучивает над собой, но при этом и ему и Базарову неловко. Николай Петрович, от которого скрыли истинную причину дуэли, также ведет себя самым благородным образом, находя оправдание для действий обоих противников. Последствием дуэли становится и то, что Павел Петрович, ранее решительно возражавший против женитьбы брата на Фенечке, теперь сам уговаривает Николая Петровича совершить этот шаг. И у Аркадия с Катей устанавливается гармоничное взаимопонимание. Девушка проницательно замечает, что Базаров для них - чужой, потому что «он хищный, а мы с вами ручные». Окончательно потерявший надежду на взаимность Одинцовой Базаров переламывает себя и расстается с ней и Аркадием. На прощание он говорит бывшему товарищу: «Ты славный малый, но ты все-таки мякенький, либеральный барич...» Аркадий огорчен, но довольно скоро утешается обществом Кати, объясняется ей в любви и уверяется, что тоже любим. Базаров же возвращается в родительские пенаты и старается забыться в работе, но через несколько дней «лихорадка работы с него соскочила и заменилась тоскливою скукой и глухим беспокойством». Пробует он заговаривать с мужиками, однако ничего, кроме глупости, в их головах не обнаруживает. Правда, и мужики видят в Базарове что-то «вроде шута горохового». Практикуясь на трупе тифозного больного, Базаров ранит себе палец и получает заражение крови. Через несколько дней он уведомляет отца, что, по всем признакам, дни его сочтены. Перед смертью Базаров просит Одинцову приехать и попрощаться с ним. Он напоминает ей о своей любви и признается, что все его гордые помыслы, как и любовь, пошли прахом. «А теперь вся задача гиганта - как бы умереть прилично, хотя никому до этого дела нет... Все равно: вилять хвостом не стану». С горечью говорит он, что не нужен России. «Да и кто нужен? Сапожник нужен, портной нужен, мясник...» Когда Базарова по настоянию родителей причащают, «что-то похожее на содрогание ужаса мгновенно отразилось на помертвевшем лице». Проходит шесть месяцев. В небольшой деревенской церкви венчаются две пары: Аркадий с Катей и Николай Петрович с Фенечкой. Все были довольны, но что-то в этом довольстве ощущалось и искусственное, «точно все согласились разыграть какую-то простодушную комедию». Со временем Аркадий становится отцом и рьяным хозяином, и в результате его усилий имение начинает приносить значительный доход. Николай Петрович принимает на себя обязанности мирового посредника и усердно трудится на общественном поприще. Павел Петрович проживает в Дрездене и, хотя по-прежнему выглядит джентльменом, «жить ему тяжело». Кукшина обитает в Гейдельберге и якшается со студентами, изучает архитектуру, в которой, по ее словам, она открыла новые законы. Ситников женился на княжне, им помыкающей, и, как он уверяет, продолжает «дело» Базарова, подвизаясь в роли публициста в каком-то темном журнальчике. На могилу Базарова часто приходят дряхлые старички и горько плачут и молятся за упокой души безвременно усопшего сына. Цветы на могильном холмике напоминают не об одном спокойствии «равнодушной» природы; они говорят также о вечном примирении и о жизни бесконечной... http://blogs.cetki.com/Arch1S/12568/ http://blogs.cetki.com/Arch1S/12568/ Sun, 27 Jan 2008 20:22:00 +0000 Arch1S Инструкция repeat, как и инструкция while, используется в программе в том случае, если необходимо выполнить повторные вычисления (организовать цикл), но число повторений во время разработки программы неизвестно и может быть определено только во время работы программы, т. е. определяется ходом вычислений. В общем виде инструкция repeat записывается следующим образом: repeat // инструкции unti1 условие где условие - выражение логического типа, определяющее условие завершения цикла. Инструкция repeat выполняется следующим образом: 1. Сначала выполняются находящиеся между repeat и until инструкции тела цикла. 2. Затем вычисляется значение выражения условие. Если условие ложно (значение выражения условие равно False), то инструкции тела цикла выполняются еще раз. 3. Если условие истинно (значение выражения условие равно True), то выполнение цикла прекращается. Таким образом, инструкции цикла, находящиеся между repeat и unti1, выполняются до тех пор, пока условие ложно (значение выражения условие равно False). Внимание! Инструкции цикла, находящиеся между repeat и until, выполняются как минимум один раз. Для того чтобы цикл завершился, необходимо, чтобы инструкции цикла, располагающиеся между repeat и until, изменяли значения переменных, входящих в выражение условие. В качестве примера использования инструкции repeat рассмотрим программу, которая проверяет, является ли введенное пользователем число простым (как известно, число называется простым, если оно делится только на единицу и само на себя). Например, число 21 - обычное (делится на 3), а число 17 - простое (делится только на 1 и на 17). Проверить, является ли число п простым, можно делением числа п на два, на три и т. д. до п и проверкой остатка после каждого деления. Если после очередного деления остаток равен нулю, то это означает, что найдено число, на которое п делится без остатка. Сравнив п и число, на которое п разделилось без остатка, можно определить, является ли п простым числом. unit simple_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; // кнопка Проверить Label1: TLabel; Edit1: TEdit; // поле ввода числа Label2: TLabe1; // поле вывода результата procedure ButtonlClickfSender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ButtonlClick(Sender: TObject) ; var n: integer; // проверяемое число d: integer; // делитель r: integer; // остаток от деления п на d begin n:=StrToInt(Editl.text); d := 2; // сначала будем делить на два repeat r := n mod d; if r <> 0 // n не разделилось нацело на d then d := d + 1; until r = 0; // найдено число, на которое п разделилось без остатка label2.caption:=Edit1.text; if d = n then Iabel2.caption:=label2.caption + ' - простое число.' else label2.caption:=label2.caption + ' - обычное число.'; end; end. Delphi http://blogs.cetki.com/Arch1S/12491/ http://blogs.cetki.com/Arch1S/12491/ Sat, 26 Jan 2008 21:08:00 +0000 Arch1S Алгоритмы решения многих задач являются циклическими, т. е. для достижения результата определенная последовательность действий должна быть выполнена несколько раз. Например, программа контроля знаний выводит вопрос, принимает ответ, добавляет оценку за ответ к сумме баллов, затем повторяет это действие еще и еще раз, и так до тех пор, пока испытуемый не ответит на все вопросы. Другой пример. Для того чтобы найти фамилию человека в списке, надо проверить первую фамилию списка, затем вторую, третью и т. д. до тех пор, пока не будет найдена нужная фамилия или не будет достигнут конец списка. Алгоритм, в котором есть последовательность операций (группа инструкций), которая должна быть выполнена несколько раз, называется циклическим, а сама последовательность операций именуется циклом. В программе цикл может быть реализован при помощи инструкций for, while и repeat. Статьи http://blogs.cetki.com/Arch1S/11483/ http://blogs.cetki.com/Arch1S/11483/ Sun, 20 Jan 2008 12:48:00 +0000 Arch1S Математические функции Функция Значение Аbs (n) Абсолютное значение n Sqrt (n) Квадратный корень из n Sqr (n) Квадрат n Sin (n) Синус n Cos (n) Косинус n Arctan (n) Арктангенс n Ехр(n) Экспонента n Ln(n) Натуральный логарифм n Rardom(n) Случайное целое число в диапазоне от 0 до n- 1 Величина угла тригонометрических функций должна быть выражена в радианах. Для преобразования величины угла из градусов в радианы используется формула (а*з.141525б)/180, где: а— величина угла в градусах; 3.1415926 — число л. Вместо дробной константы 3.1415926 можно использовать стандартную именованную константу PI. В этом случае выражение пересчета угла из градусов в радианы будет выглядеть так: a*Pi/180.   Статьи http://blogs.cetki.com/Arch1S/9927/ http://blogs.cetki.com/Arch1S/9927/ Thu, 17 Jan 2008 16:57:00 +0000 Arch1S Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение. В общем виде инструкция присваивания выглядит так: Имя : = Выражение; где: Имя — переменная, значение которой изменяется в результате выполнения инструкции присваивания; : = — символ инструкции присваивания. Выражение — выражение, значение которого присваивается переменной, имя которой указано слева от символа инструкции присваивания. Пример: Surama := Сеnа * Kol; Skidka := 10; Found := False;   Delphi http://blogs.cetki.com/Arch1S/9879/ http://blogs.cetki.com/Arch1S/9879/ Wed, 16 Jan 2008 20:12:00 +0000 Arch1S Свойство Описание property Handle: HFont; Содержит дескриптор шрифта property Name: TFontName; Содержит имя (начертание) шрифта, например, Arial property Style: TFontStyles; TFontStyle = (fsBold, fsltalic, fsUnderline, fsStrikeOut) ; TFontStyles = set of TFontStyle; Содержит стиль (особенности начертания) шрифта: соответственно жирный, курсив, подчеркнутый и перечеркнутый property Color: TColor; TColor = - (COLOR ENDCOLORS + 1} . . $2FFFFFF; Определяет цвет шрифта property Charset: TFontCharset TFontCharset = 0..255; Содержит номер набора символов шрифта. По умолчанию равно 1 (DEFAULT CHARSET). Для вывода символов кириллицы требуется RUSSIAN CHARSET property Pitch: TFontPitch; TFontPitch = (fpDefault, fpVariable, fpFixed); Определяет способ установки ширины символов шрифта. Значение fpFixed соответствует моноширинным шрифтам; fpVariable— шрифтам с переменной шириной символа. Установка fpDefault означает принятие того способа, который определен начертанием property Height: Integer; Содержит значение высоты шрифта в пикселах property PixelsPerlnch: Integer; Определяет число точек на дюйм. Первоначально равно числу точек на дюйм в контексте экрана. Программист не должен изменять это свойство, т. к. оно используется системой для приведения изображения на экране и на принтере к одному виду property Size: Integer; Содержит размер шрифта в пунктах (как принято в Windows). Это свойство связано с Height соотношением:  Font. Size := -Font . Height*72/ Font . PixelsPerlnch   Классы http://blogs.cetki.com/Arch1S/9830/ http://blogs.cetki.com/Arch1S/9830/ Tue, 15 Jan 2008 20:10:00 +0000 Arch1S