36-сурет
Жұмысты атқару бағдарламасы:
unit kedergy;
// Есептеу батырмасында шерту
procedure TForm1.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;
37-сурет
// 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;
end.
Достарыңызбен бөлісу: | 
