Квадратная матрица в Delphi

[Tomoyo]

Нужно, чтобы при вводе символа вместо цифры высвечивалась ошибка. И чтобы при введении десяичных чисел в матрицу, он считал определитель, не округляя конечное значение.

[Карась]

Куда вводяться числа? У этого поля наверняка есть какоенибудь ОнЧейнз.
Не округлять компьютер не может.. Такчто "до каковото знака" придётся округлить по любому.

[Tomoyo]

Ну вот прога, мне ее тоже здесь помогали делать.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, XPMan, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Tmass=array of Real;
  Tmatrix=array of Tmass;
var
  Form1: TForm1;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //создаем таблицу
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
end;

procedure TForm1.Button2Click(Sender: TObject);
procedure Perestanovka(k,n:integer;var a:Tmatrix; var p:integer);//перестановка строк, если главный элемент=0
//входные параметры - к-номер текущей строки;n-размер матрицы;выходной параметр - количество перестановок -р;
var z:Real; //z-буфер для обмена элементов строк
    i,j:integer;
begin
z:=abs(a[k,k]);//модуль текущего главного элемента
i:=k;//номер текущей строки
p:=0;
for j:=k+1 to n-1 do
   begin
     if abs(a[j,k])>z then  //если в этом столбце какой-то элемент больше
        begin
          z:=abs(a[j,k]); //запоминаем этот элемент
          i:=j; //запоминаем номер строки, в которой находится этот элемент
          p:=p+1;//счетчик перестановок
        end;
   end;
if i>k then //если нужная строка ниже текущей
for j:=k to n-1 do   //меняем местами элементы строк
   begin
     z:=a[i,j];
     a[i,j]:=a[k,j];
     a[k,j]:=z;
   end;
end;
function Znak(p:integer):integer;//при перестановке меняется знак определителя
begin
if p mod 2=0 then
result:=1
else result:=-1;
end;
procedure Opr(n:integer;var a:tmatrix;var det:real);
var k,i,j,p:integer;
    r:real;
begin
det:=1.0;
for k:=0 to n-1 do
  begin
    if a[k,k]=0 then Perestanovka(k,n,a,p);//перестановка строк,если главный элемент =0
    det:=znak(p)*det*a[k,k];//вычисление определителя
    for j:=k+1 to n-1 do //пересчет коэффициентов
       begin
         r:=a[j,k]/a[k,k];
         for i:=k to n-1 do
         a[j,i]:=a[j,i]-r*a[k,i];
       end;
  end;
end;
var k,j,i:integer;
    a:Tmatrix;
    det:real;
begin
n:=strtoint(edit1.Text);
SetLength(a,n,n);//задание динамического массива
  for k:=0 to n-1 do //вывод по строкам
  for j:=0 to n-1 do  //вывод по столбцам
  a[k,j]:=strtofloat(StringGrid1.Cells[j,k]);
Opr(n,a,det);//определитель системы
Edit2.Text:=FloatToStrF(det,ffFixed,5,0);
end;


end.

[puporev]

Edit2.Text:=FloatToStrF(det,ffFixed ,5,0);

Поставь вместо ноля сколько тебе надо цифр после запятой, на столько же увеличь число 5. Хотя определитель считается до целых. Почитал бы что-нибудь.

[Tomoyo]

Спасибо. А как сделать, чтобы при вводе символа вместо цифры высвечивалась ошибка?

[puporev]

А зачем высвечивать ошибку? Просто запрети программно ввод не допустимых символов и все. Вводишь то куда? В StringGrid?
Если для StringGrid то так:

// Функция обеспечивает ввод в ячейку только допустимых символов
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var n,row:integer;c:char;
begin
n:=strtoint(edit1.text);
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
           #13:      // клавиша <Enter>    //это не обязательно, это чтобы не вводиить больше n
                if StringGrid1.RowCount <=n-1 then
                  begin
                     StringGrid1.RowCount := StringGrid1.RowCount + 1;
                     keybd_event(40, 0, 0, 0);
                  end;
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                      then Key := Chr(0);

        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

[Светик]

Определить, является ли заданная целая квадратная матрица N-го порядка магическим квадратом, т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.
Помогите пожалуиста!!

[Tomoyo]

А что означает вот это keybd_event(40, 0, 0, 0)?
И вот это DecimalSeparator?
И еще как мне это в прогу впихнуть?

[puporev]

А что означает вот это keybd_event(40, 0, 0, 0)?

Написал же выкинь все, что к #13 относится. А вообще это имитация нажатия клавиши стрелка вниз.

DecimalSeparator?

разделитель целой и дробной частей в вещественном числе - точка или запятая.

И еще как мне это в прогу впихнуть?

Создай эту процедуру, как другие создаешь. Выбери на форме StringGrid, в Инспекторе объектов выбери вкладку Event, найди OnKeyPress и в белом поле рядом с надписью два разе кликни мышкой, будет заготовка процедуры, вставь туда код.

[Alter]

это можно покороче:

       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;

так

       '.',',': // разделитель целой и дробной частей числа
                begin
                  Key := DecimalSeparator; //// ПРОСТО замениить на разделитель
                  if Pos(DecimalSeparator,StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                  then Key := #0; // запрет ввода второго разделителя
                end;