pascal

majka090 · Napísal **majka090**: 08.01.2009 16:32

neviem preco mi vypisuje chybu pri in, mozete mi prosim pomoct

Kód:

procedure spoluhlasky (pole:typpole; var vystup:typpole);
var i:integer;
    ret:string;
begin
  for i:=1 to 100 do
  begin
  ret:=pole[i];
  if not ret[1] in ['a','A','e','E','i','I','o','O','u','U''y','Y'] then vystup:=pole[i];
  else vystup:='     '
  end;
end;

neutronmind · Napísal **neutronmind**: 08.01.2009 17:04

Chyba ti tam ciarka. :rolleyes:

['a','A','e','E','i','I','o','O','u','U','y','Y']

majka090 · Napísal autor témy **majka090**: 08.01.2009 17:19

aj tak mi ju tam vypisuje

neutronmind · Napísal **neutronmind**: 08.01.2009 17:24

Myslim, ze toto by malo byt uzatvorkovane

Kód:

if not (ret[1] in ['a','A','e','E','i','I','o','O','u','U''y','Y']) then ...

(co vsak nie je syntakticke chyba).

Co konkretne ti vypisuje? Ake hlasenie? Je mozne, ze chyba je niekde v zvysku zdrojaku (napr. v type "typpole"). Posli sem zdrojak... :rolleyes:

majka090 · Napísal autor témy **majka090**: 08.01.2009 17:25

ak ju urobim takto, mi nevypise ziadnu chybu, ale vobec mi nic ani nerobi

procedure spoluhlasky (pp:typpole; var vystup:string);
var i:integer;
retazec:string;
begin
vystup:='';
for i:=1 to 100 do
begin
retazec:= pp[i];
if retazec[1] in ['a','e','i','o','u','y','A','E','I','O','U','Y']
then vystup:=' '
else vystup:=pp[i];
end;
end;

neviete co mam na tom zle

neutronmind · Napísal **neutronmind**: 08.01.2009 17:37

Mozes to spravit aj jednoduchsie, staci dat len

Kód:

for i:=1 to 100 do 
begin
if (pp[i, 1] in ['a','e','i','o','u','y','A','E','I','O','U','Y']) then
{vystup}
end;

Skus si do toho pola dat len retazce, ktore zacinaju na samohlasku. Potom by ti ich malo vsetky vypisat...

majka090 · Napísal autor témy **majka090**: 08.01.2009 17:45

uz som na to prisla to else som dala prec a dala tam write

pascal

Podobné témy