Розділ 2. Програмування на Delphi Задача 1
В заданий наступний текст входять тільки цифри та букви. Визначити, чи задовольняє він наступній умові: текст співпадає з кінцевим відрізком ряду 0123456789 (наприклад: 9, 89, 789).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var s:string;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=form1.Edit1.Text;
if ((s='9') or (s='89') or (s='789') or (s='6789') or (s='56789') or (s='456789')
or (s='3456789') or (s='23456789') or (s='123456789') or (s='0123456789'))
then showmessage('Текст співпадає')
else showmessage('Текст не співпадає');
end;
end.
Задача 2
Дано послідовність із 100 цілих чисел. Визначити кількість чисел в найбільш довгій послідовності із нулів, що йдуть підряд.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var i,j,k,max:integer;
a:array[0..49] of integer;
m:array[0..49] of integer;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
randomize;
for i:=0 to 49 do
form1.Memo1.Lines.Add(inttostr(random(2)));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
max:=0;
for i:=0 to 49 do
begin
a[i]:=strtoint(form1.Memo1.Lines[i]);
m[i]:=0;
end;
j:=0;
k:=0;
for i := 0 to 49 do
if (a[i] = 0) then
m[j]:=m[j]+1
else
if (a[i] <> 0) then
j:=j+1;
max:=m[0];
for i := 0 to 49 do
if (max<m[i]) then
max:=m[i];
showmessage(inttostr(max));
end;
end.
Задача 3
Var A: array [1..15,1..20] of integer;
B: array [1..15] of Boolean;
За допомогою масиву A отримати масив B, присвоївши його k–му елементу значення TRUE якщо виконується вказана нижче умова, і значення FALSE інакше. k–тий рядок масиву – симетричний.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,j,k:integer;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
randomize;
for i:=0 to 9 do
for j:=0 to 4 do
form1.StringGrid1.cells[i,j]:=inttostr(random(2));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:= 0 to 4 do
form1.StringGrid2.cells[0,i]:='true';
for i:= 0 to 4 do
begin
j := 9;
for k := 0 to 4 do
begin
if (strtoint(form1.StringGrid1.cells[k, i]) <> strtoint(form1.StringGrid1.cells[j, i]))
then
form1.StringGrid2.cells[0,i] := 'false';
j:=j-1;
end;
end;
end;
end.
Розділ 3. Робота у Photoshop
Завдання 1. Опрацювати фото в фотошопі
Рис.1 Фото до опрацювання:
Рис.2 Фото після опрацювання:
Завдання 2. Анімація в фотошопі
Рис.3-11 Анімаційні слайди
Розділ 4. Створення схем Visio
Рис.12 Схема моєї кімнати
Рис.13 Схема студмістечка
Рис.14 Блок-схема курсової роботи
Розділ 5. Створення відео-презентації на Camtasia
Рис.15 Фрагмент презентації:
Висновок:
Під час проходження літньої практики я удосконалила свої знання в області інформаційних технологій. Літня практика проходила дуже цікаво, так як чудово були підібрані теми для вивчення. Я здобула нові навики і знання, які обов’язково стануть мені у пригоді в майбутньому, під час моєї професійної діяльності. Я повторила і удосконалила свої вміння програмувати на таких мовах, як C# і Delphi, навчилася створювати плани приміщень та ділянок, будувати блок-схеми за допомогою Visio, дізналася, як можна зробити відео-презентацію за допомогою програми Camtasia і, нарешті, навчилася працювати у Photosop-і, а саме, редагувати зображення і створювати анімації.
Отже, літня практика – це чудова можливість удосконалити свої вміння і навички в області програмування і провести час з користю.