работы системы,
работы системы, тестирующей абитуриентов. Каждая его компонента есть запись, включающая поля "фамилия", "количество решенных задач", "штрафное время":
const N=100;
type
index1 = 0..N-1;
massive1 = array [index1] of byte;
procedure InitArray1 (var Mas: massive1);
var i: index1;
begin
for i:= 0 to N-1 do
Mas[i]:= N-i;
end;
type
index1 = 0..N-1; {N > 1}
Programmer = record of
Name: string; Number: byte; Time: word
end;
var Results = array [index1] of Programmer;
type
index1 = 0..N-1; {N > 1}
massive1 = array [index1] of item;
function Search2 (Mas: massive1;
left, right: index; sample: item): boolean;
var l, r, middle: index1;
begin
l := left; r:= right;
while l<r do begin
middle:= (l+r) div 2;
if Mas[middle] < sample then l:= middle + 1
else r := middle
end;
if M[l] = sample then Search2:= true
else Search2:= false
end;
type
index1 = 0..N-1; {N>1}
massive1 = array [index1] of
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
