Создание программ на языке Delphi 7

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

ТАЛДЫКОРГАНСКИЙ ПОЛИТЕХНИЧЕСКИЙ КОЛЛЕДЖ

Отчет учебной практики по программированию

Проверила : Ниязбекова М.О.

Выполнила: Жакия А.А.

Талдыкорган, 2014г.



Введение

Визуальное программирование -- способ создания программы для ЭВМ путём манипулирования графическими объектами вместо написания её текста.

Для запуска среды Delphi выполните следующую команду:

Пуск > Все программы > Borland Delphi 7 > Delphi 7

После загрузки интерфейс Delphi 7 имеет вид, показанный на рис. 1, и имеет 6 основных окон:

1. главное окно (Delphi 7 - Project 1);

2. окно инспектора объектов (Object Inspector);

3. окно формы (Form 1);

4. окно редактора кода (Unit1.pas);

5. окно дерева объектов (Object TreeView).

6. окно браузер

Окно редактора кода почти полностью закрыто окном стартовой формы. Для переключения между окном формы и окном редактора кода нажмите клавишу F12.

Рис 1.



Главное окно находится в верхней части экрана. В нём расположены:

строка заголовка;

строка меню;

панель инструментов;

панель палитры компонентов.

Окно редактора свойств объектов (Object Inspector) - или инспектор объектов. Любой размещаемый на форме компонент характеризуется некоторым набором параметров: положением, размером, цветом и т. д. Часть этих параметров, например, положение и размеры компонента, можно изменять, манипулируя с компонентом в окне формы. Для изменения других параметров предназначено окно редактора свойств объектов (или, что то же самое, Инспектора объектов). Это окно содержит две вкладки -Properties (Свойства) и Events (События). Вкладка properties служит для установки нужных свойств компонента, вкладка Events позволяет определить реакцию компонента на то или иное событие. Совокупность свойств отображает видимую сторону компонента: положение относительно левого верхнего угла рабочей области формы, его размеры и цвет, шрифт и текст надписи на нем и т. п.; совокупность событий - его поведенческую сторону: будет ли компонент реагировать на щелчок мыши или на нажатие клавиш, как он будет вести себя в момент появления на экране или в момент изменения размеров окна и т. п.

Окно дерева объектов (Object TreeView) - предназначено для наглядного отображения связей между отдельными компонентами, размещенными на активной форме или в активном модуле данных. Щелчок по любому компоненту в этом окне активизирует соответствующий компонент в окне формы и отображает свойства этого компонента в окне Инспектора объектов. Окно редактора кода, можно увидеть, отодвинув в сторону окно формы либо, как уже говорилось выше, нажать клавишу F12. В него следует набирать текст программы. В начале работы над новым проектом это окно редактора кода содержит сформированный Delphi шаблон программы. Окно формы представляет собой проект Windows-окна будущей программы. Вначале это окно содержит стандартные для Windows интерфейсные элементы - кнопки вызова системного меню, максимизации, минимизации и закрытия окна, строку заголовка и очерчивающую рамку. Вся рабочая область окна заполнена точками координатной сетки, служащей для упорядочения размещаемых на форме компонентов.

Свойства формы определяют ее внешний вид: размер, положение на экране, текст заголовка, вид рамки.

В ходе работы над новым проектом, так в Delphi называется разрабатываемое приложение, программист изменяет значения свойств формы Form1 и добавляет к форме необходимые компоненты (поля ввода и вывода текста, командные кнопки), при этом он в любой момент времени контролирует содержание окна создаваемой программы и может внести в него необходимые изменения.



Задание 1

Использованные компоненты: SpeedButton, Edit, Label, ListBox.

Описание: кнопка "Добавить в список" добавляет в список (ListBox) ФИО введенные в Edit. Кнопка "Удаление из списка" удаляет выделенную строку (ФИО) из списка (ListBox). Кнопка "Очистить список" очищает все строки в списке (ListBox).

Листинг программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

ListBox1: TListBox;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

ListBox1.Items.Add(Edit1.Text+' '+Edit2.Text);

