Programování v Delphi

[JuReeeC]

Mám udělat algoritmus tohoto:
Program načte neprázdnou posloupnost celých nenulových čísel ukončenou číslem nula a zjistí, zda je tato posloupnost klesající (další číslo vždy menší než předchozí).

Nemá někdo nějaký nápad jak by to mohlo vypadat? prosím

[Reklama]

[CZechBoY]

načtu první číslo, uložim někam
načtu další číslo, pokud je menší než předchozí tak je klesající

[faraon]

Kód: Vybrat vše

klesající:=true;
načti(číslo);
minulé:=číslo;

dokud (číslo<>0)
      načti(číslo);
      když číslo<minulé tak
           minulé:=číslo
      jinak
           klesající:=false
      konec


A pak vhodným způsobem zobrazit výsledek

[JuReeeC]

Faraone mohl bys mi ty slova nahradit tim, co tam mam napsat? Misto toho klesajici treba? Cim to mam nahradit?

[faraon]

To zrovna nemáš nahradit ničím, protože to je proměnná typu boolean. Ty další dvě jsou integer, předpokládám že v takovéhle úloze nepracuješ s reálnými čísly.

Všechno ostatní najdeš v každé učebnici Pascalu.

[JuReeeC]

Takze treba to cislo mam oznacit B a minule A a obe budou integer?

--- Doplnění předchozího příspěvku (08 Bře 2012 23:30) ---

Takze treba to cislo mam oznacit B a minule A a obe budou integer?

[faraon]

Označ je cislo a minule, ať je na první pohled vidět co v nich je. Stejně tak klesajici, pokud bys nechtěl použít výčet, tam by se tenhle název nehodil. Ale pro tenhle příklad by to bylo zbytečně komplikované.

Jednopísmenné názvy používej pouze pro indexování cyklů, nebo pokud mají jen velmi omezenou dobu platnosti, třeba při swapování proměnných:

Kód: Vybrat vše

když první<druhé
     w:=první;
     první:=druhé;
     druhé:=w
     konec


V jiném případě proměnné vždy pojmenuj celým slovem nebo více slovy, tak aby název přesně popisoval co v nich je uložené. Ušetříš si tím hodně práce při ladění

[JuReeeC]

Aha, takze nic menit. A dokaze to delhpi takle precist? My jsme meli zatim 3 Cvika a uz mame program a fakt vubec nevim co psat

[faraon]

Hádám že na prvním cvičení jste se učili jak Delphi zapnout a vytvořit projekt, na druhém hlavní typy proměnných - integer a real, a příkazy pro vstup a výstup, a na třetím větvení programu - if, then, else, a základní cykly - for, while, repeat... Víc není pro tenhle program potřeba, vlastně ani tohle všechno se nevyužije

[JuReeeC]

Tak ja to zkusim napsat tak jak jsi mi to napsal,akorat to napisu anglicky a dam tu vypis a zkontrolujes mi to jo? :-) jde videt, ze tomu dost rozumis

--- Doplnění předchozího příspěvku (09 Bře 2012 00:45) ---

Tak ja to zkusim napsat tak jak jsi mi to napsal,akorat to napisu anglicky a dam tu vypis a zkontrolujes mi to jo? :-) jde videt, ze tomu dost rozumis

--- Doplnění předchozího příspěvku (09 Bře 2012 01:27) ---

Zasekl jsem se u načtení, co tam mám načíst?

[CZechBoY]

pokud to je konzolová aplikace tak řádek z konzole, jinak nejspíš z textboxu

[JuReeeC]

To vím, ale jakou proměnnou mám načíst přímo v tomto zadání