Delphi - posloupnost

[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.

[Reklama]

[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.

[buggy]

Ok, zkusím si s tím nějak pohrát.. díky