Помощь - Поиск - Пользователи - Календарь
Полная версия: Предок и потомок ООП
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Jarj
Помогите добавить предка и потомка

 program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
     nmax = 20;
 
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;
 
procedure TArray.Change (i, j : integer);
var
   temp : integer;
begin
   temp := A[i];
   A[i] := A[j];
   A[j] := temp;
end;
 
var
   B : TArray;
   n, start, finish, j, k : integer;
 
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. 
Федосеев Павел
Я не совсем понял вопрос. Если тебе нужны идеи, то
предок - какой нибудь абстрактный тип с методами ввода/вывода но без хранилища (без массива).
потомок - сортированный массив - добавляются свойства Duplicate (удалять или нет одинаковые элементы).

По аналогии с типами (классами) TList, TStringList - если я ничего не путаю.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.