Воронеж 2021 Практическая работа №1 Тема практической работы: Файл проекта. Структура и Назначение

«ВОРОНЕЖСКИЙ ГОСУДАРСТВЕННЫЙ ПРОМЫШЛЕННО – ЭКОНОМИЧЕСКИЙ КОЛЛЕДЖ»

ОТЧЕТ

ПО ДИСЦИПЛИНЕ «ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ»

ВЫПОЛНИЛ СТУДЕНТ:

Иванов Артём Романович

^{(ФИО студента)}

2 курса 196 группы

^{(группа)}

ВОРОНЕЖ 2021

Оборудование: компьютер, программное обеспечение Windows 7, текстовый редактор Microsoft Office Word, среда программирования Delphi

Рис 2

Рис 3

unit Unit1;

interface

uses

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

var

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var I1, I2, I3, Imax: integer;

begin

I1:=Random(100);

I2:=Random(100);

I3:=Random(100);

Label1.Caption:=' I1='+IntToStr(I1);

Label2.Caption:=' I2='+IntToStr(I2);

Label3.Caption:=' I3='+IntToStr(I3);

Imax:=I1;

if I2 > Imax then Imax:=I2;

if I3 > Imax then Imax:=I3;

Label4.Caption:='Imax='+IntToStr(Imax);

end;

Самостоятельная работа:

Рис 4

unit Unit1;

interface

uses

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

var

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var I1, I2, I3, Imin: integer;

begin

I1:=Random(100);

I2:=Random(100);

I3:=Random(100);

Label1.Caption:=' I1='+IntToStr(I1);

Label2.Caption:=' I2='+IntToStr(I2);

Label3.Caption:=' I3='+IntToStr(I3);

Imin:=I1;

if I2 < Imin then Imin:=I2;

if I3 < Imin then Imin:=I3;

Label4.Caption:='Imin='+IntToStr(Imin);

end;

Задание №4

Рис 5

unit Unit1;

interface

uses

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

public

end;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

const N=3;

var Factorial,I:integer;

begin

for I:=1 to N do Factorial:=Factorial*I;

Labell.Caption:=IntToStr(n) +’!=’+

IntToStr(Factorial);

end;

end.

Рис 6

unit Unit1;

interface

uses

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

public

end;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,s,I:integer;

begin

s:=0;

b:=3;

Label1.Caption:=IntToStr(s) ;

end;

end.

Рис 7

unit Unit1;

interface

uses

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label2: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

var

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var Str_old: string;

Str_New:string;

I:integer;

begin

Label1.Caption:=' Исходная: ' +Str_Old;

Str_New:='';

for I:=1 to Length(Str_Old) do

begin

if Str_Old[I]='[' then Str_Old[I]:='(';

if Str_old[I]<>'' then Str_New:=Str_New+Str_Old[I];

end;

Label2.Caption:='Преобразованная: '+Str_New;

end.