Pomoooc2 – Pascal – Fórum – Programujte.com

Jsou dány hodnoty A,b, a posloupnost kladnych cisle zakoncena nulou. Zjistěte kolik z těchto cisel je v intervalu <A,B>. (tj. vetsich nebo rovnych A a mensich nebo rovnych B). tohle si na nas vymyslela ucitelka a mi sme to nejak nepochopily. vubec nevim co to má dělat.

To roonill: Musíš zjišťovat, jestli je určité číslo v té posloupnosti větší než A a menší než B, Takže já bych to vyřešil cyklem repeat (Tady dej ifko na zjišťování a při =uspěchu zvyš hodnotu nějaký proměnný o jedna.) until hodnota <> 0 A když to skončí tak to vypiš.

i:=0;

repeat 

       If ((posloupnost[i]>=A) and (posloupnost[i]<=B)) then begin

                 pocitadlo := pocitadlo + 1;

                 i:=i+1;

       end;

until posloupnost[i]<>0;



       Writeln('Počet shod: ' ,pocitadlo);

To Yidgor:tak dekuju snad to nejak pujde

2 Yidgor:
Základní myšlenka je samozřejmě dobře. Ale chybky tam jsou:
1.) na začátku musíš vynulovat i pocitadlo
ale hlavně za 2.) to i:=i+1 už nemá být v tom bloku té podmínky, jinak se ti to zacyklí na první v intervalu neležící hodnotě

i:=0;

pocitadlo:=0;

repeat

begin

  If ((posloupnost[i]>=A) and (posloupnost[i]<=B)) then

    pocitadlo := pocitadlo + 1;

  i:=i+1;

end;

until posloupnost[i]<>0;

Writeln('Počet shod: ' ,pocitadlo);

To ChaoticRoman: Mám jen dvě připomínky prnvní proč máš podmínku v ifu v závorce a druhá je spíš jen takový zkrácení begin a end v tom repeatu je tam zbytečný.

Pan je asi ceckar :-). Fungovat to samozrejme bude se zavorkou i bez ni, je to jen kosmeticky detail.

To ChaoticRoman: (Y)idgor byl jen překlep. Jo jasně máš pravdu. Psal sem to narychlo a neuvědomil jsem si to. Dík za opravu.

lidi moc vám díky za pomoc. takhle to uz nejak splacam dohromady. presto kdyby se nasel nekdo kdo by mi to napsal cely byl bych rad