type TArray = object A : array [1..nmax] of integer; procedure Init; procedure Enter (n : integer); function FindMax (i, j : integer) : integer; procedure Change (i, j : integer); procedure Print (n : integer);
end;
procedure TArray.Init; begin end;
procedure TArray.Enter (n : integer); var i : integer; begin for i := 1 to n do begin Write('A[', i, '] = '); Readln(A[i]); end; end;
procedure TArray.Print (n : integer); var i : integer; begin for i := 1 to n do Write(A[i], ' '); end;
function TArray.FindMax (i, j : integer) : integer; var k : integer; max : integer; begin max := A[i]; for k := i + 1 to j do if A[k] > max then max := A[k]; FindMax := max; end;
begin B.Init; Repeat Write('Razmer massiva: '); Readln(n); until n in [1..nmax]; Writeln('Vvedite massiv: '); B.Enter(n); Repeat Write('vvod 2 number: '); Readln(start, finish); until start <= finish; Writeln('max mejdu elementami: ', B.FindMax (start, finish)); Write('obmen 2 nomera: '); Readln(j, k); Writeln('new massiv: '); B.Change(j, k); B.Print(n); Readln; end.
Федосеев Павел
25.12.2014 22:29
Я не совсем понял вопрос. Если тебе нужны идеи, то предок - какой нибудь абстрактный тип с методами ввода/вывода но без хранилища (без массива). потомок - сортированный массив - добавляются свойства Duplicate (удалять или нет одинаковые элементы).
По аналогии с типами (классами) TList, TStringList - если я ничего не путаю.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.