Edit1.SetFocus;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

ListBox1.Items.Clear;

end; end.



Задание 2

Использованные компоненты: CheckBox, BitBtn, Memo.

Описание: выбор стиля текста (в Memo) с помощью переключателей (CheckBox). Листинг программы:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

Memo1: TMemo;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if checkbox1.Checked=true then memo1.Font.Style:=memo1.Font.Style+[fsBold]

else memo1.Font.Style:=memo1.Font.Style-[fsBold];

if checkbox2.Checked=true then memo1.Font.Style:=memo1.Font.Style+[fsItalic]

else memo1.Font.Style:=memo1.Font.Style-[fsItalic];

if checkbox3.Checked=true then memo1.Font.Style:=memo1.Font.Style+[fsUnderline]

else memo1.Font.Style:=memo1.Font.Style-[fsUnderline];

end.

Задание 3



Использованные компоненты: CheckListBox, ListBox, Labelи Panel.

Описание: вывод (на Panel) суммы заказа.

Листинг программы:

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, CheckLst;

type

TForm1 = class(TForm)

CheckListBox1: TCheckListBox;

ListBox1: TListBox;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

procedure CheckListBox1ClickCheck(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);

Var s,i:integer;

begin

s:=0;

for i:=0 to checklistbox1.Items.Count-1 do

if Checklistbox1.Checked[i] then S:=S+strtoint(listbox1.Items[i]);

panel1.Caption:=inttostr(s);

end;

end.

Задание 4

Использованные компоненты: MainMenu, PopupMenu.

Описание: Свойства этих компонентов.

Листинг программы:

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

F1: TMenuItem;

New1: TMenuItem;

Save1: TMenuItem;

Save2: TMenuItem;

Close1: TMenuItem;

Reopen1: TMenuItem;

Project11: TMenuItem;

Project21: TMenuItem;

Project31: TMenuItem;

Edit1: TMenuItem;

Edit2: TMenuItem;

Run1: TMenuItem;

Cut1: TMenuItem;

Copy1: TMenuItem;

Past1: TMenuItem;

Delete1: TMenuItem;

StepOver1: TMenuItem;

T1: TMenuItem;

