- •Лабораторна робота № 14-15
- •Частина і
- •Частина іі
- •Лабораторна робота № 16-17
- •Частина і.
- •Частина іі.
- •Частина і Завдання
- •Лабораторна робота № 20
- •Лабораторна робота № 22-23
- •Лабораторна робота № 24
- •Лабораторна робота № 25 - 26
- •Частина і Завдання
- •Частина іі Завдання
- •Лабораторна робота № 27
- •Лабораторна робота № 28
- •Лабораторна робота № 29
- •Лабораторна робота № 30
- •Лабораторна робота № 31
- •Лабораторна робота № 32
Лабораторна робота № 27
Робота з датами в Delphi. Використання календаря.
Мета: Вивчення прийомів проектування і створення додатку, що використовує дату та використає календар.
Для виконання даної лабораторної роботи я розробив інтерфейс вид якого показаний на малюнку:
Та ввів наступний програмний код:
var
Form1: TForm1;
ss:string;
f:textfile;
implementation
uses unit2;
{$R *.dfm}
const
NT = 5;
Var
Komand: array[1..NT] of string[10] =
(' Днепр', 'Динамо', 'Шахтер', 'Ворскла', 'ЦСКА');
procedure TForm1.Button1Click(Sender: TObject);
var
st, st_m: string;
i: integer;
begin
Label1.Width:=180;
Label1.Caption:='Список команд';
Memo2.Lines.Add('Список команд');
for i:=1 to NT do
begin
st := InttoStr(i) + ' '+ Komand[i] ;
Label1.Caption:=Label1.Caption+#13+st;
st_m := InttoStr(i) + ' '+ Komand[i];
Memo2.Lines.Add(st_m);
end;
Label1.Caption:=Label1.Caption+#13;
end;
procedure TForm1.Button2Click(Sender: TObject);
const
SIZE=5;
Var
a: array[1..SIZE] of string[30];
n: integer;
i: integer;
st:string;
begin
n:=Memo1.Lines.Count;
if n=0 then
begin
ShowMessage('нет введенных строк');
Exit;
end;
if n>SIZE then
begin
ShowMessage('Количество введенных строк превышает размер массива');
n:=SIZE;
end;
for i:=1 to n do
a[i]:= Form1.Memo1.Lines[i-1];
if n>0 then
begin
st:='Введенный массив' +#13;
for i:=1 to n do
st := st+inttostr(i) +' '+a[i]+#13;
ShowMessage(st);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
AboutBox.Comments.caption:= AboutBox.Comments.caption+#13+
'стадіон - '+
Form1.Edit1.Text;
AboutBox.Show;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ss:= Label1.Caption+ Memo1.Text;
close;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if Button5.Tag >= 5
then
begin
ShowMessage('Введення закінчено');
Button5.Enabled := false;
exit;
end
else
begin
//ShowMessage('Button5.Tag'+ IntToStr(Button5.Tag));
if Button5.Tag=0 then
Memo1.Lines.Strings[Button5.Tag] := 'Гра відбудеться '+DateToStr(DateTimePicker1.Date)
else
Memo1.Lines.Add('Гра відбудеться ' + DateToStr(DateTimePicker1.Date));
end;
Button5.Tag := Button5.Tag +1;
end;
initialization
AssignFile(F,'D:\Student\13\MyFile.txt');
rewrite(F);
finalization
writeln(F,ss);
Closefile(F);
end.
Висновок: У ході лабораторної роботи я вивчив прийоми проектування і створення додатку, який використовує дату та використає календар.
Лабораторна робота № 28
Створення програми для висновку текстової інформації в таблицю з використанням компонента TStrіngGrіd.
Мета: Вивчення прийомів створення таблиці для висновку текстової інформації. Відпрацьовування прийомів роботи зі стандартними функціями.
Для виконання даної лабораторної роботи я розробив інтерфейс вид якого показаний на малюнку:
Та ввела наступний програмний код:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0, 0] := 'Число'; {Аргумент функцій}
StringGrid1.Cells[1, 0] := 'Синус'; {Значення синуса}
StringGrid1.Cells[2, 0] := 'Логарифм'; {Значення логарифма}
StringGrid1.Cells[3, 0] := ' Квадрат'; {Значення квадрата}
StringGrid1.Cells[4,0]:='Квадратний корінь'; {Значення квадратн. кореня}
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
IF ACol = 0 THEN {Якщо перший стовпець...}
CanSelect:= True {Активізація дозволяється}
ELSE {Інакше...}
CanSelect:= False; {Активізація забороняється}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1, StringGrid1.Row]:=Format
('%14.2f',[Sin(StrToFloat(StringGrid1.Cells[0, StringGrid1.Row]))]);
StringGrid1.Cells[2, StringGrid1.Row]:=Format
('%14.2f',[Ln(Abs(StrToFloat(StringGrid1.Cells[0, StringGrid1.Row])))]);
StringGrid1.Cells[3, StringGrid1.Row]:=Format
('%14.2f',[Sqr(StrToFloat(StringGrid1.Cells[0, StringGrid1.Row]))]);
StringGrid1.Cells[4, StringGrid1.Row]:=Format
('%10.5f',[Sqrt(Abs(StrToFloat(StringGrid1.Cells[0, StringGrid1.Row])))]);
IF StringGrid1.Row + 1 = StringGrid1.RowCount THEN
StringGrid1.RowCount :=StringGrid1.RowCount + 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Висновок: У ході даної лабораторної роботи я вивчив прийоми створення таблиці для висновку текстової інформації. Відпрацювала прийоми роботи зі стандартними функціями.