Results 1 to 9 of 9
Hybrid View
-
21st February 2006 22:51 #1
( !!!) ! ( 1 1000) . !!! ! !
- .
: 386/-25, 25 , 2 ,| 16-it VG,256 1024 768 , 50 /17 ,| 11- FM-
-
21st February 2006 23:27 #2
-
21st February 2006 23:53 #3Banned
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.
-
22nd February 2006 07:31 #4
-
22nd February 2006 15:41 #5
, :
x mod 10 (1);
n , [10;n], 0 (1), - 1 ..
, .
-
22nd February 2006 16:54 #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
-
22nd February 2006 03:09 #7?
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|
-
23rd February 2006 10:33 #8
bubble sort - , "-", , . . , .
!; , , . .
-
27th February 2006 00:48 #9
!??
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-




Reply With Quote
[bg][/bg]

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in