Urči pořadí čísel – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Urči pořadí čísel – Delphi – Fórum – Programujte.comUrči pořadí čísel – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Polák
~ Anonymní uživatel
1 příspěvek
7. 2. 2008   #1
-
0
-

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 :-)

Nahlásit jako SPAM
IP: 89.176.65.–
Reklama
Reklama
Nightsorrow0
Newbie
8. 2. 2008   #2
-
0
-

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.

Nahlásit jako SPAM
IP: 91.148.16.–
wen
~ Anonymní uživatel
14 příspěvků
8. 2. 2008   #3
-
0
-
Nahlásit jako SPAM
IP: 62.177.87.–
Petr
~ Anonymní uživatel
696 příspěvků
8. 2. 2008   #4
-
0
-

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

Nahlásit jako SPAM
IP: 89.102.229.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 15 hostů

Podobná vlákna

Pořadí Require — založil Akimi Keita

Pořadí znaků — založil Synett

Prohozeni poradi — založil Joeyz

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý