Зертханалық жұмыс №5(2)
Есеп: А массивi берiлген. Осы массивтiң әр элементiн қандайда бiр к (к = 1 ... 10) коэфицентке еселеу керек.
Формаға келесi компаненттердi орналастыр: Label, StringGrid, Button, ComboBox.
Осы компаненттердiң келесi қасиеттерiне өзгерiстер енгiзiңдер:
Компанент |
Қасиет |
Қасиет мәнi |
Label1 |
Caption |
Массив А: |
Label2 |
Caption |
Коэфицент k: |
Label3 |
Caption |
Массив А(i)*k: |
ComboBox1 |
Items |
1, 2, ... , 10. |
StringGrid1 |
ColCount = 11, RowCuont = 1. |
|
StringGrid2 |
ColCount = 11, RowCuont = 1. |
|
Форманы екi рет шертiп келесi форма өңдеушiсiн енгiзiңiздер:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
randomize;
for i:=1 to 10 do
stringGrid1.Cells[i,0]:=IntToStr(random(10));
end;
end.
Button1 кнопкасын екi рет тышқанмен шертiп келесi программалық өңдеушiнi енгiзiңдер:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 10 do
stringGrid2.Cells[i,0]:=IntToStr(StrToInt(stringGrid1.Cells[i,0])*
StrToInt(ComboBox1.Text));
end;
end.
Ғ9 түймешелiгiн басып программаны орындаңыз.
№8 Зертханалық жұмыс
Енгiзiлген мәтiннiң шрифiн, түрiн (қою, курсив, асты сызылған), размерiн анықтайтын программа құру керек.
Шешуi: Формаға келесi компаненттердi енгiзiңдер: Edit, ComboBox, Button.
Компаненттердiң келесi қасиеттерiне өзгерiс енгiзiңдер:
Компанент |
Қасиет |
Қасиет мәнi |
Edit1 |
Text |
Пример текста |
ComboBox1 |
Items ItemIndex = 0 |
Times New Roman MS Sans Serif Arial Times/Kazah |
ComboBox2 |
Items ItemIndex = 0 |
Жирный Курсив Подчеркнутый |
ComboBox3 |
Items ItemIndex = 0 |
8, 9, 10, ... , 32. |
Button1 |
Caption |
Выход |
Бұл өзгерiстерден кейiн формадағы компаненттер келесi түрге келедi:
ComboBox3 басқарушы элементiн екi рет тышқанмен шертiп ашылған компанент өңдеушiсiне мынаны енгiзiңдер:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case comboBox1.ItemIndex of
0: edit1.Font.Name:='Times New Roman';
1: edit1.Font.Name:='MS Sans Serif';
2: edit1.Font.Name:='Arial';
3: edit1.font.Name:='Times/Kazakh';
end;
end;
Тура осы сияқты ComboBox2 компанентiне:
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
Case ComboBox2.ItemIndex of
0: Edit1.Font.Style:= [fsBold];
1: Edit1.Font.Style:= [fsitalic];
2: Edit1.Font.Style:= [fsUnderline];
end;
end;
ComboBox3 компанентiне:
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
Edit1.Font.Size:=StrToInt(ComboBox3.Text);
end;
Button1 кнопкасына:
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
№9 Зертханалық жұмыс
Программада массивті пайдаланып номерленген футбол командасының тізімін шығару. Команданың тізімі тізім түрінде шығуы үшін Label1.AutoSize қасиетін False ауыстырамыз.
Рис. 5.1. Форма и диалоговое окно приложения Вывод массива
Листинг 5.1. Инициализация и вывод массива
unit outar_;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations } public
{ Public declarations } end;
var
Form1: TForm1;
implementation
($R *.dfm}
const
NT = 5;
var
team: array[1..NT] of string[10] =
('Зенит','Динамо','Ротор','Спартак','СКА'
procedure TForml.ButtonlClick(Sender: TObject);
var
st:string; // список команд
i:integer; // индекс, номер элемента массива
begin
// формирование списка для отображения в форме
for i:=l to NT do st := st + IntToStr(i)+ ' '
+ team[i] + #13; // вывод списка Label1.Caption := st;
end;
end.