Разработать проект преобразования квадратной матрицы в треугольную!!

[KitoPoni]

Помогите пожалуйста сделать программу! Delphi

Разработать проект преобразования квадратной матрицы в треугольную и выполнения операций с элементами треугольной матрицы, конкретизированные в вариантах заданий.
При разработке проекта предусмотреть:
1. Задание размерности n квадратной матрицы А;
2. Задание элементов матрицы двумя способами:
2.1. ввод с клавиатуры;
2.2. формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1].
3. Формируемые или задаваемые с клавиатуры числа должны принимать значения от MIN до MAX.
4. Контроль полноты ввода данных и выполнения условия задания чисел в заданном диапазоне.
5. Выделение треугольной матрицы, образованной элементами D (главной или побочной) диагонали и элементами, лежащими F (выше или ниже) D диагонали;
6. Вычислить S элементов треугольной матрицы.
7. Представление результатов обработки данных в форме, удобной для чтения и проверки.

Задание.

Побочной-(D) Выше-(F) Максимальное значение из всех положительных-(S) -76-(MIN) 80-(MAX)

[Ybn2]

Ну такие программы вам за бесплатно не сделают. Только помогут, если есть наработки и конкретные вопросы.

[KitoPoni]

и все же я надеюсь на помощь.

[Ybn2]

Сообщение от KitoPoni

и все же я надеюсь на помощь.

Тогда показывайте ваши наработки и по потихоньку будем помогать.

[KitoPoni]

Я до этого не работал с делфи.(

[Stilet]

Вот тебе набросок:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 tmatr=class
 private
  a:array of array of integer;
    FMin: integer;
    Fn: Integer;
    FMax: integer;
    procedure SetMax(const Value: integer);
    procedure SetMin(const Value: integer);
    procedure Setn(const Value: Integer);
 public
  property n:Integer read Fn write Setn;
  property Min:integer read FMin write SetMin;
  Property Max:integer read FMax write SetMax;
  procedure InputFromKeyboard;
  procedure InputFromPotolok;
  procedure F;
  procedure D;
 end;
{ tmatr }

procedure tmatr.F;
var j,i:integer;
begin
 for i:=low(a) to high(a) do begin
  for j:=low(a) to high(a[i]) do begin
   if j<i then write('     ') else   write(a[i,j]:5);
  end;writeln;
 end; writeln;
end;

procedure tmatr.D;
var j,i:integer;
begin
 for i:=low(a) to high(a) do begin
  for j:=low(a) to high(a[i]) do begin
   if j>i then write('     ') else   write(a[i,j]:5);
  end;writeln;
 end; writeln;
end;

procedure tmatr.InputFromKeyboard;
var j,i:integer;
begin
 for i:=low(a) to high(a) do
  for j:=low(a[i]) to high(a[i]) do
   read(a[i,j]);
end;

procedure tmatr.InputFromPotolok;
var j,i:integer;
begin
 for i:=low(a) to high(a) do
  for j:=low(a[i]) to high(a[i]) do
   a[i,j]:=min+random(max-min);
end;

procedure tmatr.SetMax(const Value: integer);
begin
  FMax := Value;
end;

procedure tmatr.SetMin(const Value: integer);
begin
  FMin := Value;
end;

procedure tmatr.Setn(const Value: Integer);
begin
  Fn := Value;
  SetLength(a,n,n);
end;

var m:tmatr;
begin
 m.n:=10;
 m.Min:=1;m.Max:=100;
 m.InputFromPotolok;
 m.F;m.D;
 m.Free;
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

Твоя задача доработать проверку на корректность ввода с клавиатуры, и... Исправить еще одну ма-а-аленькую ошибочку по поводу создания обьекта.
Если ты усидчивый - у тебя все получится.
Успехов.

P.S. если что у меня эта программа выдает такое:

1 4 86 21 28 67 32 17 37 43
48 7 84 6 30 91 37 77 33
72 31 17 33 47 25 82 28
29 77 97 49 88 82 3
59 1 77 65 77 71
64 99 25 67 30
95 68 34 1
78 59 86
54 96
74

1
9 48
70 84 72
48 15 87 29
14 15 50 3 59
56 21 68 59 95 64
9 77 50 88 51 57 95
70 98 77 75 20 15 91 78
69 29 10 63 28 87 16 28 54
18 16 27 18 58 50 29 16 61 74

[KitoPoni]

Что это значит?
Когда я пытаюсь проверить программу, выдает ошибку.

Error in module Unit 1: Declaration of class TForm1 is missing or incorrect

[Z1000000]

Это значит, что Stilet создал консольное приложение в Дельфи о чем говорит, например строка

{$APPTYPE CONSOLE}

А ты пытаешься этот код засунуть в модуль приложения Win32.
Создай в дельфи консольное приложение и замени в нем код на этот.