аратури і програмного забезпечення і помилки оператора взаємно незалежні, буде мати наступний вигляд:
; (19)
3. Обчислення ймовірності безвідмовної роботи протягом часу
У завданні потрібно розрахувати ймовірність безвідмовного функціонування апаратно-програмного комплексу протягом 1000 годин. Для цього підставимо значення отримані при обчисленні формул (4), (9), (12), (15) і (18) у формулу (19) і отримаємо:
Підставимо все в формулу (16) і отримаємо:
В В
Отримуємо відповідь: 0,831, тобто ймовірність безвідмовної роботи апаратно програмного комплексу на протязі 1000 годин дорівнює 0,831.
4. Обчислення середнього напрацювання на відмову апаратно-програмного комплексу
В В
Отримуємо відповідь: 1386 годин, тобто середній час напрацювання на відмову апаратно-програмного комплексу дорівнює 1386 годинам.
Додаток
ScreenSize;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DsgnIntf; = procedure (Sender: TObject; ErrorCode: word) of object; = class (TComponent): TNotifyEvent;: byte;: word; : word;: boolean;: TErrorSwitchNotifyEvent; SetBitsCount (const Value: byte); SetHeight (const Value: word); SetWidth (const Value: word); SetAutoSwitch (const Value: boolean);
{Private declarations}
{Protected declarations}
{Public declarations} Create (anOwner: TComponent); override; Destroy; override; Switch; RestoreMode;
{Published declarations} OnBeforeSwitch: TNotifyEvent read FOnBeforeSwitch write FOnBeforeSwitch; OnErrorSwitch: TErrorSwitchNotifyEvent read FOnErrorSwitch write FOnErrorSwitch; Width: word read FWidth write SetWidth; Height: word read FHeight write SetHeight; BitsCount: byte read FBitsCount write SetBitsCount; AutoSwitch: boolean read FAutoSwitch write SetAutoSwitch;; ChangeDisplaySettingsX (lpDevMode: Pointer; dwFlags: DWORD): Longint; stdcall; Register; Register; ('Ray Adams', [TScreenSize]);; ChangeDisplaySettingsX; external user32 name 'ChangeDisplaySettingsA';
{TScreenSize} TScreenSize. Create (anOwner: TComponent); Create (anOwner);: = 640;: = 480;: = 16;; TScreenSize. Destroy; (nil, 0); Destroy;; TScreenSize. RestoreMode; (nil, 0);; TScreenSize. SetAutoSwitch (const Value: boolean);: = Value;; TScreenSize. SetBitsCount (const Value: byte);: = Value;; TScreenSize. SetHeight (const Value: word);: = Value;; TScreenSize. SetWidth (const Value: word);: = Value;; TScreenSize. or DM_PELSWIDTH or DM_PELSHEIGHT;. dmSize: = SizeOf (dMode);: = ChangeDisplaySettings (dmode, 0); res <> DISP_CHANGE_SUCCESSFUL then if assigned (FOnErrorSwitch) then FOnErrorSwitch (Self, res);;.
