Results 1 to 9 of 9

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    popo popopo's Avatar
    Join Date: Sep:2005
    Location: sofiq
    Posts: 42

    ( !!!) ! ( 1 1000) . !!! ! !
    - .
    : 386/-25, 25 , 2 ,| 16-it VG,256 1024 768 , 50 /17 ,| 11- FM-

  2. #2
    Registered User Pa3KaTaH's Avatar
    Join Date: Sep:2003
    Location:
    Posts: 3,851
    [bg][/bg]

  3. #3
    Banned
    Join Date: Oct:2001
    Location: , -5
    Posts: 2,637
    Code:
    program parvata_;
    var i: integer;
    var a: array[1..271828] of integer;
    begin
      {  a}
       sort_po_posledna_cifra(a);
      {  }
    end;
    Last edited by exabyte; 22nd February 2006 at 00:02.

  4. #4
    Darknauss's Avatar
    Join Date: Mar:2005
    Location: Sofia/Vienna
    Posts: 2,151
    Quote Originally Posted by exabyte
    Code:
    program parvata_;
    var i: integer;
    var a: array[1..271828] of integer;
    begin
      {  a}
       sort_po_posledna_cifra(a);
      {  }
    end.

  5. #5
    E=mc^2 mourning_palace's Avatar
    Join Date: May:2005
    Location: the library
    Posts: 472
    , :
    x mod 10 (1);
    n , [10;n], 0 (1), - 1 ..
    , .

  6. #6

    Join Date: Jun:2002
    Location: 85435
    Posts: 4,619
    , . , !? ( integer-, [1..1000] of real, ! :P ). 50- , - !
    X570 Aorus Elite || R5 3600x || NH-D14 || 32GB RAM || GTX1070Ti Ultra Silent || PCE-AC56 || 850 EVO+MP510+HDDs || SSR-650RT all in Dark Base 900 || EV2736W || G29 || Obutto Ozone+Sparco R333

  7. #7
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    Quote Originally Posted by popopo
    ... ...
    ?
    EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
    Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|

  8. #8
    No, really, I'm a rabbit Pauli's Avatar
    Join Date: Dec:2005
    Location: Sf
    Posts: 171
    bubble sort - , "-", , . . , .

    !
    ; , , . .

  9. #9
    popo popopo's Avatar
    Join Date: Sep:2005
    Location: sofiq
    Posts: 42
    !??
    Code:
    unit popopo;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    const
      max = 10;
    type
      TForm1 = class(TForm)
        edtIn: TEdit;
        btnIn: TButton;
        btnGo: TButton;
        lb: TLabel;
        Memo: TMemo;
        procedure btnInClick(Sender: TObject);
        procedure btnGoClick(Sender: TObject);
      private
        arr: array[1..max] of integer;
    
        { Private declarations }
      public
      svobodna: integer;
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    procedure TForm1.btnInClick(Sender: TObject);
    begin
     if (StrToInt(edtIn.Text)>0) and(StrToInt(edtIn.Text)<1000) then
     begin
       svobodna:=svobodna+1;
       arr[svobodna]:=StrToInt(edtIn.Text);
       edtIn.Text:='';
       edtIn.SetFocus;
       lb.Caption:='Vavedete '+IntToStr(svobodna+1)+' stoinost:';
     end
     else
       begin
         ShowMessage('Chisloto '+edtIn.Text+' ne e v diapazaona 1..1000');
         edtIn.Text:='';
         edtIn.SetFocus;
       end;  
    end;
    
    procedure TForm1.btnGoClick(Sender: TObject);
    var
      i,j,maxj,tmp: integer;
    begin
      For i:=1 to max-1 do
        begin
          maxj:=i;
          For j:=i+1 to max do
               if (arr[j] mod 10)>(arr[maxj] mod 10) then
                 maxj:=j;
          tmp:= arr[maxj];
          arr[maxj]:=arr[i];
          arr[i]:=tmp;
        end;
      For i := 1 to max do
        Memo.Lines.Add(IntToStr(arr[i]));
    end;
    
    end.
    - .
    : 386/-25, 25 , 2 ,| 16-it VG,256 1024 768 , 50 /17 ,| 11- FM-

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |