Лабораторлық жұмыс № 3.
Сабақтың мақсаты: Button, BitBtn, SpeedButton, RadioGroup,
RadioButton, GroupBox, CheckBox компоненттерін қолдануды игеру.
Екі резистерден тұратын электр тізбегінің кедергісін есептейді.
Егер тізбек тізбекті түрінде біріктірілсе, онда келесі формула қолданылады:
R=R1+R2; ал параллель қосылысы: R=
№ |
Компонент |
Қасиеті |
Мәні |
1 |
Form1 |
Caption |
|
2 |
Label1 |
AutoSize WordWrap |
False True |
3 |
RadioGroup1 |
Caption |
Тип соединения |
4 |
RadioButton1 |
Caption Checked TabStop |
последовательно True True |
5 |
RadioButton2 |
Caption |
параллельно |
6 |
BitBtn |
Caption Glyph |
Вычислить |
7 |
Label4 |
Caption AutoSize |
(Пусто) False |
Программа коды:
// Вычислить батырмасы
procedure TForm1.BitBtn1Click(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;
// переключатели RadioButton1 и RadioButton2
// зависимые, поэтому о типе соединения можно
// судить по состоянию одного из этих
// переключателей
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 := Form1.Label4.Caption +
FloatToStrF(r,ffGeneral,3,2) + ' кОм';
end
end;
// щелчок на переключателе Последовательно
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
// пользователь изменил тип соединения
Label4.Caption := '';
end;
// щелчок на переключателе Параллельно
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
// пользователь изменил тип соединения
Label4.Caption := '';
end;
Тапсырмалар.
1. Саяжайға барудың жолының
бағасын есептейтін қосымшаны құрыңдар.
2. Салым қосындысы, пайыздық
ставканың мезгілі және пайыздың схемасына тәуелді салым
бойынша кірісті есептейтін қосымшаны құрыңдар. Егер
қарапайым пайыз таңдалса, онда келесі формула қолданылады:
Кіріс=Салым қосындысы*(пайыздық ставка/100)*(салым мезгілі/100). Ал
күрделі пайыз бойынша: Кіріс=салым
қосындысы + салым қосындысы*(пайыздық ставка/100).
3. Ом заңы (I=U/R, U=I*R, R=U/I)
бойынша тоқты (Ампер - I), кернеуді (вольт -U) және кедергіні (Ом -
R) есептейтін қосымшаны құрыңдар.
4. Спортсменнің жүгіру
жылдамдығын есептейтін қосымшаны құрыңдар.
Дистанция (м) және уақыты (мин, сек) берілсін. Спортсменнің
жылдамдығы келесі формула бойынша есептеленеді: v=s/t. Жауабын
км/сағ беріңдер.