При запуске программы появляется следующее окно:
После заполнения
матрицы произвольными значениями, при
которых – 2. матрица не симметрична
относительно побочной диагонали, и
нажатия кнопки «Вычислить»:
Выводы: изучили свойства компонента TStringGrid. Написали программу с использованием массивов.
Лабораторная работа 5
Разработка приложения обработки строковой информации
Постановка задачи:
Разработать приложение с использованием компонент, управляющих представлением строковой информации в соответствии с индивидуальным заданием.
В задании исходные данные вводить с помощью компонента TEdit в компонент TListBox либо с помощью свойства Text в свойство Items компонента строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк.
Задание: Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.
Текст программы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
ListBox1: TListBox;
BitBtn1: TBitBtn;
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var n,ch:integer;
s,buf:string;
begin
s:=Edit1.Text+' ';
while s<>''do
begin
buf:='';
n:=pos(' ',s);
buf:=copy(s,1,n-1);
ch:=StrToInt(buf);
if ch mod 2 = 0 then ListBox1.Items.add (IntToStr(ch)) ;
delete(s,1,n);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '';
end;
end.
Результат работы программы:
При запуске программы появляется следующее окно:
Выводы: изучили свойства компонента TStringGrid. Написали программу с использованием массивов.
Лабораторная работа 6 Разработка приложения обработки строковой информации Постановка задачи:
Разработать приложение с использованием компонент, управляющих представлением строковой информации в соответствии с индивидуальным заданием.
В задании исходные данные вводить с помощью компонента TEdit в компонент TListBox либо с помощью свойства Text в свойство Items компонента строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк.
Задание: Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.
Текст программы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
ListBox1: TListBox;
BitBtn1: TBitBtn;
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;