procedure New1Click(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure Save2Click(Sender: TObject);

procedure Close1Click(Sender: TObject);

procedure Project11Click(Sender: TObject);

procedure Project21Click(Sender: TObject);

procedure Project31Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт New' ) ;

end;

procedure TForm1.Save1Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт Open' ) ;

end;

procedure TForm1.Save2Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт Save' ) ;

end;

procedure TForm1.Close1Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт Close' ) ;

end;

procedure TForm1.Project11Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт Project1' ) ;

end;

procedure TForm1.Project21Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт Project2' ) ;

end;

procedure TForm1.Project31Click(Sender: TObject);

begin

ShowMessage('Bыбpaнпункт Project3' ) ;

end;

end.

Задание 5

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

btn1: TButton;

btn2: TButton;

mmo1: TMemo;

dlgOpen1: TOpenDialog;

procedure btn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure btn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

var

f:TextFile;

fName:string[80];

buf:string[80];

begin

if not DlgOpen1.Execute then exit;

fName:=DlgOpen1.FileName;

Form1.Caption:= fName;

AssignFile(f,fName);

try

Reset(f);

except

on EInOutError do

begin

ShowMessage('Ошибкадоступакфайлу'+fName);

exit;

end;

end;

while not EOF(f) do

begin

readln(f,buf); DlgOpen1.Filter:='*.txt,*.doc';

end;

Mmo1.Lines.Add(buf);

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

Mmo1.clear;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DlgOpen1.Filter:='*.txt,*.doc';

end;

end.

Задание 6

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

CheckBox1: TCheckBox;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Memo1: TMemo;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If Key=#13

then Button1.SetFocus;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

F: textFile;

fname:string[80];

buf:string[80];

begin

Fname:=Edit1.Text+'.txt';

AssignFile(F,Fname);

try

reset(F);

except

on EInOutError do

Begin

ShowMessage('Ошибкадоступакфайлу'+fname);

exit;

end;

end;

while not EOF (f) do

Begin

readln(f,buf);

Memo1.Lines.add(buf);

end;

CloseFile(f);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

f:TextFile;

fname:String[80];

i:integer;

Begin

fname:=edit1.Text;

assignFile(f,fname);

try

Rewrite(f);

except

on EinOutError do

Begin

ShowMessage('Ошибкадоступакфайлу'+fname);

exit;

for i:=0 to Memo1.Lines.count do

writeln(f,Memo1.lines[i]);

closefile(f);

MessageDlg('Данные записаны в файл',

mtInformation,[mbOk],0);

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if not CheckBox1.Checked then

begin

Memo1.ReadOnly:=false;

Button2.visible:=true;

else

begin

Memo1.ReadOnly:=True;

Button2.Visible:=false;

end.

Задание 7



unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

BitBtn1: TBitBtn;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

const n=5;

var a,b:array[1..n] of integer;

i,j,r:integer;

begin

for i:=1 to n do begin

a[i]:=StrToInt(StringGrid1.Cells[i-1,0])

end;

for i:=1 to n do

begin

for j:=1 to n do

if a[i]>a[j] then

begin

r:=a[i];

a[i]:=a[j];

a[j]:=r;

end; end;

for i:=1 to n do

stringGrid2.Cells[i-1,0]:=floattostr(a[i]);

stringgrid1.Visible:=true;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close

end.

Задание 8

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a:array[1..3,1..3] of integer;

p,s:real; k,i,j:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

k:=strToInt(Edit1.Text);

For i:=1 to 3 do

For j:=1 to 3 do

a[i,j]:=strToInt(StringGrid1.Cells[i-1,j-1]);

P:=1; S:=0;

if ((k>0) and (k<4))then begin

For j:=1 to 3 do begin

For i:=1 to 3 do begin

if j=k then begin S:=S+a[i,j];

P:=P*a[i,j]; end; end;end;

Label2.Caption:=FloatTostr(S);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

k:=strToInt(Edit1.Text);

For i:=1 to 3 do

For j:=1 to 3 do

a[i,j]:=strToInt(StringGrid1.Cells[i-1,j-1]);

P:=1;

if ((k>0) and (k<4))then begin

For j:=1 to 3 do begin

For i:=1 to 3 do begin

if j=k then

begin

P:=P*a[i,j]; end; end;end;

Label5.Caption:=FloatTostr(P);

end;

end;

end.



Задание 9

визуальный программирование массив справочный

Использованные компоненты: BitBtn, Button, StringGrid, Label.

Описание: Нахождение Max&Min .

Листинг программы:

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, Buttons, StdCtrls; type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

BitBtn1: TBitBtn;

StringGrid1: TStringGrid;

Label5: TLabel;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations } end;

var

m:array[0..2,0..2] of integer;

max,i,j:integer;

Form1: TForm1;

implementation{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

max:=0;

for i:=0 to 4 do

for j:=0 to 4 do

begin

if strtoint(stringgrid1.Cells[i,j])>max then max:=strtoint(stringgrid1.Cells[i,j]); end;

label1.Caption:=inttostr(max);end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

max:=100;

for i:=0 to 4 do

for j:=0 to 4 do

begin

if strtoint(stringgrid1.Cells[i,j])<max then max:=strtoint(stringgrid1.Cells[i,j]);end;

label5.Caption:=inttostr(max); end;

procedure TForm1.Button2Click(Sender: TObject);

beginclose;end; end.



Задание 10

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

Panel1: TPanel;

ListBox1: TListBox;

ComboBox1: TComboBox;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

SpeedButton1: TSpeedButton;

Memo1: TMemo;

procedure ListBox1DblClick(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit1Create(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Create(Sender: TObject);

begin

Memo1.clear;

ListBox1.Items.LoadFromFile('tag.txt');

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);

begin

Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]);

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

if MessageDlg('Добавитьзапись?', mtInformation, [mbOk,mbCancel],0) = mrOK

