Delphi тилинде программалоо

Delphi тилинде программалоо программалоо тили

#1 lifeview 12 October 2010 - 18:25

Карапайым

Кыймылы жок
78
11 October 10
: 31 Oct 2021 17:09
Жынысы:Эркек
Калаасы:Ош

Delphi тили боюнча суроолорду берсеңер болот

Эмгектене билүү – адам үчүн түгөнгүс байлык.

of the page up there ^

#2 yahaha 18 October 2010 - 12:32

Активист

Кыймылы жок
421
27 July 09
: 28 Sep 2015 16:17
Жынысы:Эркек
Калаасы:Бишкек

Ээ мага өтө чоң сандар менен иштөө кызык, мисалы 4096 битүү.
Кантип иштеш керек?

үмүтсүз - шайтан

of the page up there ^

#3 andormeda 19 October 2010 - 10:53

Супер-активист

Кыймылы жок
1784
14 May 08
: 26 Oct 2023 00:09
Жынысы:Аялзаты
Калаасы:Би City - 3Dвятое царство

Универде жургондо эжекем окуп ааааал деп какшаса да болбой койгом да...Delphi эмес Word ду ончулук уйронуп алайынчы ээ...анан келем суроом менен :батан:

˙·٠•●♥●•٠·˙ Жалгызым менин, жаркылдагым менин... ˙·٠•●♥●•٠·˙

of the page up there ^

#4 lifeview 06 November 2010 - 21:21

Карапайым

Кыймылы жок
78
11 October 10
: 31 Oct 2021 17:09
Жынысы:Эркек
Калаасы:Ош

Сурооңу тагыраак берсен жакшы болот

Эмгектене билүү – адам үчүн түгөнгүс байлык.

of the page up there ^

#5 lifeview 08 November 2010 - 10:52

Карапайым

Кыймылы жок
78
11 October 10
: 31 Oct 2021 17:09
Жынысы:Эркек
Калаасы:Ош

Ээ мага өтө чоң сандар менен иштөө кызык, мисалы 4096 битүү.
Кантип иштеш керек?

Мисалы бул процедуранын жардамында 415 санынын да фактериалын эсептесен болот. Тагыраак айтканда 10 000 орундуу сандар менен иш алып бара алат:
procedure Str2Number(s: string; var n: TNumber);
var
i, j, l: integer;
begin
if s = '' then
begin
setlength(n.int, 0);
setlength(n.frac, 0);
exit;
end;
l := length(s);
if s[1] = '-' then
begin
s := copy(s, 2, l);
l := l - 1;
n.######n := false;
end
else
n.######n := true;
j := pos('.', s);
if j > 0 then
begin
setlength(n.int, j - 1);
for i := 1 to j - 1 do
n.int[i - 1] := strtoint(s[j - i]);
setlength(n.frac, l - j);
for i := 1 to l - j do
n.frac[i - 1] := strtoint(s[l - i + 1]);
end
else
begin
setlength(n.int, l);
for i := 1 to l do
n.int[i - 1] := strtoint(s[l - i + 1]);
setlength(n.frac, 0);
end;
end;

function Num2Array(var n: TNumber; var a: TMathArray): integer;
var
i: integer;
begin
result := length(n.frac);
setlength(a, length(n.int) + result);
for i := 0 to length(a) - 1 do
if i < result then
a[i] := n.frac[i]
else
a[i] := n.int[i - result];
end;

procedure MultiplyArray(var a1, a2, a: TMathArray);
var
i, j: integer;
b: boolean;
begin
{checking for zero, 1}
for i := length(a2) - 1 downto 0 do
begin
for j := length(a1) - 1 downto 0 do
begin
a[j + i] := a[j + i] + (a2[i] * a1[j]);
end;
end;
repeat
b := true;
for i := 0 to length(a) - 1 do
if a[i] > 9 then
begin
b := false;
try
a[i + 1] := a[i + 1] + 1;
except
setlength(a, length(a) + 1);
a[i + 1] := a[i + 1] + 1;
end;
a[i] := a[i] - 10;
end;
until b;
end;

procedure Array2Num(var n: TNumber; var a: TMathArray; frac: integer; ######n:
boolean);
var
i: integer;
begin
setlength(n.frac, frac);
setlength(n.int, length(a) - frac);
for i := 0 to length(a) - 1 do
begin
if i < frac then
n.frac[i] := a[i]
else
n.int[i - frac] := a[i];
end;
n.######n := ######n;
end;

