Zajímavé cvičení – Pascal – Fórum – Programujte.com

1

Jednoduchy, jedna proměnná pro uchování hodnoty právě kontrolovaného čísla, jedna proměnná pro uchování maximální posloupnosti (na začátku nastavená na 0) jedna pro počítání aktuálního počtu. Zkontroluješ, jestli je tvoje hodnota uložená v proměnné stejná jako právě kontrolovaná (pomocí mod 10 (-zbytek po dělení desíti)), pokud je, tak "div 10" (dělení 10 beze zbytku) připočítat k aktuálnímu počtu +1, pokud není, tak nahraješ nové číslo do proměnné k porovnávání a porovnáš, jestli je hodnota proměnné s počtem vetší, než hodnota proměnné s maximem (pak opět mod 10 - vložit do proměnné k porovnávání a div 10). Máš smůlu, že už je půl jedenácté, takže se mi nechce psát zdroják, jestli moc chceš, napíšu ti ho zítra.

Všechno je samozřejmě zabaleno do procedury while, která je nastavena na "pokud je cislo pro kontrolu mensi nebo rovno 0". Chceš teda aji zdroják, nebo ti to takhle stačí?

To Garret Raziel: no radsi zdrojak, kdyby to šlo :-) děkuju..

pseudokód:

maxpocet:=0;

aktualni_pocet:=0

aktualni_cislo:=první číslo v posloupnosti



dokud nejsme na konci té posloupnosti:

  přečti z ní jedno číslo

  pokud je stejné jako aktualni_cislo, zvyš aktualni_pocet o 1

  pokud stejné není, tak:

    maxpocet:=aktualni_pocet

    aktualni_pocet:=1

    aktualni_cislo nahraď tím číslem z posloupnosti

  posuň se v posloupnosti na další pozici



vypiš proměnnou maxpocet, to je výsledek.