Dotaz: Pascal-změna písmene

[sebba]

Ahoj, potřebuji poradit jak v TURBO PASCALU provedu následující úlohu Proveďte změnu velkého písmene na malé písmeno ? byl bych rád za kod :) děkuji

---

---

Odpovědi

[l4m4]

http://delphi.about.com/library/rtl/blrtlLowerCase.htm

[Šangala]

V Turbo Pascalu nezvládnu řešit cizí domácí úkoly, ale pro písmena A-Z v jazyce Ook! by to mohlo vypadat takto (bez ošetření, ale se vstupem a výstupem):

Ook. Ook? Ook. Ook!
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook.

[Pavel Stárek]

Kurňa není na ty domácí úlohy ještě brzy? Školní rok ještě ani nezačal. Leda by to byl někdo, kdo dělá opravnou zkoušku.

[sebba]

děkuju za pomoc ! myslel jsem že je tohle poradna a né čekárna v Bohnicích !

[Radovan]

Nojo, buďto se konečně začal chystat na opravku, a nebo si dělá trochu náskok do nového roku :)

Podle mě není k tak jednoduché úloze potřeba kód uvádět, stačí když se podíváš na tohle: (nebo tabulku ASCII)

A=65 ... a=97
B=66 ... b=98
C=67 ... c=99

O kolik se liší každé malé písmeno od svého velkého protějšku?

[sebba]

Opravky nedělám jen si opakuji ,

ord ('A' - 'a') ?

[Radek Miček]

ord ('A' - 'a')

Tohle nebude fungovat, protože Pascal neumí '-' na znacích.

[sebba]

co mám dát místo mínus ?

[Šangala]

Copak dělá fce ord() ?

[Radek Miček]

Pascal umí sčítat a odčítat čísla, tudíž je třeba napřed znaky převést na čísla pomocí ord, pak provést aritmetiku a nakonec převést čísla na znaky pomocí chr.

[Radovan]

V Céčku je to teda jednodušší

znak+=' ';

Nebo s kontrolou

znak=(znak<'A'||znak>'Z')?znak:znak+32;

[Šangala]

Nebo taky:

znak = (char) tolower((int) znak);

a nebo taky, ale to zas úplně jiný jazyk:

znak := UpCase(znak);

a pro odvážné taky:

>,++++++++++++++++++++++++++++++++.

[Radovan]

A v ještě jiném jazyce by se dal zkonvertovat celý řetězec najednou :-P

a$=LCASE$(a$)

[Ladicek]

Nechci kecat, ale pokud se dobře pamatuju, znaky v Pascalu byly ordinální typy, takže nad nimi šlo dělat výčet, indexovat jimi pole a mimo jiné je taky odčítat…

Ale už fakt nevim.

[Radek Miček]

Pro jistotu jsem to vyzkoušel ve FreePascalu a výsledek:

Error: Operation "-" not supported for types "Char" and "Char" 

[Ladicek]

Máš pravdu a já se mýlím Sorry.

[mmm561]

Spravne by bylo ord('A')-ord('a')

[Jardík]

Jó, ještě že to není 4 roky starý dotaz. Jinak tohle řešení je samozřejmě špatně a řešit takovou úlohu není žádná prdel. Je k tomu potřeba kýbl unicode tabulek a kdo ví, co ještě, třeba nějaký kontext, kde to písmeno je.

[Radovan]

Hm, a opravdu potřebuješ záporný výsledek?

[rastos]

Už minule som vravel, že na to spravím FAQ. Tak som spravil. Mohol by niekto skontrolovať, či je to prijateľnou češtinou?

[Petr Šobáň]

Asi tam bude nějaká chyba - mě to po odkazu napsalo:

Chyba

Parametr relationId je prázdný!

[rastos]

Moja chyba. Tak ešte raz.

[l4m4]

tazatel, žádá o pomoc → tazatel žádá o pomoc

aby jste se něco naučili → abyste se něco naučili

konali by jsme v přímém protikladu → konali bychom v přímém protikladu

dělali by jsme práci → dělali bychom práci

řešení, kterému nerozumíte bude → řešení, kterému nerozumíte, bude

A jednotlivé body jsou věty, tudíž by měly začínat velkým písmenem.

nežádejte, aby jsme za vás → nežádejte, abychom za vás

[Šangala]

Tak jo, a háček v nadpisu