Программирование на языках высокого уровня 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;

check

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать