function FirstNegative(a:V;n:integer):integer; var i:integer; begin i:=0; Result:=0; repeat i:=i+1; if a[i]<0 then Result:=i until (Result>0) or (i>n) end;
const m=8; n=11; var a,b:V; i,p,q:integer; begin Randomize; for i:=1 to m do a[i]:=random(100)-50; for i:=1 to n do b[i]:=random(100)-50; p:=FirstNegative(a,m); q:=FirstNegative(b,n); writeln('Массив А'); for i:=1 to m do write(a[i]:5); writeln; writeln('Массив B'); for i:=1 to n do write(b[i]:5); writeln; if p<=q then writeln('Номер первого отрицательного элемента в массива А: ',p) else writeln('Номер первого отрицательного элемента в массива B: ',q) end.
Тестовый прогон: Массив А 37 14 -25 32 30 -29 38 27 Массив B 33 -36 23 -17 -3 -16 -33 33 -48 -39 30 Номер первого отрицательного элемента в массива B: 2
Тексты вводятся в память компьютера с клавиатуры. На клавишах написаны привычные нам буквы, цифры, знаки препинания и другие символы. В оперативную память они попадают в двоичном коде. Это значит, что каждый символ представляется 8-разрядным двоичным кодом.
Кодирование заключается в том, что каждому символу ставится в соответствие уникальный десятичный код от 0 до 255 или соответствующий ему двоичный код от 00000000 до 11111111. Таким образом, человек различает символы по их начертанию, а компьютер - по их коду.
Удобство побайтового кодирования символов очевидно, поскольку байт - наименьшая адресуемая часть памяти и, следовательно, процессор может обратиться к каждому символу отдельно, выполняя обработку текста. С другой стороны, 256 символов – это вполне достаточное количество для представления самой разнообразной символьной информации.
Теперь возникает вопрос, какой именно восьмиразрядный двоичный код поставить в соответствие каждому символу.
Понятно, что это дело условное, можно придумать множество кодировки.
Все символы компьютерного алфавита пронумерованы от 0 до 255. Каждому номеру соответствует восьмиразрядный двоичный код от 00000000 до 11111111. Этот код просто порядковый номер символа в двоичной системе счисления.
V=array[1..11] of integer;
function FirstNegative(a:V;n:integer):integer;
var
i:integer;
begin
i:=0;
Result:=0;
repeat
i:=i+1;
if a[i]<0 then Result:=i
until (Result>0) or (i>n)
end;
const
m=8;
n=11;
var
a,b:V;
i,p,q:integer;
begin
Randomize;
for i:=1 to m do a[i]:=random(100)-50;
for i:=1 to n do b[i]:=random(100)-50;
p:=FirstNegative(a,m);
q:=FirstNegative(b,n);
writeln('Массив А');
for i:=1 to m do write(a[i]:5);
writeln;
writeln('Массив B');
for i:=1 to n do write(b[i]:5);
writeln;
if p<=q then writeln('Номер первого отрицательного элемента в массива А: ',p)
else writeln('Номер первого отрицательного элемента в массива B: ',q)
end.
Тестовый прогон:
Массив А
37 14 -25 32 30 -29 38 27
Массив B
33 -36 23 -17 -3 -16 -33 33 -48 -39 30
Номер первого отрицательного элемента в массива B: 2