Опитування поточного часу
5
4
5
4
Рис.1 Блок-схема програми
4
3
Час опитування?
Так
Ні
KP1=o?
Так
Генерується значення Р1
Р1>=85
Так
Ні
Установка червоного кольору запису, КР1=1
Р1
Повідомлення про відключення прибору
KP2=o?
Ні
Так
Генерується значення Р2
4
5
6
7
8
10
9
11
12
4
3
Так
Ні
15
КР1=0;КР2=0
Ні
12
15
Повідомлення про кінець роботи
16
4
3
4
3
Продовження рис.1
4
3
На наступному рисунку – представлений алгоритм (блок-схема) процедури Start:
1
START
2
Запрос на введення значення інтервалу опитування
3
Ввод значення інт. опитування в секундах
4
Кінець
Рис.2. Блок-схема процедури Start
-
Текст програми
Program W;
Uses Crt,Dos;
Var
H,M,S,Ms,Ps:Word;
P1,P2:Real;
Dz_S:Word;
KP1,KP2:Byte;
Label L;
Procedure Start;
Begin
TextColor(White);
ClrScr;
Writeln('Дискретність опросу в секундах:');
Readln(Dz_S);
End;
BEGIN
KP1:=0;
KP2:=0;
Start;
GetTime(H,M,S,Ms);
Ps:=S-Dz_S;
While not KeyPressed do begin
GetTime(H,M,S,Ms);
While ((Ps+Dz_S) mod 60)=S do begin {(opros)}
TextColor(White);
Writeln(H,': ',M,': ',S);
If KP1=0 then begin
P1:=Random+Random(100)+Random(2)*0.01;
If P1>=85 then begin
TextColor(Red);
KP1:=1
end;
GoToXY(35,WhereY);
Writeln('P1= ',P1:5:2);
If KP2=1 then Writeln;
TextColor(White);
end else begin
TextColor(Yellow);
Writeln;
GoToXY(35,WhereY);
Write('P1 - відключений!!!!!',P1:6:2);
TextColor(White);
end;
If KP2=0 then begin
P2:=Random+Random(100)+Random(2)*0.1;
If P2>90 then begin
TextColor(LightRed);
KP2:=1
end;
GoToXY(55,WhereY);
Writeln('P2= ',P2:5:2);
TextColor(White)
end else begin
TextColor(Yellow);
Writeln;
GoToXY(35,WhereY);
Writeln('P2-відключений!!!!!',P2:6:2);
TextColor(White);
end;
If(KP1=1) and (KP2=1) then begin
TextColor(Yellow);
Writeln('P1 та P2-відключені!!!!! P1= ',P1:6:2,' P2= ',P2:6:2);
TextColor(Green);
Writeln('A В А Р І Я на KP1 та KP2 !!!!');
TextColor(White);
GoTo L;
end;
Ps:=S;
end;
end;
L:End.