Implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
var r1,r2: real;
r: real;
begin r1 :=strToFloat (Edit1.Text);
r2 :=strToFloat (Edit2.Text);
if (r1 = 0) and (r2 = 0) then
begin
ShowMessage ('Надо задать величину хобя бы одного сопротивления');
exit;
end;
if RadioButton1.Checked then r:= r1+r2 else r:= (r1*r2)/(r1+r2);
Label4.Caption:= 'Сопротивление цепи: ';
if r<1000 then
Label4.Caption := Label4.Caption + FloatToStrF(r, ffGeneral,3,2) + ' Ом'
else
begin r:=r/1000;
Label4.Caption := Form5.Label4.Caption + FloatToStrF(r, ffGeneral,3,2) + ' кОм';
end
end;
procedure TForm5.RadioButton1Click(Sender: TObject);
begin
Label4.Caption := '';
end;
procedure TForm5.RadioButton2Click(Sender: TObject);
begin
Label4.Caption := '';
end;
end.
Результат работы программы:
Задача 3:
Код программы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var f: TextFile;
fName: String[80];
buf: String[80];
begin
if not OpenDialog1.Execute
then exit;
fName:= OpenDialog1.FileName;
Form1.Caption:= fName;
AssignFile(f, fName);
try
Reset(f);
except
on EInOutError do
begin
ShowMessage('Ошибка доступа к файлу '+ fName);
exit;
end;
end;
while not EOF(f) do begin
readln(f, buf);
Memo1.Lines.Add(buf);
end;
closefile(f);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.filter:= 'Текст|*.txt';
end;
end.
Результат работы программы:
Задача 1 самостоятельная:
Код программы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label4: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:real; // ток
begin
i:=strtofloat(edit1.text)/strtofloat(edit2.text);
label4.caption:=floattostr(i);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<'0') or (key>'9') or (key=#8) then // только цифры
key:=chr(0);
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (edit2.Text<>'') then
button1.Enabled:=true;
if (key<'0') or (key>'9') or (key=#8) then
key:=chr(0);
end;
end.
Результат работы программы:
Задача 2 самостоятельная:
Код программы:
unit Unit1;