Paskal problem!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Imam mali problem u paskalu.
Profesor je dao sledeci zadatak:
Uneti neki tekst pa izbrojati koliko puta se javlja slovo A u tom tekstu?

Pokusao sam da radim ovaj zadatak, ali nikako da mi uspe?
Da li neko mozda zna kako da ga uradim?

Verovatno se koristi neka funkcija koju do sada nismo ucili.

Ucili smo samo naredbe:
REPEAT, WHILE, IF, FOR, CASE i nista vise.

Unapred hvala!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

'pos' iz StrUtils ti pokazuje na kojoj poziciji se nalazi dato slovo.
Oblik je:

N := pos('A', rec); gde je N integer;

ukoliko slovo nije nadjeno, onda vraca nulu.

Kada odredis prvo slovo, onda mozes da izbrises sve do tog slova, pa da ponovo izvrsis pretragu.

Ukoliko 'pos' nije dozvoljen, onda prebacis rec u array of char, pa iteriras kroz array i proveravas da li je trenutni elemenat jednak slovu A.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa ako ste ucili samo te naredbe onda i ne mozes da koristis ni jednu drugu funkciju ( kao sto je Pos ), a i ne treba ti posto su ti ove sto ste ucili sasvim dovoljne.

Naime svaki string koji se unese se predstavlja kao niz i svakom clanu niza mozes pristupiti sa a[i] gde je a string a i je index tj. pozicija, tj. broj slova koje trenutno gledas u tom nizu tj. stringu ... Hehe, koliko tj.-a sam sada napisao .

Znaci tebi samo treba nesto ovako:

program ponavljanje_slova; var neka_rec: String;     broj_ponavljanja, i: Integer; begin   readln(neka_rec);   broj_ponavljanja:= 0;   for i := 1 to Length(neka_rec) do   begin     if neka_rec[i] = 'A' then Inc(Broj_ponavljanja);   end; end.

Dopuna: 27 Feb 2006 20:11

Eh, nisam video da je bobby vec napisao okvirno kako bis e ovo resilo, s tim sto nema potrebe da se rec prebacuje u array of char posto to pascal/delphi vec samo vide tako .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Verovatno je profesor i mislio na ovakvo resenje kakvo je strog napisao. To je klasicno skolski, jedino sto rec ne sme da bude duza od 255 karaktera dok to nije slucaj kod array of char.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala Strog program koji si napisao je upravo taj koji mi je trebao,
samo sto moj paskal ne prepoznaje Inc(broj_ponavljanja);
pa sam ga uradeo ovako:

program ponavljanje_slova; uses wincrt; var neka_rec: String;     broj_ponavljanja,i,p: Integer; begin   readln(neka_rec);   broj_ponavljanja:= 0;   for i := 1 to Length(neka_rec) do   begin     if neka_rec[i] = 'A' then     broj_ponavljanja:=broj_ponavljanja+1;   end;   write(Broj_ponavljanja); end.

Edit by Srki_82: koristi code tagove.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Koji je to Pascal sto ne prepoznaje Inc?

I koliko vidim ovo p: Integer ti nista ne radi .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@Licanin
Koji je Pascal ili Delphi? Ako je Turbo Pascal, ne moze se upotrebiti 'length'.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zasto ne bi mogao da se upotrebi Length?! Evo sta kaze TP7 help:

 Length (function)  ßßßßßßßßßßßßßßßßßß Returns the dynamic length of a string.  Declaration:  function Length(S: String): Integer;  Target: Windows, Real, Protected  See Also:  Copy  Concat  Delete  Insert  Pos  Sample Code:  {Length.PAS}  ßßßßßßßßßßßßßß {Sample code for the Length function.}  uses WinCrt; var   S: String; begin   Readln (S);   Writeln('"', S, '"');   Writeln('length = ', Length(S)); end.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@strog
stvarno? to znaci da sam koristila starije verzije Turbo Pascal (ako se secam dobro bio je TP 5.5).

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Moguce, ovo sam izvadio, kao sto napisa i u prethodnom postu, iz Help-a za TurboPascal 7 .