Курсовая работа: Програмування в Delphi

Exit;

End;

Sk := IntToStr(k);

Edit2.Text := Sk;

Edit1.SetFocus;

Form1.Button1.Enabled := False;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

Edit1.SetFocus;

Sk := IntToStr(k);

Edit2.Text := Sk;

Form1.Button1.Enabled := False;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not ( Key in ['1'..'5']) then

Begin

Key := #0;

Beep;

Exit;

End;

Form1.Button1.Enabled :=True;

end;

end.

Результат роботи тест-програми

ПРАКТИЧНА ЧАСТИНА

Метод Г аусса з вибором головного елементу для розв’язку СЛАР

У лінійній алгебрі розглядаються чотири класи основних задач: розв’язок систем лінійних алгебраїчних рівнянь (СЛАР), знаходження визначників, визначення обернених матриць, знаходження особистих значень і особистих векторів матриць. Всі ці задачі мають важливе прикладне значення при розв’язанні різних проблем науки і техніки. Крім того, задачі лінійної алгебри є допоміжними при реалізації багатьох алгоритмів математики і математичної фізики.