Что у вас в буфере обмена ?, Зайди и в посте нажми Ctrl+V (вставить)Что у вас в буфере обмена ? , Зайди и в посте нажми Ctrl+V (вставить) Рейтинг Опции

[avanti]

nephew

[S.Mass]

Program NearOstov; {Остовное дерево. Метол ближайшего соседа}
uses CRT,DOS;
Const
nVertex=5Q; {Максимальное количество вершин)
nRib=1000; {Максимальное количество ребер}
Туре
TypeVertex=array[I.,nVertex] of Integer; TypeRib=array[l..nRib] of Integer;
TypeWeight=arrayf1..nVertex,1..nVertex] of Integer;
Var
f :Text; { Текстовый файл )
nX :Integer; { Количество вершин в графе }
nXo :Integer; { Количество вершин в остовном дереве}
nUo ;Integer; { Количество ребер в остовном дереве }
X :TypeVertex; { Список вершин графа }
Хо :TypeVectex; { Список вершин остовного дерева }
Uo :TypeRib; { Ребра остоаного дерева }
Prev :TypeVertex; ( Список ближайших вершин }
Dist :TypeRib; { Расстояния до ближайших вершин }
We :TypeWeight; { Матрица весов ребер графа }
Wt :LongInt; { Вес минимального остовного дерева }
Procedure minDiat( Var v :Integer );{Поиск v – ближайшего соседа}
Var ir d :Integer;
begin
v:=XEll;
d:=Dist[v];
for i:=2 to nX do
if d>Dist[X[ij] then begin
vi=X[i];
d:=Disti[v];
end;
end;
Procedure newDist{ v :Integer );{Обновить dist[] -минимальные расстояния}
Var i :Integer;
begin
for i: =1 to nX do
if Dist[X[i]]>We[X[i], v] then begin
Dist[X[i]]:=We(X[i],v];
Prev[X[i]]:=v;
end;
end;
Procedure Ostov; {Построение основного дерева}
Var i,nStop,v ;Integer;
begin
nStop:=nX;
for i:=l to nX do X[i]:=i;
v:=l;
for i;=l to nX do begin
Dist [i]:=We[i,v] ;
Prev[i]:=v;
end;
nXo:=0; { Xo - пустое множество )
nUo:=0; { Uo - пустое множество }
nXo:=nXo+l;
Xo[nXo]:=X[v]; {Xo=Xo+v - добавить вершину v к остову}
X[vJ:=X[nX]; nX;=nX-l; { X=X\v - удалить v из X }
Wt:=0;
while nXo<>nStop do begin
minDist(v);
nXo:=nXo+l;
Xo[nXo]:=v; {Xo=Xo+v - добавить вершину v к остову}
for i:=l to nX do { X=X\v - удалить v из X }
if X[i]=v then begin X[i]:=X[nX]; break; end;
nX:=nX-l;
nUo;=nUo+l;
Uo[2^nUo-l]:=Prev[v]; { Uo=Uo+(Prev[v],v) -добавить ребро к остову}
Uo[2*nUo]:=v;
Wt:=Wt+Dist[v]; { Обновить вес остовного дерева }
newDistf(v);
end;
end;
Var (Main)
i,j ;Integer;
begin {Main}
Assign(f,'Wear.in') ; Reset (f);(Файл открыт для чтения}
Read ff,nX); {Количество вершин в графе}
for i:=l to nX do begin
for j:=i to nX do begin
Read(f,We[i,jj); { Ввод матрицы весов}
if We[i,j]=0 then We[i,j];=$7fff; {бесконечность}
We[j,i]:=We[i,j];
end;
end;
Close(f);
Assign(f,'Near.out');
Rewrite(f); {Файл открыт для записи}
nUo:=0;{Выделение реберного списка графа для печати}
for i:=1 to nX do
for j:=i+l to nX do begin
if WefirjJ=$7fff then continue;
nUo:=nUo+l;
Uo[2*nUo-l]:=i;
Uo[2*nUo]:=j; end;
WriteLn(f,'nU ='fnUo:3); WriteLnff,'nX =',nX:3);
Write (f,'X =');for i:=l to nX do Write(f,i:3); WriteLn(f);
Write(f,'ul =' ); for ii=l to nUo doWrite (f ,TJo[2*i-l] :3) ;
WriteLn(f); Write(f,'u2 =');
for i:=l to nUo do Write(f,Uo[2*i]:3); WriteLn(f);
Write(fr'We=');
for i;=l to nUo do Write(f,We[Uo[2*i-l],Uo[2fti]]:3); WriteLn(f);
Ostov;
Write(f,'uol=' );
for i:=l to nUo do Write(f,Uo[2*i-lJ;3); WriteLntf); Write(f,' uo2=');
for i:=l to nUo do Write(frUo[2*i]:3);WriteLn(f);
Write(f);
for i:=l to nUo do Write(f,We[Uo[2*i-l],Uo[2*i]1:3);
WriteLn(f); Wt:=Q;
for i:=l to nUo do Ht:=Wt+We[Uo[2*i-l],Uo[2*i]];
Write(f,'Bec=r,Wt:3};
Close(f) ;
and.{Main}

[AminoreX]

Cosmic Gate - Sign Of Times (Markus Schulz Coldharbour Remix)

[Andrew Positive]

http://dj.topdj.ua/

[avanti]

Иерихон

[Armada]

Istar project – ISTAR project - ABSTRACTION radioshow 011 on KISS FM

[йа_валяюсь]

unit add;

interface

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

type
TForm4 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
MaskEdit1: TMaskEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
if radiobutton1.Checked then
begin
form1.ListBox1.Items.Add(edit1.text+'|'+edit2.text+'|'+edit3.text+'|'+maskedit1.text+'POP3');
end

else
begin
form1.ListBox1.Items.Add(edit1.text+'|'+edit2.text+'|'+maskedit1.text+'|'+maskedit1.text+'IMAP');
end;
form1.ListBox2.Items.Add(edit1.text+' | '+edit3.text);
form1.listbox1.Items.SaveToFile('emails.txt');
form1.listbox2.Items.SaveToFile('mails.txt');
close;
end;

end.

[Sour]

одмин?

[S.Mass]

одмин?

нубская прога,у меня круче

[Goblin]

нубская прога,у меня круче

Ыы кто бы говорил на паскале лупишь? тут хоть немного С попахивает с примесью ++

[S.Mass]

Ыы кто бы говорил на паскале лупишь? тут хоть немного С попахивает с примесью ++ :new_russian:

ахахахахах
ну-ну,ну-ну

[Goblin]

ахахахахах
ну-ну,ну-ну

ФИВТ рулит !!!

[S.Mass]

ФИВТ рулит !!!

АСОИУ рулит,ТК нет

[American_Idiot]

Задроти

Сабж: Дімон, привіт!! Як ти??

[Goblin]

АСОИУ рулит,ТК нет

та не рулит ВТ мы только в сторонке танцуем в равенстве

[S.Mass]

та не рулит ВТ мы только в сторонке танцуем в равенстве

ВТ?Рулит?АСОИУ И ТК в равенстве?Чувак ты хоть на ФИВТе учишься,не?

[Goblin]

ВТ?Рулит?АСОИУ И ТК в равенстве?Чувак ты хоть на ФИВТе учишься,не?

та не , иногда хожу ,слежу за тобой реально ВТ жесть полная но рулид АУТС шутка ...

[Andrew K]

Martin Roth & Bartlett Bros - Losing Gravity

[31std]

Сабж: Дімон, привіт!! Як ти??

Всем Димкам в асе рассылаешь?


m6-fade_2_black

[Найтмэр]

нубская прога,у меня круче

Теория графов..мать её...до сих пор задолжность висит(

Михаил Добкин - мэр Харькова (действующий), за кадром - Генадий Кернес - депутат облсовета Харьковской области