Pascalovský paskvil

5.11.2006 12:08

Zdravím byl jsem okolnostmi donucennapsat neco v pascalu a zápasím s jedním problémem. Nejlépe to ukázu v nejakém zápise takze

repeat
WriteLn('Zadej volbu');
ReadLn(volba);
until volba=A;
WriteLN('Zadani promene je ok');
WriteLn(volba);

Co tento kousek kodu dela je jasne, cykluje dokud user nezada A a pak vypise promenou volba. Potrebuji do toho dostal cosi jako

until volba=A..D;
nebo
until volba=A,B,C,D;

Proste místo podmínky A zadat rozsah, pri kterém bude splnena. Pokud mozno jednoduse, nejaký extra slozitý zápis nemá moc význam. Díky za prípadné rady.

p.s. s linuxem to má spolecného snad jen to, ze to písu v kdevelop a kompiluju pomocí fpc, ale snad to az tak nevadí.

       

Komentáře

[XSimi]

( a > neco )and( a < necojinyho )

?

[MartinK]

zkus until (volba='A') or (volba='B') or ...

[vencour]

To už je lepší převést na vyhodnocování ordinální hodnoty .. větší než 'A' nebo 'a' a menší než 'z' nebo 'Z'.

[Radek Trnka]

bohuzel to jsem zkousel - nelze

[vencour]

Ok, doplňte prosím datové typy, jaké jste použil ... stejně jaké chybové hlášky.

[MartinK]

Ve škole v hodinách programového vybavení jsem to řešil takto:

repeat
   write ('Zadej znak pro konec: ');
   readln (zn);
until (zn = 'k') or (zn = 'K');

zn je typu char

[vencour]

