POLITECHNIKA LUBELSKA w LUBLINIE	LABORATORIUM KOMPUTEROWE WSPOMAGANIE PROJEKTOWANIA
Masełko Rafał	Ćwiczenie nr 9,10
Temat: Tworzenie projektu interfejsu graficznego w środowisku Delphi; Aplikacja do obliczeń macierzy kwadratowej.	Data wykonania: 2011-05-23

1. Cel ćwiczenia:

Celem ćwiczenia było poznanie sposobów projektowania interfejsu graficznego, i możliwości programowania w środowisku Delphi.

1. Zadanie 1:

1. Zadanie 2:

1. Zadanie 3:

1. Zadanie 4:

1. Obliczanie macierzy kwadratowej:

• Wyznaczenie wartości min i max:

//obliczanie min i max

begin

with StringGrid1 do begin

min := StrToInt(Cells[0,0]);

max := StrToInt(Cells[0,0]);

for i:=0 to ColCount-1 do

for j :=0 to RowCount-1 do begin

if (StrToInt(Cells[i,j]) > max) then

max := StrToInt(Cells[i,j]);

if (StrToInt(Cells[i,j]) < min) then

min := StrToInt(Cells[i,j]);

end;

end;

Edit2.Text := IntToStr(min);

Edit3.Text := IntToStr(max);

//koniec min i max

• Obliczanie wyznacznika macierzy:

//obliczanie wyznacznika

with StringGrid1 do begin

if (ColCount = 2) then

begin

wyz := (StrToInt(Cells[0,0])*StrToInt(Cells[1,1]))-(StrToInt(Cells[1,0])*StrToInt(Cells[0,1]));

end;

if (ColCount = 3) then

begin

wyz := (StrToInt(Cells[0,0])*StrToInt(Cells[1,1])*StrToInt(Cells[2,2])

+StrToInt(Cells[0,1])*StrToInt(Cells[1,2])*StrToInt(Cells[2,0])+

StrToInt(Cells[0,2])*StrToInt(Cells[1,0])*StrToInt(Cells[2,1]))-(StrToInt(Cells[0,2])

*StrToInt(Cells[1,1])*StrToInt(Cells[2,0])+

StrToInt(Cells[0,0])*StrToInt(Cells[1,2])*StrToInt(Cells[2,1])

+StrToInt(Cells[0,1])*StrToInt(Cells[1,0])*StrToInt(Cells[2,2]));

end;

end;

Edit1.Text := IntToStr(wyz);

//koniec obliczania wyznacznika

• Wyznaczanie macierzy transponowanej:

//transponowanie macierzy

for i := 0 to StringGrid1.ColCount-1 do

for j := 0 to StringGrid1.RowCount-1 do

StringGrid2.Cells[j,i] := StringGrid1.Cells[i,j];

//koniec transponowania macierzy

• Wyznaczenie macierzy odwrotnej:

//odwracanie macierzy

with StringGrid1 do begin

for i := 0 to ColCount-1 do

for j := 0 to RowCount-1 do

macierz[i,j] := StrToInt(Cells[i,j]);

OdwracanieMacierzy(macierz,3);

end;

with StringGrid3 do begin

for i := 0 to ColCount-1 do

for j := 0 to RowCount-1 do

Cells[i,j] := FloatToStr(macierz[i,j]);

end;

//koniec odwracania mecierzy

1. Wnioski:

W ćwiczeniu zapoznaliśmy się z środowiskiem programistycznym Delphi. Znając kilka podstawowych poleceń możemy stworzyć program który np. wylicza nam wyznacznik macierzy lub odwraca macierz. Środowisko to pozwala także na stworzenie interfejsu graficznego w bardzo prosty i przyjazny sposób. Środowkisko programistyczne Delphi można wykorzystywać do pisania programów wspomagających przyszłą pracę inżyniera, potrzebującego w krótkim czasie programu pomagajacego w żmudnych obliczeniach.