Answer the question
In order to leave comments, you need to log in
Explain what Status: Byte := $00 means?
Hello!
I have Pascal code
const
theEndTerminated = 2000000000;
var
Status : Byte := $00;
// 1 бит - последовательность возрастающая
// 2 бит - последовательность убывающая
// 3 бит - в последовательности есть равные числа
var
count, N1, N2 : Integer;
begin
count := 0;
Read(N1);
while N1 <> theEndTerminated do
begin
count += 1;
Read(N2);
if N2 <> theEndTerminated then
begin
if N1 < N2 then Status := Status or $01;
if N1 > N2 then Status := Status or $02;
if N1 = N2 then Status := Status or $04;
end;
N1 := N2;
end;
WriteLn(count);
case Status of
1 : WriteLn('ASCENDING'); // строго возрастающая
2 : WriteLn('DESCENDING'); // строго убывающая
4 : WriteLn('CONSTANT'); // постоянная
5 : WriteLn('WEAKLY ASCENDING'); // неубывающая
6 : WriteLn('WEAKLY DESCENDING'); // невозрастающая
else
WriteLn('RANDOM'); // случайная
end;
end.
var
Status : Byte := $00;
Status := Status or $01
Answer the question
In order to leave comments, you need to log in
Didn't find what you were looking for?
Ask your questionAsk a Question
731 491 924 answers to any question