Haru no Yuki

��

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 18:55:45 +0400

�� 

��:

procedure TForm1.Button10Click(Sender: TObject);
begin
size:=edit1.gettextlen();
for i:=1 to size do
  begin
    for j:=1 to size-1 do
       begin
         if mass[j] > mass[j+1] then
           begin
            w:=mass[j];
            mass[j]:=mass[j+1];
            mass[j+1]:=w;
           end;
        end;
  end;
for j:=1 to size do
   begin
   Memo1.SelText:=mass[j];
   end;
end;

��

45243563265

�

22334455566

��

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 17:40:02 +0400

(!!!)

�� 

��

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 17:17:04 +0400

��

��:

procedure TForm1.Button2Click(Sender: TObject);
begin
      for j:=1 to size do
      begin
            for i:=1 to size-1 do
            begin
                  if mass[i]>mass[i+1] then
                  begin
                  c:= mass[i];
                  mass[i]:= mass[i+1];
                  mass[i+1]:= c;
                  end;
            end;
      end;

Show1();

end;

��

57 24 87 87 70 94 26 45 47 81 15 83 1 2 4 90 37 3 89 96 57 11 57 0 44 95 43 44 40 21 74 33 60 39 96 53 94 61 10 39 91 4 53 12 31 94 28 64 15 95 39 86 54 59 96 41 24 44 8 36 96 41 48 63 3 5 98 94 60 71 83 41 84 11 46 44 60 63 43 32 34 39 55 64 79 79 31 60 22 23 25 63 31 20 89 12 20 80 31 91

�

0 1 10 11 11 12 12 15 15 2 20 20 21 22 23 24 24 25 26 28 3 3 31 31 31 31 32 33 34 36 37 39 39 39 39 4 4 40 41 41 41 43 43 44 44 44 44 45 46 47 48 5 53 53 54 55 57 57 57 59 60 60 60 60 61 63 63 63 64 64 70 71 74 79 79 8 80 81 83 83 84 86 87 87 89 89 90 91 91 94 94 94 94 95 95 96 96 96 96 98

Active vocabulary

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 17:04:20 +0400

�� 

Articles and Literature

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 17:03:43 +0400

�� 

Checked Homeworks

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 17:02:41 +0400

�� 

Grammar

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 17:01:54 +0400

��

ソフト

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 16:53:22 +0400

��

色々な写真

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 16:51:21 +0400

�� 

日本についての情報

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 16:50:37 +0400

�� 

文学

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 16:48:43 +0400

�� 

漢字

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 16:45:14 +0400

�� 

文法

mybb@mybb.ru (收購) — Sat, 02 Apr 2011 16:44:35 +0400

�� 

Haru no Yuki

����� ������� � ������� ������

����� �������� � �������

����� ������ ������

Active vocabulary

Articles and Literature

Checked Homeworks

Grammar

ソフト

色々な写真

日本についての情報

文学

漢字

文法

��

��

��