Zistenie či cifry v čísle stupaju/klesaju

GamerSK · Napísal **GamerSK**: 08.02.2017 17:37

Zdravím, Potreboval by som zasa pomoc :roll:

Profesor nám na konci hodiny zadal DÚ: Vytvorte program ktorý zistí či cifry v zadanom čísle používateľom stúpajú alebo klesajú. Dodal k tomu že to máme robiť cez boolean ktorý sme ešte neskúšali :lol:

Snažil som sa to nejak urobiť ale ako prvá chyba v programe je tá že cifry sa napíšu od zadu napr.: 123 sa mi zapíše ako 321 + neviem ako tieto cifry porovnám.
Program:

Kód:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var  c:word;
     cf,cf2:byte;
     moznost:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte cislo: ');
  readln(c);
  while c<>0 do
  begin
    cf:=c mod 10;
    c:=c div 10;
    cf2:=cf;
    if cf>cf2 then moznost:=true;
    if cf<cf2 then moznost:=false;
  end;
  writeln;
  if moznost=true then writeln('stupa');
  if moznost=false then writeln('klesa');
  readln;
end.

focko · Napísal **focko**: 08.02.2017 17:38

čisto technická otázka, čo v prípade, že bude číslo: 12321232123

GamerSK · Napísal autor témy **GamerSK**: 08.02.2017 17:46

tak zmenim datovy typ

focko · Napísal **focko**: 08.02.2017 17:51

ja sa len pýtam, lebo tam nejak nie je zmienená táto situácia

// Spojený príspevok Str 08.02.17 18:36

Kód:

program cifry;
var
  cislo, pomocne_cislo: longint;
  cifra: byte;
  stav, p: boolean; { true ak stupa, false ak klesa }
begin
  write('Zadajte cislo: ');
  readln(cislo);
  pomocne_cislo := cislo div 10;
  cifra := cislo mod 10;
  stav := (cifra >= pomocne_cislo mod 10);

  while pomocne_cislo > 0 do
  begin
    p := cifra >= pomocne_cislo mod 10;
    if p <> stav then
        begin
          writeln('Cisla nestupaju, ani neklesaju.');
          break;
        end;
        cifra := pomocne_cislo mod 10;
        pomocne_cislo := pomocne_cislo div 10;
  end;

  if p = stav then
    if p then writeln('Cifry stupaju.')
        else writeln('Cifry klesaju.');
  readln();
end.

// Spojený príspevok Str 08.02.17 19:49

Vysvetlenie:

V tom cykle opakovane vkladáš do [c]cf2[/c] hodnotu [c]cf[/c], čo sa bude samozrejme vždy rovnať, a teda to nesplní ani jednu z podmienok
Podmienku nemôžeš meniť podľa posledného stavu. Uvediem príklad na prvočísla, vtedy overuješ či je dané číslo deliteľné niečím iným okrem 1 a sebou samým => nemôžeš ako výsledok považovať poslednú získanú hodnotu, napr. 7x4 = 28 pri použití efektívneho algoritmu posledné číslo, ktoré testuješ je 5 -> 28 nie je deliteľná 5, ale to nič nemení na tom, že nie je prvočíslo, lebo je deliteľná aj 7 a 4.
Pri spracovávaní odzadu musíš brať do úvahy, že to ide odzadu. To znamená, že keď si určíme, že [c]true[/c] bude pre stúpajúce cifry, tak musíme kontrolovať či posledná cifra od konca je väčšia ako tá pred ňou... ak by si išiel zľava tak to presne naopak overuješ...
V cykle mám použitý aj [c]break[/c], ten okamžite ukončí cyklus
Vnorená podmienka na konci overuje či cyklus skončil tak ako má -> cifry buď klesajú alebo stúpajú, ak je to pravda, tak sa na základe hodnoty p alebo stavu (je to jedno, lebo sú rovnaké) určí čo sa vypíše

Nejaké otázky?

BX · Napísal BX: 09.02.2017 8:15

Ja to trochu zjednoduším, pseudokódom by to šlo nejako takto:

Kód:

boolean stupaju = true, klesaju = true; //na zaciatku cislo stupa aj klesa zaroven (ziadne cislo to splnuje)
integer stup_minule = 0; //nastavim na najmensiu moznu hodnotu
integer kles_minule = 9; //nastavim na najvacsiu moznu hodnotu

pre vsetky cifry (cifra) v cisle
begin
    if cifra < stup_minule then stupaju = false; //ak je cifra mensia, nez predchadzajuca, tak urcite nestupaju
    if cifra > kles_minule then klesaju = false; //ak je cifra vacsia, nez predchadzajuca, tak urcite neklesaju

    //obe nastavim na cifru, aby v dalsom cykle boli predchadzajuce
    stup_minule = cifra;
    kles_minule = cifra;
end

vysledok mam v premennych stupaju, klesaju

focko píše:

čisto technická otázka, čo v prípade, že bude číslo: 12321232123

Prečo by to mala byť nejaká výnimka? Ani neklesá, ani nestúpa, tam nie je čo riešiť.

focko · Napísal **focko**: 09.02.2017 8:20

Nie je špecifikované čo sa má vtedy diať... Teoreticky nemusíš všetky prechádzať, akonáhle narazíš na zmenu, tak môžeš cyklus ukončiť

BX · Napísal BX: 09.02.2017 8:22

Mám v paži, pri takto malých vstupoch bude overhead kontroly ukončenia podobný, ako to prejsť do konca bez nej. To bude mať zmysel až pri kontrole mnoho-ciferných čísel.

Zistenie či cifry v čísle stupaju/klesaju

Podobné témy