Вправа 1. Розробити проект для обчислення опору електричного кола, який складається з двох провідників, що ввімкнені послідовно або паралельно.
R1 R2
Опір R=R1+R2.
R1
R2
Опір 1/R=1/R1+1/R2.
Форма буде мати такий вигляд:
Код процедури для кнопки “Обчислити” буде такий:
procedure TForm1.Button1Click(Sender: TObject);
Var R1,R2,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);
Edit3.text:=FloatTostrf(r,ffNumber,6,2);
end;
Вправа 2. Розробити проект для зразка тестування. Використати компонент “CheckBox”.
Форма повинна мати такий вигляд:
Код для кнопки результат може бути такий:
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox3.Checked Then Label1.Caption:='ПРАВИЛЬНО!'
else Label1.Caption:='НЕПРАВИЛЬНО!';
end;
Вправа 3. “Поїздка на дачу”.
Форма:
Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var vid,cina,norma,wartist:real;
mes:string;
begin
if (Length(Edit1.Text)=0) OR
(Length(Edit2.Text)=0) OR (Length(Edit3.Text)=0) Then
begin SHowMessage('Введіть всі дані');Exit;
end;
vid:=StrToFloat(Edit1.Text);
cina:=StrToFloat(Edit2.Text);
norma:=StrToFloat(Edit3.Text);
wartist:=(vid/100)*norma*cina;
mes:='Поїздка на дачу ';
If checkBox1.Checked then
begin Wartist:=Wartist*2;
mes:=mes+'і назад ';
end;
mes:=mes+'буде вам коштувати '+FloatToStrf(wartist,ffNumber,6,2)+'грн';
Label4.Caption:=mes;
end;