[tttatyana]

Требуется установить возможных претендентов на золотую медаль в предстоящем чемпионате.Претендентов нужно вбивать вручную или рандомом!при помощи memo и edit.

[ChinYan]

И? на основе чего делается вывод кто достоин? Где ваш код? Нет кода - в работу

[tttatyana]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, XPMan, Menus;   type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Memo1: TMemo;     Button2: TButton;     XPManifest1: TXPManifest;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Button3: TButton;     MainMenu1: TMainMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     Memo2: TMemo;     Label4: TLabel;     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure N2Click(Sender: TObject);     procedure N4Click(Sender: TObject);     procedure Edit2KeyPress(Sender: TObject; var Key: Char);     procedure Edit3KeyPress(Sender: TObject; var Key: Char);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button2Click(Sender: TObject); begin if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then ShowMessage('Вы ввели не все данные!') else begin memo1.Lines.Add(edit1.Text + ' ' + edit2.Text + ' ' + edit3.Text); edit1.Clear; edit2.Clear; edit3.Clear; end; end;   procedure TForm1.Button3Click(Sender: TObject); begin randomize; edit1.Text := inttostr(Random(60)+1); end;   procedure TForm1.N3Click(Sender: TObject); var   count, i, j : Integer;   wow : String; begin   count := memo1.Lines.Count;   for i := 0 to count do for j := i+1 to count do begin if (memo1.Lines.Strings[j] < memo1.Lines.Strings[i]) then begin wow := memo1.Lines.Strings[j]; memo1.Lines.Strings[j] := memo1.Lines.Strings[i]; memo1.Lines.Strings[i] := wow; end; end; memo2.Lines.Add(memo1.Lines.ValueFromIndex[memo1.Lines.Count]) end;       procedure TForm1.N2Click(Sender: TObject); begin label1.Visible := true; label2.Visible := true; label3.Visible := true; edit1.Visible := true; edit2.Visible := true; edit3.Visible := true; button2.Visible := true; button3.Visible := true; memo1.Visible := true; memo1.Clear;   end;   procedure TForm1.N4Click(Sender: TObject); begin close; end;   procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if (key in ['0'..'9',',']) then key := #0; if key=#13 then Edit3.SetFocus; end;   procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char); begin    if (key in ['0'..'9',',']) then key := #0; end;   end.

Админ: Пользуемся тегами для оформления кода!

[tttatyana]

может потскажете как сделать ,чтобы после сортировки каждого спортсмена по балам,в другом memo выскакивало 2-3 человека из первых,якобы претендентов?