then

begin

ListBox1.Items.Add(edit1.text);

ListBox1.Items.SaveToFile('tag.txt');

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

var

n: integer; // число - размер шрифта пользователя.

begin

if ComboBox1.Text = '' then exit; // Если в редакторе нет данных то выход

try // Включаем режим отслеживания ошибок преобразования строки в число

n:= StrToInt(ComboBox1.Text); //Преобразуем строку в числовое значение

except // Если возникла ошибка преобразования, то выдаём сообщение

on Exception : EConvertError do

ShowMessage(Exception.Message);

end;

memo1.Font.Size:= n; // Присваиваемшрифту Memo1 новоезначение

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if MessageDlg('Добавитьзапись?', mtInformation, [mbOk,mbCancel],0) = mrOK

then

begin

ListBox1.Items.Add(edit1.text);

ListBox1.Items.SaveToFile('tag.txt');

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if MessageDlg('Заменитьзапись?', mtInformation, [mbOk,mbCancel],0) = mrOK

then

begin

ListBox1.Items[ListBox1.ItemIndex]:= edit1.Text;

ListBox1.Items.SaveToFile('tag.txt');

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if MessageDlg('Удалитьзапись?', mtInformation, [mbOk,mbCancel],0) = mrOK

then

begin

ListBox1.Items.delete(ListBox1.ItemIndex);

ListBox1.Items.SaveToFile('tag.txt');

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if MessageDlg('Вставитьзапись?', mtInformation, [mbOk,mbCancel],0) = mrOK

then

begin

ListBox1.Items.Insert(ListBox1.ItemIndex, Edit1.text);

ListBox1.Items.SaveToFile('tag.txt');

end;

end;

end.



Задание 11

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Label1: TLabel;

Label2: TLabel;

ListBox2: TListBox;

procedure ListBox1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DblClick(Sender: TObject);

begin

Label2.Caption:=ListBox2.Items[ListBox1.ItemIndex];

end;

end.

Задание 12

unit Unit12;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, CheckLst;

type

TForm1 = class(TForm)

ListBox1: TListBox;

ComboBox1: TComboBox;

CheckListBox1: TCheckListBox;

ListBox2: TListBox;

Edit1: TEdit;

ListBox3: TListBox;

procedure ListBox3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox3Click(Sender: TObject);

begin

Edit1.Text:=Listbox3.Items[Listbox3.ItemIndex]

end;

end.

Задание 13

unit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

btn1: TButton;

btn2: TButton;

mmo1: TMemo;

dlgOpen1: TOpenDialog;

procedure btn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure btn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

var

f:TextFile;

fName:string[80];

buf:string[80];

begin

if not dlgOpen1.Execute then exit;

fName:=dlgOpen1.FileName;

Form1.Caption:= fName;

AssignFile(f,fName);

try

Reset(f);

except

on EInOutError do

begin

ShowMessage('Ошибкадоступакфайлу'+fName);

exit;

end;

end;

while not EOF(f) do

begin

readln(f,buf);

mmo1.Lines.Add(buf);

end;

CloseFile(f);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

dlgOpen1.Filter:='*.txt,*.doc';

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

mmo1.clear;

end;

end.



Задание 14

unit Unit14;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Memo1: TMemo;

Label1: TLabel;

ComboBox1: TComboBox;

SpeedButton1: TSpeedButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Memo1.Lines.Add('Анкета учащегося колледжа АГКСиТ');

if edit1.Text = '' then ShowMessage('Вы не ввели имя!') else

Memo1.Lines.Add('имя: '+edit1.Text);

edit1.Clear;

if edit2.Text = '' then ShowMessage('Вы не ввели фамилию!') else

Memo1.Lines.Add('фамилия: '+edit2.Text);

edit2.Clear;

if edit3.Text = '' then ShowMessage('Вы не ввели отчество!') else

Memo1.Lines.Add('отчество: '+edit3.Text);

edit3.Clear;

if edit4.Text = '' then ShowMessage('Вы не ввели группу!') else

