Программирование на языках высокого уровня 2

Логическая схема юниты Интегрированная среда разработки Delphi. Разработка приложения в Delphi. Ввод-вывод данных в Delphi. Windows как среда разработки и выполнения программ. Структура простого проекта Delphi. Менеджер проектов. Компиляция, сборка и выполнение программ. Установка параметров проекта. Язык Object Pascal. Классы. Типы данных в Object Pascal. Исключительные ситуации. Приведение типов данных. Базовые классы VCL. Программы, управляемые событиями. Создание и уничтожение формы. Стандартные визуальные компоненты. Дополнительные визуальные компоненты. Компоненты Internet. Компоненты доступа к базам данных. Визуальные компоненты Windows-интерфейса. Списки и коллекции. Функции печати задача №2 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; memo: TMemo; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,j,b,k:integer; a:array [1..3267] of integer; begin a[1]:=2; j:=1; for i:=3 to strtoint(edit1.text) do begin b:=1; for k:=1 to j do if ((i mod a[k])=0) then b:=0; if b=1 then begin j:=j+1; a[j]:=i; end; end; if edit1.Text=inttostr(1) then memo.Text:=inttostr(1); if edit1.Text=inttostr(2) then memo.Text:=inttostr(2); if b=1 then memo.Text:=edit1.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin memo.text:=’ ‘; end; end. задача №3 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; ScrollBar1: TScrollBar; procedure ScrollBar1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ScrollBar1Change(Sender: TObject); begin edit1.Width:=scrollbar1.Position*5; end; end. задача №4 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; procedure N3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.N3Click(Sender: TObject); begin application.terminate; end; end. задача №5 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f:textfile; begin savedialog1.DefaultExt:=’txt’; savedialog1.Filter:=’текстовый файл(*.txt)|*.txt’; if savedialog1.Execute then begin assignfile(f, savedialog1.FileName); rewrite(f); write(f,edit1.Text); end; closefile(f); end; end. задача №6 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.N1Click(Sender: TObject); begin checkbox1.Color:=clred; checkbox1.font.Color:=clgreen; end; procedure TForm1.N2Click(Sender: TObject); begin checkbox1.Color:=clblack; checkbox1.font.Color:=clwhite; end; procedure TForm1.N3Click(Sender: TObject); begin checkbox1.Color:=clwhite; checkbox1.font.Color:=clblack; end; end. задача №7 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) x: TEdit; y: TEdit; z: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; RadioGroup1: TRadioGroup; Label5: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if RadioGroup1.Itemindex=0 then label5.Caption:=inttostr(strtoint(x.text)+strtoint(y.text)+strtoint(z.text)) else if RadioGroup1.Itemindex=1 then label5.Caption:=inttostr(strtoint(x.text)*strtoint(y.text)*strtoint(z.text)) else if RadioGroup1.ItemIndex=2 then label5.Caption:=inttostr(sqr(strtoint(x.text))+sqr(strtoint(y.text))+sqr(strtoint(z.text))) else label5.Caption:=inttostr(error); end; end. задача №8 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.LoadFromFile(listbox1.items[listbox1.itemindex]); end; end. задача №9 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) StringGrid1: TStringGrid; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to 10 do begin stringgrid1.Cells[0,i]:=’команда’+inttostr(i); stringgrid1.Cells[1,i]:=inttostr(0); end; stringgrid1.Cells[1,0]:=’очки’; end; procedure TForm1.Button1Click(Sender: TObject); var t,m,s,max:integer; rab:string; begin t:=strtoint(edit2.Text); m:=strtoint(edit3.Text); StringGrid1.Cells[1,t]:= inttostr(m); end; end. задача №10 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart; type TForm1 = class(TForm) Chart1: TChart; Button1: TButton; Series1: TPointSeries; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f:textfile; b:array [1..10] of double; a:array [1..10] of string; i:integer; begin opendialog1.DefaultExt:=’txt’; opendialog1.Filter:=’*.txt|*.txt’; if opendialog1.Execute then assignfile(f, opendialog1.FileName); reset(f); for i:=1 to 10 do begin readln(f,a[i]); b[i]:=strtoint(a[i]); end; chart1.Series[0].AddArray(b); end; end.задача №11 unit PaintUnit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, Grids, TeeProcs, TeEngine, Chart, ActnList, Menus, Buttons, ComCtrls; type TPaintMainForm = class(TForm) Image1: TImage; Label1: TLabel; Edit1: TEdit; ScrollBar1: TScrollBar; Label2: TLabel; Edit2: TEdit; ScrollBar2: TScrollBar; Label3: TLabel; Edit3: TEdit; ScrollBar3: TScrollBar; Panel1: TPanel; Label4: TLabel; ActionList1: TActionList; Action1: TAction; Action2: TAction; Action3: TAction; Action4: TAction; Action6: TAction; Action7: TAction; Action8: TAction; Action9: TAction; Edit4: TEdit; UpDown1: TUpDown; Label5: TLabel; SpeedButton3: TSpeedButton; Action5: TAction; Bevel1: TBevel; Bevel2: TBevel; procedure FormCreate(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ScrollBar1Change(Sender: TObject); procedure ScrollBar3Change(Sender: TObject); procedure ScrollBar2Change(Sender: TObject); procedure Action1Execute(Sender: TObject); procedure Action4Execute(Sender: TObject); procedure Action6Execute(Sender: TObject); procedure Action7Execute(Sender: TObject); procedure Action8Execute(Sender: TObject); procedure Action9Execute(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure Action5Execute(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var PaintMainForm: TPaintMainForm; implementation uses PaintUnit2; {$R *.DFM} procedure TPaintMainForm.FormCreate(Sender: TObject); begin UpDown1.Associate:=Edit4; UpDown1.Min:=10; UpDown1.Max:=100; UpDown1.Increment:=5; Image1.Canvas.FillRect(clientRect); Image1.Canvas.Pen.Style:=psSolid; end; var drag:boolean=false; procedure TPaintMainForm.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Var a,code1:integer; c:Tcolor; begin c:=Image1.Canvas.Pen.Color; val (edit4.text,a,code1); if code1=0 then drag:=true; image1.Canvas.MoveTo(x,y); end; procedure TPaintMainForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if drag then image1.Canvas.LineTo(x,y); end; procedure TPaintMainForm.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin drag:=false; end; procedure TPaintMainForm.ScrollBar1Change(Sender: TObject); var red,green,blue :byte; c:tcolor; begin red:=scrollbar1.Position; green:=scrollbar2.Position; blue:=scrollbar3.Position; edit1.Text:=inttostr(red); edit2.Text:=inttostr(green); edit3.Text:=inttostr(blue); c:= rgb(red,green,blue); image1.Canvas.brush.Color:=c; panel1.Color:=c; image1.canvas.pen.color:=C; end; procedure TPaintMainForm.ScrollBar3Change(Sender: TObject); var red,green,blue :byte; c:tcolor; begin red:=scrollbar1.Position; green:=scrollbar2.Position; blue:=scrollbar3.Position; edit1.Text:=inttostr(red); edit2.Text:=inttostr(green); edit3.Text:=inttostr(blue); c:= rgb(red,green,blue); image1.Canvas.brush.Color:=c; panel1.Color:=c; image1.canvas.pen.color:=C; end; procedure TPaintMainForm.ScrollBar2Change(Sender: TObject); var red,green,blue :byte; c:tcolor; begin red:=scrollbar1.Position; green:=scrollbar2.Position; blue:=scrollbar3.Position; edit1.Text:=inttostr(red); edit2.Text:=inttostr(green); edit3.Text:=inttostr(blue); c:= rgb(red,green,blue); image1.Canvas.brush.Color:=c; panel1.Color:=c; image1.canvas.pen.color:=C; end; procedure TPaintMainForm.Action1Execute(Sender: TObject); begin Image1.Canvas.FillRect(ClientRect); end; procedure TPaintMainForm.Action4Execute(Sender: TObject); begin Image1.Canvas.FillRect(ClientRect); PaintMainForm.Close; end;procedure TPaintMainForm.Action6Execute(Sender: TObject); begin Image1.Canvas.Pen.Style:=psDash; end; procedure TPaintMainForm.Action7Execute(Sender: TObject); begin Image1.Canvas.Pen.Style:=psDot; end; procedure TPaintMainForm.Action8Execute(Sender: TObject); begin Image1.Canvas.Pen.Style:=psDashDot; end; procedure TPaintMainForm.Action9Execute(Sender: TObject); begin Image1.Canvas.Pen.Style:=psSolid; end; procedure TPaintMainForm.SpeedButton3Click(Sender: TObject); begin if SpeedButton3.Down=True then Image1.Canvas.Pen.Width:=10; if SpeedButton3.Down=False then Image1.Canvas.Pen.Width:=1; end; procedure TPaintMainForm.Action5Execute(Sender: TObject); begin PaintHelpForm.Show; end; procedure TPaintMainForm.SpeedButton5Click(Sender: TObject); begin Image1.Canvas.FillRect(ClientRect); Image1.Canvas.Brush.Color:=clWhite; Image1.Canvas.Pen.Color:=clBlack; Panel1.Color:=clBlack; end; end.