Dobrý den, zravím vís tu všechny... :-) Má-li někdo náladu potřebuji pomoci s algorytmem....s určením druhého čísla (První už mám)z vybraných 10. zde program:
procedure TForm1.BnClick(Sender: TObject);
var
nej1, i:integer;
A: array[1..10] of integer;
begin
A[1]:=StrToInt(Ez1.text);
A[2]:=StrToInt(Ez2.text);
A[3]:=StrToInt(Ez3.text);
A[4]:=StrToInt(Ez4.text);
A[5]:=StrToInt(Ez5.text);
A[6]:=StrToInt(Ez6.text);
A[7]:=StrToInt(Ez7.text);
A[8]:=StrToInt(Ez8.text);
A[9]:=StrToInt(Ez9.text);
A[10]:=StrToInt(Ez10.text);
nej1:=A[1];
For i:= 2 to 10 do
begin
if a[i]>nej1 then nej1:=A[i]
end;
Bn.Caption:=IntToStr(nej1) {Vypíše 1. největší číslo}
end;
Předem díky za váš čas a za dobré rady :-)
Fórum › Delphi
Urči pořadí čísel
Proste si vytvor dve premenné. Pre najväčšie číslo a pre druhé najväčšie. A keď bude nasledujúce číslo väčšie ako obidve čísla zapísané v daných premenných, tak najväčšie zapíše do druhého najväčšieho a najväčšie nahradí. A ak bude nasledujúce šílo väčšie len ako druhé najväčšie, tak ho nahradí. Stačí Ti len troška upraviť cyklus a pred cyklom si do daných premenných uložiť prvé dve čísla.
A nebo bych na to sel pres bublinkovu metodu serazeni cisel (bubblesort). Pak je to jasny posledni cislo bude nejvetsi a cislo pred nim druhe nejvetsi :-)
jelikoz se zajimam o C# tak se to da udelat nejak takto
http://l04.iue.tuwien.ac.at/VO/VO_cpp/teil2/foil09.html
A nebo si vytvor trimistne pole (nebo n+1 mistne pokud bys chtel i vice cisel), a ulozis nactene cislo na nultou pozici, pak setridis a zase zapises na nultou pozici dalsi cislo a opet setridis,..., a na konci bude na druhe pozici nejvetsi cislo a na prvni bude druhe nejvetsi...to co je na nultem uz nikoho nezajima
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Generovanie nahodnych cisel,Ruleta,nahodne cisla...poradi niekto? — založil PATRES744
Úkol(C) projití čísel násobení čísel — založil Filip Procházka
Pořadí vrstev — založil Roman
Pořadí znaků — založil Synett
Pořadí Require — založil Akimi Keita