Memo1.Lines.Add('группа: '+edit4.Text);

edit4.Clear;

if (combobox1.ItemIndex > 0) and (combobox2.ItemIndex > 0) and (combobox3.ItemIndex > 0)

then

memo1.Lines.Add('дата рождения: '+combobox1.Text+'.'+combobox2.Text+'.'+combobox3.Text)

else ShowMessage('Введите всю дату!');

combobox1.Text:='День';

combobox2.Text:='Месяц';

combobox3.Text:='Год';

end;

end.

Задание 15

unit Unit15;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

ListBox1: TListBox;

Memo1: TMemo;

GroupBox1: TGroupBox;

RadioGroup1: TRadioGroup;

ScrollBar1: TScrollBar;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

end.

Задание 16

unit Unit16;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

RadioGroup1: TRadioGroup;

Label1: TLabel;

stringgrid1: TStringGrid;

procedure Button1Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const n=4;

var a:array [1..n,1..n] of integer;

s,i,j:integer;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

case radiogroup1.ItemIndex of

0:begin

for i:=1 to n do

for j:=1 to n do

begin

a[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);

s:=0;

end;

for i:=1 to n do

for j:=1 to n do begin

if i=j then s:=s+a[i,j];

end;

label1.caption:='Суммаглавнойдиагонали='+inttostr(s);

end;

1:begin

for i:=1 to n do

for j:=1 to n do

begin

a[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);

s:=0;

end;

for i:=1 to n do

begin

j:=n-i+1;

s:=s+a[i,j];

end;

label1.caption:='Суммапобочнойдиагонали='+inttostr(s);

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

button1.Enabled:=true;

end.

Задание 17

unit Unit17;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

BitBtn1: TBitBtn;

PaintBox1: TPaintBox;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,x,y: Integer;

begin

randomize;

for i := 1 to 500 do

begin

x := random(473);

y := random(321);

PaintBox1.Canvas.Pixels[x,y] := RGB(255,0,0);

end

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,x,y: Integer;

begin

randomize;

for i := 1 to 500 do

begin

x := random(473);

y := random(321);

PaintBox1.Canvas.Pixels[x,y] := RGB(255,255,255);

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var i,x,y: Integer;

begin

PaintBox1.Canvas.Brush.Color := RGB(0,0,0);

PaintBox1.Canvas.FillRect(Rect(0,0,473,321));

for i := 1 to 300 do

begin

x := random(473);

y := random(321);

PaintBox1.Canvas.Pixels[x,y]:= RGB (random(255), random(255), random(255));

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var i,x,y:integer;

begin

for i := 1 to 300 do

PaintBox1.Canvas.Pen.Color:= RGB (random(255), random(255), random(255));

PaintBox1.Canvas.Pen.Width := random(3)+1;

x := random(473);

y := random(321);

PaintBox1.Canvas.MoveTo(x,y);

x := random(473);

y := random(321);

PaintBox1.Canvas.LineTo(x,y);

end;

procedure TForm1.Button5Click(Sender: TObject);

var

i,x,y,x2,y2:integer;

begin

for i := 1 to 300 do

PaintBox1.Canvas.Pen.Color:= RGB (random(255), random(255), random(255)) ;

PaintBox1.Canvas.Pen.Width := random(3)+1;

PaintBox1.Canvas.Brush.Color:= rgb (random(255), random(255), random(255)) ;

x:= random(473);

y:= random(321);

x2:= random(473);

y2:= random(321);

PaintBox1.Canvas.Ellipse(x,y,x2,y2);

end;

procedure TForm1.Button6Click(Sender: TObject);

var RE,IM,RE1,IM1: REAL ;

V,X,Y : INTEGER;

procedure PUTPIXEL(x,y,c:Integer);

var cc: TColor;

begin

case c mod 8 of

0:cc:=clBlack;

1:cc:=clRed;

2:cc:=clLime;

3:cc:=clYellow;

4:cc:=clBlue;

5:cc:=clFuchsia;

6:cc:=clAqua;

