POLE

miso_t · Napísal **miso_t**: 31.10.2006 17:04

Caute neviete mi niekto poradit ako mam spravit v pascale program ktory vypise pocet pismen podla toho ake slovo si uzivatel zada? Napr. BLBEC a program vypise 2xB,1xL,1xE,1xC. Dakujem za snahu mne to nejde uplne podla mojich predstav a chcel by som vediet kde robim chybu.
BTW: malo by sa to robit cez pole a:array (a..z) of integer

johny128 · Napísal **johny128**: 31.10.2006 18:15

Kód:

program LettsCount;
   type
      countArrType = array['a'..'z'] of integer;
   var
      sentence: string;
      lettcount: countArrType;
      here, which: integer;
      mychar, letter: char;
begin
   for mychar := 'a' to 'z' do
      lettcount[mychar] := 0;
   writeln('Napiste slovo');
   readln(sentence);
   for here := 1 to length(sentence) do
      begin
         letter := sentence[here];
         if letter in ['a'..'z'] then
            lettcount[letter] := lettcount[letter] + 1;
      end;
   for mychar := 'a' to 'z' do
      begin
         if lettcount[mychar] > 0 then
            writeln(lettcount[mychar],'.krat ',mychar);
      end;
end.

miso_t · Napísal autor témy **miso_t**: 31.10.2006 18:42

srry ze ti do toho skacem ale asi 3 prikazy sme sa neucili nedalo by sa to niako lahsie polopatisitcky... ale dakujem za snahu

johny128 · Napísal **johny128**: 31.10.2006 18:53

hehe, ja som to stiahol z netu

preto tam anglicke premeny..lahsie ti to neviem spravit, ale neviem na co, sak je to cele lahke na pochopenie a tie 3 prikazy mas v helpe pascalu tak povies profakovi ze si si to tam pozrel..alebo sem daj program co si spravil zatial ty a skusime ten vylepsit aby fungovali, pisal si ze nejde podla tvojich predstav uz len :o)

miso_t · Napísal autor témy **miso_t**: 31.10.2006 19:43

takze neviem tu premennu countartype...co to je a neda sa to bez toho?

miso_t · Napísal autor témy **miso_t**: 31.10.2006 20:01

ale asi takto niako som to ja vymyslel ale asi zle:

program slovo
uses crt;
var a:array [´a´..´z´] of integer;
i:integer;
pismena,pismeno:char;
slovo:string;
begin
writeln (´Zadaj svoje slovo.´);
readln (slovo);
for i := 1 to lenght(slovo) do
begin
if pismeno in [´a´..´z´] then writeln (´Mas tam zatial 1x toto´,pismeno);
if pismeno in [´a´..´z´] then pismeno := pismena;
end;
writeln (´Mas tam ´,pismena);
readln;
end.

p55p · Napísal **p55p**: 01.11.2006 15:25

takto vam to funguje??
neskusal som to compilovat, ale mi neako nejde do hlavy ze pole je z pismen (char) a deklarujete ho ako pole celych cisel (integer)..
funguje to bez problemov??

johny128 · Napísal **johny128**: 01.11.2006 16:18

p55p píše:

takto vam to funguje??
neskusal som to compilovat, ale mi neako nejde do hlavy ze pole je z pismen (char) a deklarujete ho ako pole celych cisel (integer)..
funguje to bez problemov??

to s tym pole je myslene ako oznacenia, pod jednotlivymi polozkami sa budu nachadzat cisla..takze a[b] napriklad ma hodnotu 0 a tak..a..z su iba oznacenia tych prvkov tam, ale hodnoty budu ciselne, preto integer..ak si myslel toto..

inac miso_t, v tom programe mi unika pointa co chces robit v tom for, sak "pismeno" nema ziadnu hodnotu, resp ziadnu si do tej premenej neprideloval tak cely ten cyklus sa rovno ignoruje
Takze vo for pod begin napis

Kód:

pismeno:=slovo[i];

, nasledujuce 2 riadky uz nemaju vobec vyznam

ten prvy ti vypise "pismeno" , nasledujuci riadok...do pismeno pridelis nic ? musis pocet tych pismen zapisovat do poli, to sa deje v tom mojom kde tu

Kód:

lettcount[letter] := lettcount[letter] + 1;

a potom vypisovat polia kde je hodnota vyssia ako 0 ..

Definiciu toho countarrtype som nevedel najst na nete :o) ale jeho vyznam je ze normalne ked nacitas do pismena aktualne pismeno, cize napriklad 'b' tak potom potrebujes nejako zapisat do a['b']:=a['b']+1 ; ..a tento riadok musi byt premenlivi co nemas ako spravit..ak das a['pismeno'] tak ti to nepojde..ak das a[pismeno] tiez nie..ale ked pouzijes countarrtype tak mozes pouzit a[pismeno] , to je cele vyuzitie toho tam..proste sa tam dopisu ' ' vsade

miso_t · Napísal autor témy **miso_t**: 02.11.2006 9:25

takte aok bude cely program vyzerat?? :oops:

miso_t · Napísal autor témy **miso_t**: 05.11.2006 13:48

Kód:

 program pocitanie;
 ues crt;
 var a:array [´a´..´z´] of inetger;
 pis:array[1..100] of integer;
pismeno:char;
 i:integer;
slovo:string;
begin
clrscr;
   writeln (´Napis svoje slovo.´);
readln (slovo);
for i := 1 to lenght(slovo) do
begin
   readln (a[i]);
   pismeno:=0;
    if pismeno in [´a´..´z´] then pis[i] := pis[i] + 1;
end;
   for i := 1 to lengh(slovo) do
      begin 
         writeln (´Mas tam´pismeno[i] ,pis[i],´krat.´  );
      end;
end.

a co takto keby to bolo? urvite tam niaka chba je ale aka?

audiotrack · Napísal **audiotrack**: 18.11.2006 10:07

skús toto. Momentálne nemám nahodený pascal, len delphi tak mi chýba crt. To si tam pridaj a teda ani neviem či je správny výstup lebo mi to hneď vyhodí.. no to je jedno..

Kód:

program Project2;
 var a:array ['a'..'z'] of integer;        
pismeno:char;
 i:integer;
slovo:string;
begin
for pismeno:= 'a' to 'z' do a[pismeno]:=0; // počet všetkých písmen vynulujem
write('Napis svoje slovo: ');
read(slovo);
for i := 1 to length(slovo) do      //pre každé písmeno v slove..
begin
pismeno:=slovo[i];  //do písmena dám prvý znak zo slova
    if pismeno in ['a'..'z'] then a[pismeno] := a[pismeno] + 1; //ak sa nachádza v množine a-z tak ho pripočítam jednotku k hodnote uloženej pod indexom tohto písmena, teda k nule lebo na začiatku som dal do každého písmena nulu
end;
for pismeno := 'a' to 'z' do  //prejdem celým polom
      begin
         if a[pismeno]>0 then writeln ('Mas tam ',pismeno, a[pismeno],'krat.'  ); //ak je niekde nula, netreba vypisovať
      end;
end.

možno je to neprehladné kôli tým poznámkam, ale aby si pochopil ako som zmýšlal. Vravím že nezaručujem že bude fungovať, ale môže ti to byť aspoň inšipráciou. A k tvojmu programu: máš tam aj plno preklepov, napríklad nevieš napísať uses, length, namiesto apostrofov si dával dlžne alebo čo to bolo...

POLE

Podobné témy