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

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

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

звіт

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

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

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

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

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

Попович В.І.

Оцінка ___________________________

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

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

Чернівці – 2017

Зміст

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

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

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

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

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

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

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

Висновки 18

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

додаток 20

Важливим етапом практичної підготовки студентів у сфері розробки програмного забезпечення є навчальна практика. Метою практики є поглиблення та закріплення теоретичних та практичних знань, набуття практичних навичок з інтегрованими середовищами розробки програм, текстовими редакторами, опереційними системами та оболонками, практичні навички складання алгоритмів, написання коду програм налагодження та тестування розроблених програм. У кожному вузі України передбачено проходження студентами практики, яка є обов’язковим складовим елементом підготовки будь-якого спеціаліста. Під час проходження практики ми закріпили здобуті знання і навички, отримуючи практичний досвід роботи в реальних умовах.

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

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

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

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

Задача №1. Дано довжину ребра куба. Знайти його об’єм та площу всієї поверхні.

Блок-схема задачі зображена на рисунку 1.1

Початок

Введіть а

V,S

Кінець

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

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

unit Kubik;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,v,s:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

v:=a*a*a;

s:=6*sqr(a);

label3.Caption:=floattostr(v);

label4.Caption:=floattostr(s);

end;

end.

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

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

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

Задача №2. Квадратний багаточлен заданий своїми коефіцієнтами a, b, c, де . Визначити області від’ємних значень багаточлена.

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

Початок

Введіть a,b,c

D>0

D<0

Yes

No

Кінець

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

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

unit Bagatochlen;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Edit4: TEdit;

Edit5: TEdit;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,b,c,d,x1,x2:real

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

c:=strtofloat(edit3.Text);

d:=sqr(b)-4*a*c;

if d>0 then

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

edit4.Text:=floattostr(x1);

edit5.Text:=floattostr(x2);

end

else

begin

edit4.Text:='Розвязку немає';

edit5.Text:='Розвязку немає';

end;

if d<0 then

begin

edit4.Text:='Мінус безмежність';

edit5.Text:='Плюс безмежність';

end;

end;

end.

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

Рис.1.5– Оформлення програми задачі №2

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

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

Початок

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

Введіть n

S=1

for i:=1 to n do

S

Кінець

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

Код програми

unit Obchislenia;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls;

Type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,n:integer;

r,s,k:real;

begin

n:=strtoint(edit1.Text);

s:=1;

for i:=1 to n do

begin

K:=k+sqr(i);

s:=s*(1+(cos(i)/k));

end;

label1.Caption:=floattostr(s);

end;

end.

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

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

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

Задача №4. Об’єднання програм

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

unit End1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Kubik, Bagatochlen, Obchislenia;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

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

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

if radiobutton3.checked=true then form4.Visible:=true;

end;

end.