7:cc:=clWhite;

end;

PaintBox1.Canvas.Pixels[x,y] := cc;

end;

procedure QWA ;

begin

RE1:=RE*RE-IM*IM;

IM1:=2*RE*IM;

RE:=RE1;

IM:=IM1;

end;

procedure KUB;

begin

RE1:=RE*(RE*RE-3*IM*IM);

IM1:=IM*(3*RE*RE-IM*IM);

RE:=RE1;

IM:=IM1;

end ;

Begin

PaintBox1.Canvas.Brush.Color := rgb(0,0,0);

PaintBox1.Canvas.FillRect(Rect(0,0,640,480));

X:=-320 ;

REPEAT Y:=-240 ;

REPEAT V:=0 ; RE:=-1.+0.001*X ; IM:=0+0.001*Y ;

REPEAT KUB; RE:=RE+1.00003 ; IM:=IM+1.01828201638 ;

if RE*RE > 50 then break;

if IM*IM > 50 then break;

V:=V+1 ;

UNTIL V>40 ;

if ( ABS(RE) > 10 ) or ( ABS(IM) > 1000)

then

begin

PUTPIXEL((X+320),(Y+240),TRUNC(V)) ;

end

else PUTPIXEL((X+320),(Y+240),0);

Y:=Y+1 ;

UNTIL Y > 241 ;

X:=X+1 ;

UNTIL X>320 ;

end;

end.

end;

end.



Задание 18

unit Unit18;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

Const size = 40;

csize = 12;

Colors: array [1..16] of TColor =

(clRed, clGreen, clYellow, clBlue, clWhite, clGray, clFuchsia, clTeal,

clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua, clBlack);

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Timer1: TTimer;

PaintBox1: TPaintBox;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Points: array[1..size, 1..size] of Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i, j : Integer;

begin

Randomize;

for i:= 1 to size do

for j:= 1 to size do

Points[i,j] := 1 + Random (csize);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var i, j:Integer;

c,l,r,u,d:Integer;

NewPoints: array [1..size, 1..size] of Integer;

begin

for i := 1 to size do

for j := 1 to size do

begin

c:=Points [i, j]+ 1;

if c > csize then c:= 1;

u:= i - 1;

if u = 0 then u := size;

d := i + 1;

if d > size then d := 1;

l := j - 1;

if l = 0 then l := size;

r := j + 1;

if r > size then r := 1;

NewPoints[i,j]:=Points[i, j];

if (Points [u, j] = c) or (Points [d, j] = c) or (Points [i, l] = c) or (Points [i, r] = c)

then NewPoints [i, j] := c;

end;

c :=320 div size;

for i := 1 to size do

for j := 1 to size do

begin

Points[i, j]:=NewPoints[i, j];

PaintBox1.Canvas.Pen.Color := Colors[Points[i, j]];

PaintBox1.Canvas.Brush.Color := Colors[Points[i, j]];

PaintBox1.Canvas.Rectangle (c*(i - 1), c*(j - 1), c*i - 1, c*j - 1);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

end.



Задание 19

unit Unit19;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Button1: TButton;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure PaintFace (x,y: integer);

