Vývojové diagramy – Delphi – Fórum – Programujte.com

byl by někdo tak hodný a podíval se na tyto moje vývojáky,jestli jsou správně?A nevím si rady s tímto zadáním:
1)posloupnost kladných ,po ní je řazeno číslo záporné.Musím najít počet prvků posloupnosti(počet kladných) a dále počet kladných menších než 10.
2)mám číslo N(2...100),dále N uspořádaných dvojic,které určují souřadnice bodů v rovině.Najdi souřadnice bodů,které mají největší vzdálenost od počátku.

2.vývoják

3.vývoják

Tak ten 1. výv. diagram je správně, pokud tedy nemáte kontrolovat správnost zadání N, aby bylo v tom intervalu.

2. výv. diagram ... ten je taky správně (až na příkaz za prvním cyklem, tam má být Xmin = A[1]). Dá se ovšem taky pochopit tak, že nejprve načteš celou posloupnost (pole), stejně jako v první příkladě, a teprve pak hledáš minimum v intervalu.

3. výv. diagram ... ten je v podstatě taky správně, drobnou úpravy bych udělal v kontrole N (podmínka N = 0), kterou bych dal hned za výpočet N = i - 1. Ale chybí ti tam ošetření počtu prvků v posloupnosti na 100 (podmínka řešitelnosti, co je v zadání na konci). Ta bude v tom první cyklu - v zadávání, tj. když i překročí 100, tak konec.

A ty zadání, se kterými si nevíš rady ... posloupnost kladných ukončená záporným číslem ... to je variace na 3. výv. diagram. Pokud to není nutné ukládat do pole, tak to můžeš rovnou počítat (jak celkový počet, tak i počet menších než 10). Jenom pozor, aby se do toho nezapočetlo i to záporné číslo, kterým to ukončíš.

No a to druhé zadání je v podstatě stejné jako ten 1. výv. diagram. Načteš body do pole, následně je v cyklu projdeš a budeš hledat ten bod, který má největší vzdálenost (průběžně si budeš ukládat max) a samozřejmě si uložíš i index do toho pole, kde je to max. Na konci můžeš vypsat ten bod (dle uloženého indexu) i tu vzdálenost (bude uložená v max).