Posloupnost čísel - úkol – Pascal – Fórum – Programujte.com

Zdravím, mám úkol, ale moc si s ním nevím rady, jen tuším že by tam měly být nějaké cykly a pole....

Tady je zadání:

Je dán počet vstupních hodnot N a dále posloupnost N čísel a1, a2, …, aN. Všechna zadaná čísla jsou celá a jsou z rozsahu datového typu integer (mohou být kladná i záporná). Napište program, který určí v této posloupnosti délku maximálního souvislého úseku stejných hodnot. Například pro vstup ve tvaru

12

4 7 4 4 4 5 7 5 7 5 7 7

bude výsledkem číslo 3, neboť nejdelší souvislý konstantní úsek je tvořen třemi čísly (je to úsek 4 4 4).

naprosto trivialni... staci pouzit mozek.. predstavit si jak bych to delal kdybych videl jen jedno cislo najednou a posouval se postupne po nich...

Vlastně ani pole nepotřebuješ, protože příkaz Read umí číst ze souboru jedno číslo po druhém. Takže pomocí Readln přečteš počet čísel a pak točíš cyklus s Readem buď pro tolik čísel nebo do konce souboru (pro případ chybného vstupu).

A jak na to? Přesně jak píše KIIV. Procházej posloupnost číslo po čísle (čili načítej ze souboru jedno po druhém) a pamatuj si:
- délku nejdelšího souvislého úseku (na začátku 0 a postupně ji opravuješ, jak nacházíš delší úseky)
- minulé číslo (pokud je stejné jako to aktuální, jsi v souvislém úseku)
- délku souvislého úseku, ve kterém právě jsi (na začátku 1, při přečtení každého čísla stejného jako předchozí zvyšuješ o 1 a když úsek skončí, porovnáš ji s nejdelší, případně ji uložíš místo ní a nakonec zase vrátíš na 1)
- jestli jsi na prvním čísle nebo ne (na začátku nemáš žádné minulé číslo a musíš to řešit jinak)