Классы общего назначения

[Chyvis]

Создать приложение, обрабатывающее списки в соответствии с заданием. Вывод текста задания оформить с помощью компоненты RichEdit. Для органи-зации диалога с пользователем предусмотреть диалоговые окна. Для отображе-ния исходных данных и результатов использовать компоненту StringGrid. При выводе элементов списка в компоненту-таблицу StringGrid указывать номер элемента и его значение. Полученные результаты сохранить в файле. В прило-жении предусмотреть обработку исключительных ситуаций и возможность из-менения цветового оформления.

Файл содержит данные целого типа. Требуется сформировать три списка, элементы которых упорядочены по возрастанию:
список L1 составить из различных элементов, включив их по одному ра-зу;
список L2 составить из элементов, которые в файле повторяются 2 и бо-лее раз;
список L3 составить из элементов, которые в файле повторяются три и более раз.

Помогите плиз

[Stilet]

Ваши наработки, сударь.
Я не зря это спросил, ибо решается это многими способами.

[Chyvis]

эх... Если бы я чо нить шарил и знал как это делать, я бы сюда не написал
Если есть какие то варианты решиения, напиши, если канеш не сложно
Самый простой на твой взгляд, что бы нуб даже понял в чом суть

[Stilet]

если канеш не сложно

Сложно. Потому что
а) ты так не показал как вас учат
б) Я понятия не имею что ты называешь "Списком" - это вытекает из а)

Тут телепатов нет, а понятие "список" весьма широкое.

[Chyvis]

Вот одно из заданий, типа для примера

Сортировка
Дана действительная матрица D размера n•m (n<=6, m<=18). Сформировать массив Z, компоненты которого есть элементы столбцов матрицы D с четными номерами и предусмотреть возможность сортировки массива Z по не-возрастанию и по неубыванию.

Классы общего назначения
Файлы f1 и f2 содержат данные целого типа. Требуется:
сформировать списки L1 и L2;
объединить списки L1 и L2 в один список L, расположив сначала эле-менты того списка, у которого меньше минимальный элемент. Если ми-нимальные элементы одинаковы, то сначала расположить список, у кото-рого меньше максимальное значение;
если минимальные и максимальные элементы одинаковы, то в качестве результата принять список L1, исключив из него максимальный и мини-мальный элементы.

моё задание для Списки и сортировки было

Дана вещественная квадратная матрица А порядка m (m<=10). Сформировать массив X, компоненты которого есть элементы главной диагонали матрицы А, упорядоченные по неубыванию

Тут мне человек помог с этим заданим, хоть немного понял, но я ему не уточнил, что делать надо было не в консоле...

procedure Swap(var a,b:real);
var c:real;
begin
c:=a;
a:=b;
b:=c;
end;

const Max = 10;

var A:array [1..Max,1..Max] of real; // матрица
var X:array [1..Max]of real;             // нужный массив Х
m,i,f:integer;
begin
read(m);
Randomize; // заполняем матрицу случайными числами (тест)
for i:=1 to m do
 for f:=1 to m do
 begin
  A[i,f]:=random(10000)/1000;
  if random(2) = 1 then A[i,f]:=+A[i,f] else A[i,f]:=-A[i,f];
 end;
for i:=1 to m do X[i]:=A[i,i];   // берем диагональ и копируем в X
f:=0;
while f=0 do             // сортируем X пузырьком, т.к. элементов немного
 begin
 f:=1;
 for i:=1 to m-1 do
  if X[i]>X[i+1] then
   begin
   swap(X[i],X[i+1]);
   f:=0;
   end;
 end;
writeln; 
for i:=1 to m do                    // выводим матрицу А
begin
 for f:=1 to m do
  write(A[i,f]:2:5,' ');
writeln;  
end;
writeln;
for i:=1 to m do Write(X[i]:2:5,' ');   // Выводим X;
end.