procedure EraseFace(x,y: integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

fx,fy: integer;

n: integer;

p: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Visible := False;

Button1.Visible := False;

Timer1.Enabled := True;

panel1.Visible:=false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

EraseFace(fx,fy);

fx:= Random(ClientWidth-30);

fy:= Random(ClientHeight-30);

PaintFace(fx,fy);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

fx:=100;

fy:=100;

Randomize;

end;

procedure TForm1.PaintFace(x,y: integer);

Begin

Canvas.Pen.Color:= clBlack;

Canvas.Brush.Color := clRed;

Canvas.Ellipse(x,y,x+30,Y+30);

Canvas.Ellipse(x+9,y+10,x+11,y+13);

Canvas.Ellipse(x+19,y+10,x+21,y+13);

Canvas.Arc(x+4,y+4,x+26,y+26,x,y+20,x+30,y+20);

end;

procedure TForm1.EraseFace(x,y: integer);

Begin

Canvas.Pen.Color := clBtnFace; { цветокружности}

Canvas.Brush.Color := clBtnFace; { цветзакраски}

Canvas.Ellipse(x,y,x+30,y+30);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

inc(n);

if (x > fx) and (x < fx+30) and (y > fy) and (y < fy+30)

then begin

inc(p);

end;

if n = 10 then

begin

Timer1.Enabled := False;

ShowMessage('Щелчков: 10. Попаданий: ' + IntToStr(p)+'.');

EraseFace(fx,fy);

Label1.Visible := True;

Button1.Visible := True;

end;

end;

end.

end;

end.

Задание 20

unit Unit20;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

CheckBox1: TCheckBox;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If Key=#13

then Button1.SetFocus;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

F: textFile;

fname:string[80];

buf:string[80];

begin

Fname:=Edit1.Text+'.txt';

AssignFile(F,Fname);

try

reset(F);

except

on EInOutError do

Begin

ShowMessage('Ошибкадоступакфайлу'+fname);

exit;

end;

end;

while not EOF (f) do

Begin

readln(f,buf);

Memo1.Lines.add(buf);

end;

CloseFile(f);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

f:TextFile;

fname:String[80];

i:integer;

Begin

fname:=edit1.Text;

assignFile(f,fname);

try

Rewrite(f);

except

on EinOutError do

Begin

ShowMessage('Ошибкадоступакфайлу'+fname);

exit;

end;

end;

for i:=0 to Memo1.Lines.count do

writeln(f,Memo1.lines[i]);

closefile(f);

MessageDlg('Данные записаны в файл',

mtInformation,[mbOk],0);

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if not CheckBox1.Checked then

begin

Memo1.ReadOnly:=false;

Button2.visible:=true;

end

else

begin

Memo1.ReadOnly:=True;

Button2.Visible:=false;

end.

Задание 21

unit Unit21;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

Image2: TImage;

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle(10,1,23,360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle(10,1,23,360);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a, b, c : real;

begin

a := StrToFloat(Edit1.Text);

if (a > 0) or (a < 100) then b := 1.8 * a + 32;

if a > 100 then b := 212;

if a < 0 then b := 32;

Edit2.Text := FloatToStr(b);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle(10,1,23,360);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clRed;

Image1.Canvas.Rectangle(10,round(360-a),23,360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle(10,1,23,360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

Image2.Canvas.Rectangle(10,round(360-b),23,360);

end;

procedure TForm1.Button1Click(Sender: TObject);

var a, c, d : real;

begin

c := StrToFloat(Edit2.Text);

if (c > 32) or (c < 212) then d := ( c - 32)/1.8;

if c < 32 then d := 0;

if c > 212 then d := 100;

Edit1.Text := FloatToStr(d);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle(10,1,23,360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

Image2.Canvas.Rectangle(10,round(360-c),23,360);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle(10,1,23,360);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clRed;

Image1.Canvas.Rectangle(10,round(360-d),23,360);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle(10,1,23,360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle(10,1,23,360);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Close;

end;

end.



Заключение

Я, Жакия Айнур проходила учебную практику по программированию с 13 октября по 1 ноября, с 17 ноября по 29 ноября, и с 15 декабря по 20 декабря 2014 года в Талдыкорганском политехническом колледже.

В процессе практики я научилась составлять программы на языке программирование Delphi7.

Данная практика прошла успешно, были полностью раскрыты практические возможности языка программирования Delphi7.

Мною освоены закреплены знания по языку программирования Delphi7, ежедневно выполняла порученные задания преподавателя.

Составлять простые и сложные программы, описание программы, исправлять ошибки программы, способы исправления массива, изменения данных, принципы использования справочной поддержки и оформлять работы. Составлены программы на темы: составление простейших программ, условный оператор, цикл с параметром, цикл с постусловием и предусловием, работа с одномерными, многомерными массивами - ввод, вывод, обработка, строковый тип данных, процедуры и функции.

Размещено на Allbest.ru

...