function Number2Str(var n: TNumber): string;
var
i: integer;
s: string;
begin
result := '';
for i := 0 to high(n.int) do
result := inttostr(n.int[i]) + result;
if length(n.frac) <> 0 then
begin
for i := 0 to high(n.frac) do
s := inttostr(n.frac[i]) + s;
result := result + '.' + s;
end;
while (length(result) > 1) and (result[1] = '0') do
delete(result, 1, 1);
if pos('.', result) > 0 then
while (length(result) > 1) and (result[length(result)] = '0') do
delete(result, length(result), 1);
if not n.######n then
result := '-' + result;
setlength(n.int, 0);
setlength(n.frac, 0);
end;

procedure DisposeNumber(var n: TNumber);
begin
setlength(n.int, 0);
setlength(n.frac, 0);
end;

function ulFact(First: string): string;
var
n1, n2: TNumber;
i: integer;
a, a1, a2: TMathArray;
max: integer;
begin
Str2Number('1' , n1);
Str2Number('1' , n2);
Num2Array(n1, a1);
Num2Array(n2, a2);
max := strtoint(First);
for i := 1 to strtoint(First) do
begin
if As######ned(OnProgress) then
OnProgress((i / max) * 100);
setlength(a, length(a1) + length(a2) + 1);
MultiplyArray(a1, a2, a);
setlength(a1, 0);
setlength(a2, 0);
a1 := a;
Str2Number(inttostr(i), n2);
Num2Array(n2, a2);
end;
Array2Num(n1, a1, 0, true);
result := Number2Str(n1);
DisposeNumber(n1);
end;

Эмгектене билүү – адам үчүн түгөнгүс байлык.

of the page up there ^

#6 yahaha 18 November 2010 - 10:12

Активист

Кыймылы жок
421
27 July 09
: 28 Sep 2015 16:17
Жынысы:Эркек
Калаасы:Бишкек

lifeview
Tnumber,TMathArray кайдан алам?

үмүтсүз - шайтан

of the page up there ^

#7 lifeview 22 November 2010 - 18:37

Карапайым

Кыймылы жок
78
11 October 10
: 31 Oct 2021 17:09
Жынысы:Эркек
Калаасы:Ош

lifeview
Tnumber,TMathArray кайдан алам?

Бул аргументтер негизги модулда implementation бөлүгүндө жарыяланат.
type
TMathArray = array of integer;
type
TNumber = record
int, frac: TMathArray;
######n: boolean;
end;
var n1, n2: TNumber;

Эмгектене билүү – адам үчүн түгөнгүс байлык.

of the page up there ^

#8 arinda 09 February 2011 - 23:53

Момун

Кыймылы жок
32
12 September 10
: 04 Aug 2014 23:11
Жынысы:Аялзаты
Калаасы:Krasnoyarsk

иии жакшы болббодубу мен файл м-н иштешти жакшы билбейм кантип аны ачып сактасам болот анан опреторлордун да кызматтарын жазып койсоз жакшы болмок :гезит:

of the page up there ^

#9 lifeview 05 March 2011 - 21:22

Карапайым

Кыймылы жок
78
11 October 10
: 31 Oct 2021 17:09
Жынысы:Эркек
Калаасы:Ош

файлдар менен иштөө үчүн бир файлдык өзгөрмөнү жарыялап алуу керек жана аны физикалык файл менен байланыштыруу керек. Андан кийин файлды ачып алып маалыматтарды жазса болот. Файлдар менен иштөө аяктагандан кийин аны созсуз жабуу керек. Мисалы

var f:TextFile;
begin
As######nFile(f,' c:\asan.txt'); //байланыштыруу
RewriteFile(f); //Файлды ачуу

CloseFile(f); //Файлды жабуу
end;

Эмгектене билүү – адам үчүн түгөнгүс байлык.

of the page up there ^

#10 Programmer 06 March 2011 - 00:00

Супер-активист

Тартип бузгандар
3678
20 December 10
: 22 Aug 2015 20:22
Жынысы:Эркек
Калаасы:BISHKEK

Delphi жонундо суроо бер макул алгоритм RSA жонундо айтып берчи кантип Delphi боюнча жазаса болот открытый жана закрытый ключ деген бул эмне мен билем себеби программисмин кызык болуп жатат билесинби?

Жизнь – это не те дни, которые прошли, а те, которые запомнились.