Turbo Pascal - pomoc s CASE - VYRIESENE

[thejackass]

Pls potrebujem poradit:
Chcem zo vstupneho stringu pomocou POLA a CASE zistit, kolkokrat sa nachadzaju urcene znaky(napr. m,s...).
Diky

[Noclaf]

IMHO na to nepotrebujes case.

i=length(retezec) (length ta funkce co vrati delku retezce)
for a= 1 to i begin
if retezec[a]="m" OR retezec[a]="M" then inc(pocitadlo)
end

Case na to vubec nepotrebujes. Velke/male obecne lze osetrit bud upcasem celeho retezce (pred tou smyckou zavolas smycku co po znaku poupcasuje cely retezec), nebo tim, ze velke pismena maji v ASCII tabulce konstantni odstup od malych, takze velke = male+konstanta

[thejackass]

WERY THX, ale ja by som to chcel urobit s CASE, aspon sa priucim k tomu....

[Noclaf]

v tom pripade
...
for a= 1 to i begin
retezec[a]:=upcase(retezec[a])
if retezec[a]="M" then inc(pocitadlo)
...

[vtech]

WERY THX, ale ja by som to chcel urobit s CASE, aspon sa priucim k tomu....

mcount:=0;
scount:=0;
for i:=1 to Length(s) do
case upcase(s[i]) of
'M':Inc(mcount);
'S':Inc(scount);
end;

to myslis?

[thejackass]

mcount:=0;
scount:=0;
for i:=1 to Length(s) do
case upcase(s[i]) of
'M':Inc(mcount);
'S':Inc(scount);
end;


to myslis?

Asi to bude ono.
Mohol by si mi s tym trochu pomoct???
Ne vsetkemu zatail chapem.
Viem ze:
mcount, scount je to pocitadlo,
for i:= 1 to length(mojtext) do
case upcase(mojtext[pole]) = ako mam zadeklarovat to pole, a ako ho mam pouzit v tom programe??? (BTW, polia su moj problem...|

[Noclaf]

To neni pole. Na konkretni znak stringu se muzes odkazovat pomoci hranatych zavorek. Je to obycejny string.

[vtech]

Mozna by to chtelo uplne na zacatek. Upresni zadani. Neni mi jasne, na co chces pole? Na pocty jednotlivych znaku?

[thejackass]

Noclaf: ja presne neviem, polia mi absolutne nejdu, ale diky
vtech: zadanie?:
Princip: - program: zo vstupneho textu(podmienka max. 80 znakov{to uz mam}) , treba pomocou pola a case zistit, kolko krat sa nachadza dany znak{pisem to takto, aby som to pochopil vseobecne} ...
Ten vstupny text je typu string, a ostatne premenne asi typu byte, a to pole neviem....
Niesom si isty, ci som tiez spravne deklaroval premenne...

[Justik]

Proc to delat jednoduse, kdyz to jde slozite....

Schematicky zapsano:
1) Nactu znak z
2) Zjistim jeho ascii kod kod=ASCII(z)
3) Inkrementuji pole[kod] o hodnotu 1
4) Vytisknu prvky pole s hodnotou >0
5) Nepotrebuju zadne case
6) Musim si k tomu najit tabulku ASCII znaku
7) Musim se kouknout na elementarni zaklady Pascalu
8] Ukoly na zapocet delam v prubehu semestru

[thejackass]

OMG, to je na mna moc pokrocile, pochop trochu, ze som len lama zaciatocnik, ja to ale chcem spravit s CASE a polom, to co vtech pisal, bolo najblizsie k tomu, co potrebujem...
...len to este neviem spracovat...

[Noclaf]

thejackass Ja ti nepokladal otazku, ja ti to oznamoval. Mam pocit, ze ani sam nevis co chces, natoz abys chapal, co ti tu radime. Ja, vtech i Justik se ti tu snazime pomoct, ale pripada mi, ze nechapes ani zaklady Pascalu...

Pred pokladanim dalsich dotazu bych doporucil napriklad:
http://programujte.com/index.php?akce=c ... al-1-lekce
http://pascal.webz.cz/index.php?part=kurs
atp.

[thejackass]

Cas sa pohol a ja som uz tu pracu vdaka vam uspesne dokoncil!!!
Viem, ze to vyzera, akoby som nechapal ani zaklady, ale v pascale som celkom davno neprogramoval a len tak zrazu prislo toto...
Mimo temy:
BTW, zacal som programovat vo VB.NET, ale podla toho, co som pocul(cital) sa mi oplati skor ucit sa jazyk C#... ...naozaj???

[Nargon]

Jestli neumis ani VB.NET a ani C# tak radsi jdi rovnou do C#.
Ale jestli umis delat ve VB, tak je pro tebe jednoduzsi jit do VB.NET

[thejackass]

Z VB.NET uz viem syntaxu, ale vela ludi v nom uz prestava robit, lebo C# je lepsi a perspektivnejsi.
Mozno to je jednoduchsie, ale nebude to skoda?