Z-Trening точна задача а грешки резултат ?

[Aleks]

Ок... тотално се изнервирав 1000%%%%%%%%%%%%%%%%%%%%%%%

Оваа е задачата:

Dat je string S koji se sastoji od N malih slova engleske abecede. Potrebno je prebrojati koliko se samoglasnika nalazi u datom stringu.

INPUT:
Prvi red standardnog ulaza sadrži broj N (1 <= N <= 1000). Drugi red sadrži N karaktera od kojih je svaki karakter malo slovo engleske abecede.

OUTPUT:
Na standardni izlaz ispisati broj karaktera koji su samoglasnici.

Ulaz:
10
obhtueekxp

Izlaz:
4

Objašnjenje:
String sadrži samoglasnike 'o', 'u' i 'e'. Primetite da se 'e' pojavljuje dva puta i oba puta se broji.

Ulaz:
5
aeiou

Izlaz:
5

Objašnjenje:
String se sastoji samo od samoglasnika.

Мое решение :

program z_Wovels;
var
  N, I:Integer;
  Data:String;
  Broj:Integer;

begin
  ReadLn(N);
  ReadLn(Data);
  Broj:=0;
  for i:=1 to N do
    begin
      if Data[i] in ['a', 'e', 'o', 'u', 'i'] then
        Broj:=Broj+1;
    end;

  WriteLn(Broj);
end.

11/20 точни имам резултати. Во што би можело да е грешката во задачата ?

 

[Aleks]

Ок... не сум знаел дека STRING е толку за никаде. Со користење на AnsiString се реши проблемот.

П О И.

 

[kiril_cvetkov]

Drugi red sadrži N karaktera od kojih je svaki karakter malo slovo engleske abecede.

Стринг може да прифати највеќе 255 карактери а во овој случај како што гледаш треба да се читаат до 1000, AnsiString Не знам колку точно највеќе карактери можеше да прими но некаде прочитав околу 100 000 исправете ме ако сум грешка

инаку задачата може да се реши комотно и со char

 

[Aleks]

Кажав дека ја решив .)

 

[kiril_cvetkov]

ок извини :bravo: