Stránka 1 z 1

Prosím o pomoc s vytvořením jednoduchého programu v Pascalu

Napsal: 18 říj 2011 21:49
od Kotik
Zdravím, potřeboval bych nutně pomoc vytvořit jednoduchý program v Pascalu. Chyběl jsem na první přednášku i cvičení ve škole a nemám vůbec páru, jak to v Pascalu chodí a na zítra máme mít tento "příklad". Zatím jsem mě nic nenapadlo.

Zadání: Na vstupu dostanete seznam celých čísel ukončených -1, která již do seznamu nepatří. Vypište největší z nich. Číslo bude alespoň jedno.

Re: Prosím o pomoc s vytvořením jednoduchého programu v Pasc  Vyřešeno

Napsal: 19 říj 2011 19:24
od faraon
A kdy jsi tu první přednášku měl, že ses to ještě nestihl doučit? ;-)
Zvládneš dát dohromady aspoň jednoduchý prográmek, třeba podle vzoru?

Takže máš řadu celých čísel (integer) od nuly do nějakého limitu, který je Pascal schopný přijmout. Nekonečno to zdaleka není. Řada je ukončená číslem -1, po jehož nalezení má program vypsat výsledek.

Nejdřív se zamysli na tím, kam budeš ukládat nejvyšší zatím nalezenou hodnotu, a co tam budeš mít před začátkem programu! Protože budeš hledat největší číslo, hodí se nastavit si počáteční hodnotu menší než je nejmenší hodnota v rozsahu, nebo použít první načtenou hodnotu.

Proměnné si pojmenuj tak, aby na první pohled bylo zřejmé co obsahují, pro tuhle úlohu se hodí:
cislo - právě načtené číslo ze vstupu,
nejvetsi - největší číslo jaké se zatím načetlo.

Cyklus se bude opakovat až do načtení zarážky (-1), a v něm pokaždé proběhne načtení a porovnání s proměnnou nejvetsi. Pokud načtené cislo je větší, tak se do té nejvetsi okopíruje.

Na závěr si zjistíš jestli bylo vůbec nějaké číslo na vstupu, a to vypíšeš, jinak nahlásíš chybu:

Kód: Vybrat vše

čti(cislo);
nejvetsi:=cislo;

dokud (cislo>-1)
  začátek
    čti(cislo);
    když (cislo>nejvetsi)
      nejvetsi:=cislo;
  konec

když (nejvetsi>-1)
  piš(nejvetsi)
jinak
  piš('Nebylo zadáno žádné číslo!')