ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД

«ЧЕРНІВЕЦЬКИЙ ПОЛІТЕХНІЧНИЙ КОЛЕДЖ»

Циклова комісія інженерії програмного забезпечення

звіт

з Навчальної практики 1

(зі спеціальних дисциплін програмування)

Студента ІІ курсу 522 групи

спеціальність 5.05010301

«Розробка програмного забезпечення»

Головряка Ю.Ю.

Оцінка ___________________________

Керівник Голик Н.В.

Дата захисту «____» __________ 2017 р.

Чернівці – 2017

Зміст

Розділ 1. Програмування в середовищі Delphi 3

1.1 Опис середовища Delphi 3

1.2 Практичні завдання 3

Код програми: 4

Код програми: 6

Код програми: 11

Розділ 2. ОХОРОНА ПРАЦІ 16

Висновки 19

перелік джерел 20

додаток 21

додаток А 22

Навчальна практика сприяє більш ефективному набуттю навичок роботи з комп’ютером, зокрема при підготовці ділових паперів. Практика є невід’ємною складовою частиною навчального плану спеціальності.

Основними завданнями практики є: набуття професійних якостей майбутнього фахівця, що відповідає вимогам суспільства і держави, а також удосконалення особистісних якостей; формування у студентів професійних умінь і навичок, що необхідні для успішного здійснення фахових функцій; придбання студентами навичок самостійного виконання поставлених завдань, пов’язаних з використанням комп’ютерної техніки; сприяння свідомого ставлення студентів до праці; формування інформаційної культури студентів; надбання навичок планування робочого часу, виконання основних видів роботи, підготовки та оформленню звітної документації.

Розділ 1. Програмування в середовищі Delphi

1. Опис середовища Delphi

У середовищі програмування Delphi є всі необхідні інструменти для того, щоб створювати повноцінні програми. Писати, компілювати і тестувати програму – все це можна робити, не виходячи з Delphi. Delphi – є середовищем розробки програм, яке використовує багато передових ідей і концепцій, закладених в графічному інтерфейсі Windows.

1.2 Практичні завдання

Задача №1. 59. Знайти площу кільця, внутрішній радіус якого дорів­нює r, а зовнішній R.

ПОЧАТОК

Введіть R,r

S=π -

S

кінець

Рис. 1.1 – Блок-схема задачі №1

Виконав задачу про площу кільця.

Код програми:

unit yura_1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

r1,r2,S:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

r1:=strtofloat(edit1.text);

r2:=strtofloat(edit2.text);

s:=(3.14*((r1*r1)-(r2*r2)));

label2.caption:=floattostr(s);

end;

end.

Робота програми зображена на рисунках1.2 і 1.3.

Рис.1.2– Контрольний приклад

Рис. 1.3– Довільний приклад

Задача №2.

Розробити діалогову програму, яка запитує ім'я корис­тувача та його вік і визначає, до якої вікової категорії він на­ лежить:

1. від 1 до 10 років - дитина;

2. від 11 до 15 років - підліток;

3. від 16 до 20 років - юнак (юнка);

4. від 21 до ЗО років - молода людина;

5. після 31 року - доросла людина.

Б

ПОЧАТОК

лок-схема зображена на рисунку 1.4

Введіть

Вік, імя

Вік- від 1 до 10

Дитина

Вік- від 11 до 15

Підліток

Вік- від 16 до 20

Юнак(юннка)

Вік- від 21

Доросла людина

КІНЕЦЬ

Рис.1.4­–Блок-схема задачі №2

Код програми:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

V:integer;

D,I:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

V:=strtoint(edit2.Text);

case V of

1..10: D:='дитина';

11..15: D:='pidlitok';

16..20: D:='Unak(unka)';

21..30: D:='moloda lyduna';

else D:='Dorosla lyduna';

end;

label1.caption:=edit1.text;

label2.Caption:=D;

end;

end.

Робота програми зображена на рисунках 1.5 і 1.6

Рис.1.5– Оформлення програми 2

Рис. 1.6–Ввід довільних значень

Розробив діалогове вікно.