Ještě, že zálohuju semestrálky ... kdysi jsem to dělal takhle ...

         repeat until keypressed or Stisknuto;
         if keypressed
           then repeat
                  cti_klavesu(k)
                until (k in ['A','N']) or (k in [#27,#13]);
         if k = #27 then Txt(20,18,'             ');
         if (k in ['A',#13]) or LClicked then konec := true;
         if (k = 'N') or RClicked

[Lukáš Rýdlo]

V Kdevelopu? Snad ve vimu, ne?

Jinak mi tam nějak schází uvozovky u toho A, ale už je to dost dlouho, co jsem psal v Packalu. A obecné řešení takéto věci je přes ASCII hodnotu. "A" je tuším 64, takže ta podmínka by mohla být něco jako ord(volba)>63 AND ord(volba)<68 (pokud teda packal píše and jako AND a ne jako ampersandy )

[Radek Trnka]

ja kdy jasne uvozovky u toho A mají být - psal jsem to jen na ukázku, aby bylo jasné co potrebuji. . Skoda doufal jsem ze jde nejak do té podmínky vpasovat rozsah. Bohuzel evidentne se mu tam nezdá to AND. Stejne tak OR nebo cokoli podobneho

[Kníže Ignor]

a) Že ti to nefunguje je jen a pouze tvoje chyba, Pascal za to nemůže a pokud ho zesměšňuješ, zesměšňuješ jen sám sebe.

b) Pokud ti tam "nefunguje OR nebo cokoli jiného", tak se nejdřív zkus podívat na priority operátorů v Pascalu (např. (x=0 or x=1) v Pascalu nemá smysl), pokud ti nepomůže ani tohle, tak děláš dramaticky špatně něco jiného. V tom případě sem vlož celý program a chybové hlášky.

[Radek Trnka]

A kde jsem rekl ze to je problém pascalu? Nebo ho prohůh zesmesnuju? Nemyslís,ze to trochu prehánís? Pouze jsem napsal problém, který se mi (ano me!) nedarí vyresit a pozádal jsem o pomoc. Nikde jsem nerekl, ze to nedelám spatne.

[Kníže Ignor]

Nemyslís,ze to trochu prehánís?

Asi jo No, podle nadpisu a prvních dvou vět zápisku jsem podlehl dojmu, že budeš jeden z těch neukojených uhrovitých teenagerů, pro které jazyky jako Pascal nebo Java nejsou dost geekovské a co kolem sebe trousí poznámky jako "Java je shit" aby se později ukázalo, že neznají ani QuickSort (prostě takový Jarda Šmíd )

Takže sorráč

[Radek Trnka]

No teenager ve 30 - ted nevím zda mi to má lichotit nebo urázet Ne v pohode. Ten paskvil v nadpisu je mysleno jako muj vytvor=paskvil. Nikdy jsem s pascalem do styku neprisel, proto v nem tápu a proto vznikl i tento zápisek - ve kterém jsem doufal, ze mi dobrí lidé poradí jak na to - coz se taky stalo a tímto vsem jeste jednou díky. R

[vencour]

Jseš mladší, než já ... tys nebyl na vejšce? Tam jsem se k Pascalu pořádně dostal ... zkus když tak server Builder, sice jsem ještě hledat nemusel, neživim se tim, ale tam bych začal prvně. Další variantou se zdá být Programátorské heaven.

[Radek Trnka]

Nejak me to nebralo, a ted na "starý" kolena jsem chytil druhý dech Takze tam ho po me taky chtej. Nikdy predtim jsem se s ním nesetkal, spís bash a perl, ale jsou tam rozsíly ve kterých zatím plavu

[vencour]

Hm, já psal jen v dosu, v borland pascalu byly v helpu docela dobrý příklady ...

[Boris Dušek]

until (ord(volba) >= ord('a')) and (ord(volba) <= ord('d'))

[Radek Trnka]

no takhle nejak bych si to predstavoval ... ale hází to chybu - tipuju, ze mám chybne definovaný typ promene volba.

[Boris Dušek]

Tak napiště, jakou chybu to hází, a jak máte zadeklarovanou proměnnou "volba". Bez úplných informací z Vaší strany se dál nedostaneme.

[Radek Trnka]

Takze jsem to upravil takto

until ((volba) >= ('a')) and ((volba) <= ('d'));

Funguje jak jsem potreboval. Vrelé díky. Jenom drobnost - proc jsi (jste) pouzil to ord, kdyz i bez nej to funguje jak ma?

[Martin Baleja]

Možná proto, že ord převádí znak na celé číslo. Že to funguje tak jak jsi to napsal i přitom že volba je typu integer, to se docela divím.

[vencour]

Podle tohodle zápisu to je celý nějak divný ... ještě jsem neviděl proměnnou v závorkách, jak je zde.

Znak na ordinální hodnotu se převádí pro lepší přehlednost, jinak není nutno. A hlavně a se závorkama snad je string a znak s apostrofem je char. No a vstupem je char či integer, podle definované vstupní funkce.

[Kyosuke]

Jestli ono to nebude tím, že znak je v Pascalu ordinální typ…

[vencour]

Ok, jedna procedura pro příklad ...

(* poskytuje moznosti obsluhy dat, obsluha je pres cisla, konec pres Esc *)
procedure menu;
var volba       : char;     {ctu volby do menu}
    skoncit_menu: boolean;  {je-li true, procedura se ukoncuje}
begin
  skoncit_menu := false;
  repeat
    WriteLn('     Nabidka');
    WriteLn('     1: Pridani');
    WriteLn('     2: Vypis');
    WriteLn('     3: Vymaz');
    WriteLn('     4: Nacteni ze souboru');
    WriteLn('     5: Ulozeni do souboru');
    WriteLn('     6: Prikaz DOSu');
    WriteLn('     7: Servis');
    WriteLn('     8: Konec');
    repeat
      cti_klavesu(volba)                    {Alt+X,Esc}
    until volba in ['1'..'8','x','X','o','O',  #45,#27];
    case volba of
      '1': pridej(prvni);
      '2': vypis(prvni, '');
      '3': dispous(prvni,1);
      '4': nacti_data(prvni, '');
      '5': uloz_data(prvni,'');
      '6': spust(def.cesta_shellu,'');
      '7': nastav;
      'O','o': about
      else skoncit_menu := true
    end
  until skoncit_menu; {pri '8','x','X',Esc}
  WriteLn
end;

[Radek Trnka]

Vycerpavajcí - díky. Sice pro to momentální zadání pomalu delsí nez program sám, ale tohle stojí za ulozeni a prípadné pozdejsí pouzití. Doufám, ze je to pod GPL )

[vencour]

Jelikož jsem autorem, tak bych to nechal klidně free ... ať se kultura programování zvyšuje. Nebo ať mne i někdo klidně zdokonalí.

[Foxnet]

co takhle toto:

var hotovo:boolean;
    volba:char;
begin 
  repeat
    Write('Zadej volbu: ');
    ReadLn(volba);
    case volba of
      'A':hotovo:=true;
      'B':hotovo:=true;
      'C':hotovo:=true;
      'D':hotovo:=true;
    else hotovo:=false;
  until (hotovo=true);
end;

Mám pocit, že funguje i 'A'..'D' nebo neco podobneho (myslim v syntaxi case-u).

[Foxnet]

Koukám, že už mě někdo předběhl... Omlouvám se za duplicitní nápad.

[Radek Trnka]

Abych to shrnul pro jednoduchost vyhrává

until volba in ['a','b','c','d'];

Vsem díky za podnety. R

[Radek Trnka]

Jednu drobnost to nemá osetrenou - a to pokud user zadá napr. az - pak to podmínce vyhoví také, ale to je alespon v mém prípade drobnost.

[vencour]

Jelikož je to na vstupu char (chcete ho tam mít), tak je vezmete první znak ze stringu ... a při té podmínce se testuje, zda je načtená hodnota rovná požadované, dané mnoužinou či podmínkou ... tohle jsou základy a proto by na ně neměly platit, aplikoaet se patenty a licence.

[#Tom]

To je dobré, ale takto je to ještě lepší:

var
  Znak: Char;
begin
  repeat
    Write('Zadej A, B, C nebo D a potvrď Enterem: ');
    Read(Znak);
    Znak := UpCase(Znak);
    WriteLn('Bylo zadáno ', Znak);
  until Znak in [ 'A'..'D' ];
end.

A nebo ještě lépe:

uses Crt;
var
  Znak: Char;
begin
  Write('Stiskni A, B, C nebo D: ');
  repeat
    Znak := UpCase(ReadKey);
    if (Znak = #0) then ReadKey; { Funkční klavesy, šipky a podobné nesmysly se čtou dvakrát }
  until Znak in [ 'A'..'D' ];
  WriteLn(Znak);
end.

[Radek Trnka]

Díky vsem, kterí jste reagovali uz je to vyresené.

[blogsm]

Patří vůbec takové věci do blogu? BLE

[Radek Trnka]

A kdo te nutí to císt? Natoz namáhat prsty a unavovat se neplodným prudením?

[blogsm]

Nikdo. Je to moje svobodná volba heč. Ale IMHO na takové a podobné dotazy jsou fóra, poradny, diskuze. Ne BLOG

[Radek Trnka]

No jasne, ale vzhledem ktomu co vse se tady v blogách objevuje (od politiky po nákupy cehokoli) si myslím, ze tohle jde prekousnout.