Stránka 1 z 1

Delphi - posloupnost

Napsal: 21 srp 2009 10:50
od buggy
Ahj lidi, potřeboval bych poradit jak udělat program v delphi, kdy mám soubor s nějakými čísly posloupnosti a chci, aby program prošel celou posloupnost v souboru a zjistil, jestli je rostoucí (célá posloupnost,ne pouze některé dvojice nebo tak..). Nevím jak dostat do programu podmínku a[i]<a[i+1]<a[i+2]...<a[n]. Předem dík za vaše rady.

Re: Delphi - posloupnost

Napsal: 21 srp 2009 15:50
od Paulí
Delphi si už moc nepamatuju, ale všechny programovací jazyky by měli být podobný.

Pokud to dobře chápu, tak máš několik čísel a chceš vědět jestli vždy to následující je větší než to předchozí. Na to je nejlepší cyklus.

Kód: Vybrat vše

For (int i = 0; i < a.Legenth; i++)
{
 If (a[i]>a[i-1])
 {
   //v pořádku
 }
 else
 {
   //chyba
   return; //pro ukončení cyklu
 }
}

Jednodušeji, ale pouze s ověřováním chyb:

Kód: Vybrat vše

For (int i = 0; i < a.Legenth; i++)
{
 If (a[i]<a[i-1])
 {
   //chyba
   return; //pro ukončení cyklu
 }
}


Kod je zapsaný pro C#, takže pro delphi si to budeš muset mírně upravit.

Re: Delphi - posloupnost

Napsal: 21 srp 2009 18:55
od buggy
Ok, zkusím si s tím nějak pohrát.. díky