Matematické Fórum

cislonula · 16. 12. 2010 20:45

Ahoj všem, přeju pěkný den...

Mám tu problém s jednou prací, ke které sem tak nějak přišel. našla by se miz Vámi hodná duše co by dokázala napsat celý program v pascalu?
Program má určit, jestli řetězec obsahuje pouze malý písmena.
Doufám, že tu někdo pomůže :-)

hradecek · 16. 12. 2010 20:58

↑ cislonula:
Jediné čo ma napadá je prejsť reťazec znak po znak, a využiť pri tom poznatku z ASCII tabuľky...

cislonula · 16. 12. 2010 21:05

Tak změna... to je úloha snad za trest ./ a já to stejně nevymyslím...

program určí, zda zadaný řetězec obsahuje pouze písmena (uz nejde o jejich velikost)

chjo...

gladiator01

stejně jako předchozí, k jednotlivým znakům řetězce můžeš přistupovat stejně jako k prvkům pole, procházíš tedy řetězec cyklem a porovnáváš jestli se číselná hodnota rovná hodnotě v ascii tabulce: 65-90 jsou velká písmena a 97-123 jsou malá písmena.

Pomocí Ord(retezec[i]) (i je od 1) zjistíš jakou má znak číselnou hodnotu a porovnáš ji s hodnotou v ascii tabulce. když zjistíš že se nerovná tak test přerušíš a prohlásíš, že v řetězci nejsou jen písmena.

Délku řetězce zjistíš funkcí Length(string);

Ale tohle jsi si mohl, stejně jako já najít, stačí do googlu zadat pascal řetězce.

hradecek

↑ cislonula:
Niečo som na rýchlo zbúchal

Code:

var s : string;

function male(s : string) : boolean;
var i: integer;
begin
    for i:= 1 to length(s) do
        begin
            if(not((integer(s[i]) >= 97) AND (integer(s[i]) <= 122))) then
                begin
                    male:= false;
                    break;
                end
            else
                male:= true;
        end;
end;

begin
    readln(s);
    if(male(s)) then
        write('je')
    else
        write('nie je');
    readln;
end.

V pascale sa veľmi neorientujem, takže ešte by sa určite dalo nájsť lepšie riešenie...

Olin · 16. 12. 2010 21:59

V Pascalu na to jde dokonce použít tamější specialitku - datový typ množina.

Code:

if C in ['a'..'z', 'A'..'Z'] then ...

cislonula

hradecek > to vypadá perfektně, moc moc děkuju, zítra napíšu jak to projde, ve škole na to kouknem
ono mi zadat něco k čemu sme se nedobrali je pro mě nadlitskej ůkol.. no nic

olin > hmm thx za tip

gladiator > vím, ale z doporučení od kamaráda sem slyšel že jste tu super lidi a taky že jste! díky za rady

Matematické Fórum

#1 16. 12. 2010 20:45

Pascal - urceni zda retezec obsahuje pouze pismena

#2 16. 12. 2010 20:58

Re: Pascal - urceni zda retezec obsahuje pouze pismena

#3 16. 12. 2010 21:05

Re: Pascal - urceni zda retezec obsahuje pouze pismena

#4 16. 12. 2010 21:53 — Editoval gladiator01 (16. 12. 2010 21:59)

Re: Pascal - urceni zda retezec obsahuje pouze pismena

#5 16. 12. 2010 21:58 — Editoval hradecek (16. 12. 2010 21:59)

Re: Pascal - urceni zda retezec obsahuje pouze pismena

Code:

#6 16. 12. 2010 21:59

Re: Pascal - urceni zda retezec obsahuje pouze pismena

Code:

#7 16. 12. 2010 22:37 — Editoval cislonula (16. 12. 2010 22:37)

Re: Pascal - urceni zda retezec obsahuje pouze pismena

Zápatí