Delphi визуалды программалау ортасы
-сурет Жұмысты атқару бағдарламасы
жүктеу/скачать 2,03 Mb.
|
| 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.
жүктеу/скачать 2,03 Mb. Достарыңызбен бөлісу:
|