VPF::Человек,который хорошо шарит в Делфи

Sterling

Дата 28.9.2004, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.9.2004

Репутация: нет
Всего: нет

Есть код на паскале Сортировка естественным слиянием :

Код



program naturalmerge; 
uses CRT; 
type item=record 
          key:integer; 
          end; 
     filetype=file of item; 
var a,b,c:filetype; 
    z:integer;    
    eor:boolean; 
procedure create; 
var i: byte; 
    buf: item; 

begin 
      rewrite(c); 
      randomize; 
      for i:=1 to 20 do 
      begin 
      buf.key:=random(100); 
      write(c,buf); 
      end; 
      close(c); 
end; 

procedure view; 
var buf: item; 
begin reset(c); 
      repeat read(c,buf); 
             write(buf.key,' '); 
      until eof(c); 
      readkey; 
end; 
procedure copy(var x,y:filetype); 
var buf,buf1:item; 
begin 
 read(x,buf);write(y,buf); 
 if eof(x) then eor:=true 
           else begin 
                 read(x,buf1): 
                 seek(x,filepos(x)-1); 
                 eor:=buf1.key<buf.key 
                end; 
end; 
procedure copyrun(var x,y:filetype); 
begin 
 repeat 
  copy(x,y); 
 until eor; 
end; 
procedure mergerun; 
var bufa,bufb:item; 
begin 
 repeat 
  read(a,bufa);seek(a,filepos(a)-1); 
  read(b,bufb);seek(b,filepos(b)-1); 
  if bufa.key<bufb.key 
   then begin;copy(a,c);if eor then copyrun(b,c);end 
   else begin;copy(b,c);if eor then copyrun(a,c);end; 
 until eor 
end; 
procedure distribute; 
begin 
 reset(c);rewrite(a);rewrite(b); 
 repeat 
  copyrun(c,a); 
  if not eof(c) then copyrun(c,b); 
 until eof(c); 
 close(a);close(b);close(c); 
end; 
procedure merge; 
begin 
 reset(a);reset(b);rewrite(c); 
 while (not eof(a))and(not eof(b)) do 
  begin 
   mergerun;z:=z+1; 
  end; 
 while not eof(a) do begin;copyrun(a,c);z:=z+1;end; 
 while not eof(b) do begin;copyrun(b,c);z:=z+1;end; 
 close(a);close(b);close(c); 
end; 
begin {main} 
 assign(a,'c:\a'); 
 assign(b,'c:\b'); 
 assign(c,'c:\c'); 
 create; 
 view; 
 repeat 
  distribute;z:=0; 
  merge; 
 until z=1; 
 writeln; 
 view; 
end.

Ну это все фигня:
1. Как мне все это дело запихать в одну процедуру?
2. Массив должен использоваться мой:
Таким образом он создается

Код



procedure TForm1.CrateArrayClick(Sender: TObject); 
var i,n:integer; 
     a:array of integer; 
begin 
memo1.Clear; 
n:= StrToInt(edit.Text); 
setlength(a,n); 
randomize; 
for i:=0 to n-1 do 
  a[i]:= random(999); 
for i:=0 to n-1 do 
 Memo1.Lines.Add(IntToStr(a[i])); 
end;

Как отсюда видно, он уже выводится на показ и показывать его не надо, как предложено в программе на паскале!
3. Сортировка

Код



procedure TForm1.SortClick(Sender: TObject); 
    Begin 
    memo2.Clear; 
    НАЗВАНИЕ ПРОЦЕДУРЫ, Т.Е. САМА СОРТИРОВКА 
    for i:=0 to n-1 do 
    Memo2.Lines.Add(IntToStr(a[i])); 
    end;

Получается вот основная программа! Плиз помогите! Кто живет в Москве с меня пива и не мало!
Ася, если что-то не понятное; 234713453

Sterling

Дата 29.9.2004, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.9.2004

Репутация: нет
Всего: нет

Ну хоть че нить скажите

Pakshin A. S.

Дата 29.9.2004, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Короче: Берёшь текст из Pascal и суешь в Delphi. Удаляешь все readln & writeln, вместо них ставишь соответственно ввод из формы и вывод на форму. Основную программу в Pascal'е обзываешь процедурой MainProg. Потом её вызываешь из onClick'а button'а, к примеру...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »