Часть 1.
Экранные формы:
Текст программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
GroupBox3: TGroupBox;
LabeledEdit4: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
LabeledEdit6: TLabeledEdit;
GroupBox4: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
ComboBox6: TComboBox;
LabeledEdit7: TLabeledEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,V,T:integer;
S,l,A,P:real;
n:longint;
s1:string;
begin
if (Form1.LabeledEdit1.Text='')or (Form1.LabeledEdit2.Text='')or(Form1.LabeledEdit3.Text='') then
begin
Application.MessageBox(PChar('Нет данных для работы!'),'Внимание!',MB_OK+MB_ICONINFORMATION);
Exit;
end
else
Form1.ShowModal;
form1.LabeledEdit7.Text:=' ';
s1:= Form1.ComboBox1.Text+Form1.ComboBox2.Text+Form1.ComboBox3.Text+Form1.ComboBox4.Text+Form1.ComboBox5.Text+Form1.ComboBox6.Text;
A:=length(s1);
P:=strtofloat(Form1.LabeledEdit1.Text);
V:= strtoint(Form1.LabeledEdit2.Text);
T:=strtoint(Form1.LabeledEdit3.Text);
S:=(V*T)/P;
L:=ln(S)/ln(A);
Form1.LabeledEdit4.Text:=floattostr(S);
Form1.LabeledEdit5.Text:=floattostr(A);
Form1.LabeledEdit6.Text:=floattostr(int(L)+1);
for i:=1 to strtoint(Form1.LabeledEdit6.Text) do
form1.LabeledEdit7.Text:=form1.LabeledEdit7.Text+s1[random(length(s1))];
end;
end.
Часть 2.
1. - случайные малые буквы русского алфавита. 2. - случайные большие буквы латинского алфавита.
3.
|
- три случайных числа в диапазоне от
0 до150 .
Экранные формы:
Текст программы:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
LabeledEdit1: TLabeledEdit;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Button1: TButton;
LabeledEdit2: TLabeledEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var b1,b2,b3,b4,b5,b6:string;
i:integer;
begin
b1:=Edit1.Text;
b2:=Edit2.Text;
b3:=Edit3.Text;
b4:=Edit4.Text;
b5:=Edit5.Text;
b6:= Edit6.Text;
for i:=1 to strtoint(LabeledEdit1.Text) do
LabeledEdit2.Text:=b1[random(length(b1))+1]+b2[random(length(b2))+1]+b3[random(length(b3))+1]+b4[random(length(b4))+1]+b5[random(length(b5))+1]+b6[random(length(b6))+1];
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
randomize;
Edit6.Text:=inttostr(random(99))+inttostr(random(15))+inttostr(random(120));
end;
end.