Задача №3.

За даним натуральним значенням змінної n обчислити:

Б

Початок

лок-схема зображенна рисунку 1.7

n

S:=sqrt(abs(sinn)))

for i:=n-1 down to 1 do

S:=sqrt(abs(sin(i))+s)

S

Кінець

Рис.1.7­–Блок-схема задачі №3

Код програми

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

s:real;

n:integer ;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

n:=strtoint(edit1.text);

s:=sqrt(abs(sin(n)));

for i:=n-1 downto 1 do

begin

s:=sqrt(abs(sin(i))+s);

end;

label2.Caption:=floattostr(s);

end;

end.

Робота зображена на рисунках.1.7 і 1.8

Рис.1.7– Оформлення задачі №3

Рис.1.8–Ввід довільних значень до задачі №3

Обчислив даний мені вираз.

Задача №4

Дано дійсні числа a1,a2…a30; b1,b2…b30. Обчислити:

ПОЧАТОК

for i:=1to n do

a[i]:=random(10);

b[i]:=random(10);

A[I]

B[I]

1

1

While i<=n

ifI mod 2=0

S1:=s1+a[i]*b[i]

S2:=s2+a[i]*b[i]

I+1

ifs1=0 or s2=0

Ділення на ноль

B[I]

S=s2/s1

S

B[I]

КІНЕЦЬ

Рис.1.9­ – Блок-схема задачі №4

Код програми:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Button2: TButton;

Label3: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Privatedeclarations }

public

{ Publicdeclarations }

end;

var

Form1: TForm1;

a: array[1..30]ofinteger;

b: array[1..30]ofinteger;

s,s1,s2: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var n,i:integer;

begin

randomize;

n:=strtoint(edit1.text);

s1:=0;

s2:=0;

for i:=1 to n do

begin

a[i]:=random(10);

b[i]:=random(10);

label2.caption:=label2.caption+' '+inttostr(a[i]);

label3.Caption:=label3.caption+' '+inttostr(b[i]);

end;

i:=1;

while (i<=n) do

begin

if (i mod 2 =0) then s1:=s1+a[i]*b[i]

else s2:=s2+a[i]*b[i];

i:=i+1;

end;

if (s1=0)or (s2=0) then label1.Caption:='Ділення на нуль'

elsebegin

s:=s2/s1;

label1.Caption:=floattostr(s);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

label1.Caption:=' ';

label2.caption:=' ';

label3.Caption:=' ';

end;

end.

Робота програми зображена на Рис.1.10 і Рис.1.11

Рис.1.10– Оформлення задачі №4

Рис.1.11–Ввід довільних значень задачі №4

Виконав завдання про одновимірні масиви.

Задача №5.Об'єднання всіх програм.

Я розробив програму, яка об'єднує в собі всі попередні програми. Я зробив її за допомогою radiobutton і декількох Project.

Код програми:

unit Unit1234;

interface

uses

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

Dialogs, StdCtrls;

Type

TForm1234 = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Privatedeclarations }

public

{ Publicdeclarations }

end;

var

Form1234: TForm1234;

implementation

Uses yura_1,yura_2,yura_3,yura_4;

{$R *.dfm}

procedure TForm1234.Button1Click(Sender: TObject);

begin

if radiobutton1.Checked=true then Form1.Visible:=true;

if radiobutton2.Checked=true then Form2.Visible:=true;

if radiobutton3.Checked=true then Form3.Visible:=true;

if radiobutton4.Checked=true then Form4.Visible:=true;

end;

procedure TForm1234.Button2Click(Sender: TObject);

begin

Form1234.Close;

end;

end.

Роботу програми зображено на рисунках 1.12 і 1.13

Рис.1.12 – Головна сторінка об’єднання

Рис.1.13 – Друга програма

Індивідуальний проект.

Для індивідуального проекту я обрав розробку калькулятора.

Лістінг програми подано в додатку А

Роботу програми зображено на рисунках 1.14 і 1.15

Рис.1.14 – Оформлення програми «Калькулятор»

Рис.1.15­– Робота програми «Калькулятор»