Реферат по предмету "Информатика"


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



Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Естествознание - уроки где ставятся проблемы
Реферат О психологии андерграунда
Реферат Http://infolio asf ru краткие изложения. Есть Фосколо, Мандзони
Реферат А. В. Ковалевська Рецензенти: доцент, канд екон наук, доцент Харківського національного університету радіоелектроніки
Реферат Видатні памятки природи та архітектури Закарпаття
Реферат Субъективная сторона преступлений
Реферат Разработка Германских стратегических планов войны против СССР План Барбаросса
Реферат Геометричні місця точок на площині та їх застосування
Реферат Влияние продуктов радиолиза на коррозию реакторных материалов
Реферат Кафедральный Петропавловский Собор и Свято-Троицкий женский монастырь г. Симферополя
Реферат Альтенберг Петер
Реферат В оде Ломоносова царица Елизавета Петровна предстает возвышенным существом. Поэт возлагает на нее огромные надежды на мир и процветание России
Реферат Планування і аналіз і трудових показників
Реферат Аналіз банківської діяльності 2
Реферат Русская журналистика начала ХХ века