Ananas
دوشنبه 29 اسفند 1390, 03:46 صبح
سلام سلام سلام.
اوووووووووووووووه !!! خیلی جالبه حیفم اومد اینجا ننویسم.
یه چیزی به فکرم رسید امتحانش کردم دیدم درست کار میکنه.
یک مثال :
unit تست_فارسی;
interface
uses Dialogs, SysUtils;
type
اعشاری = Single;
بردار3بعدی = record
آ, ب , س : اعشاری;
function طول:اعشاری;
end;
procedure تست;
implementation
function بردار3بعدی.طول:اعشاری;
begin
Result := Sqrt(
آ * آ +
ب * ب +
س * س
);
end;
procedure تست;
var
v : بردار3بعدی;
begin
v.آ := 1;
v.ب := 5;
v.س := -10.2222;
ShowMessage(FloatToStr(v.طول));
end;
end.
تابع "تست" متنش اینجا تو html یکم جابجا شده ولی خودتون میتونید امنحان کنید.
اوووووووووووووووه !!! خیلی جالبه حیفم اومد اینجا ننویسم.
یه چیزی به فکرم رسید امتحانش کردم دیدم درست کار میکنه.
یک مثال :
unit تست_فارسی;
interface
uses Dialogs, SysUtils;
type
اعشاری = Single;
بردار3بعدی = record
آ, ب , س : اعشاری;
function طول:اعشاری;
end;
procedure تست;
implementation
function بردار3بعدی.طول:اعشاری;
begin
Result := Sqrt(
آ * آ +
ب * ب +
س * س
);
end;
procedure تست;
var
v : بردار3بعدی;
begin
v.آ := 1;
v.ب := 5;
v.س := -10.2222;
ShowMessage(FloatToStr(v.طول));
end;
end.
تابع "تست" متنش اینجا تو html یکم جابجا شده ولی خودتون میتونید امنحان کنید.