DELPHI. Слова. Даты.

[OKSANO4KA]

Сообщение от Stilet

Все там правильно. Я же сказал - это только для одной строки.
Если тебе нужно разделить строку на слова то рекомендую:http://www.programmersforum.ru/showt...369#post398369
А далее в цикле по массиву слов проходись и проверяй.

НУ ХОТЬ УБЕЙТЕ НУ Я НЕ ПОНИМАЮ КАК ЭТО СДЕЛАТЬ

[Snejnaya]

Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.

До боли знакомое задание и те же самые косяки в коде - ты не создавала с неделю-две назад такую же тему?
Косяки абсолютно идентичны: нет отдельного перечисления именно ГЛАСНЫХ букв и нет разбиения строки на отдельные слова

while c <> '.' do
  begin
    if c <>',' then
    s:=s+[c];
    read (c);
    end;

Ты тут просто переписываешь всю строку без запятых. И теперь у тебя нет никакой возможности разбить ее на отдельные слова. Могу поискать тему, где я писала код этой самой лабораторной.

[OKSANO4KA]

Сообщение от Snejnaya

До боли знакомое задание и те же самые косяки в коде - ты не создавала с неделю-две назад такую же тему?
Косяки абсолютно идентичны: нет отдельного перечисления именно ГЛАСНЫХ букв и нет разбиения строки на отдельные слова

while c <> '.' do
  begin
    if c <>',' then
    s:=s+[c];
    read (c);
    end;

Ты тут просто переписываешь всю строку без запятых. И теперь у тебя нет никакой возможности разбить ее на отдельные слова. Могу поискать тему, где я писала код этой самой лабораторной.

ДА ЭТО Я САМАЯ, ТЫ МНЕ ЧТО НАПИСАЛА ТАМ ОШИБКА, Я НАПИСАЛА ПРО ОШИБКУ НУ НЕ ОТВЕТА НИ ПРИВЕТА Я РЕШИЛА НОВУЮ СОЗДАТЬ(((((

[Stilet]

Ох лентяев выращивает школа...
Вот тебе полностью программа:

 var s:string; a:array[1..100] of string;
  i,count:integer;
  ae:array['A'..'z'] of char;
  c:char;
begin   {$o-}
 s:='Hello,my,world.';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if (s[i] in [',','.']) then begin
    inc(count);inc(i);
    for c:='A' to 'z' do begin
     if ae[c]<>#0 then write(ae[c]);
     ae[c]:=#0;
    end;
    writeln;
   end;
   a[count]:=a[count]+s[i];
   inc(i);
   if s[i] in ['e','y','u','i','o','a'] then ae[s[i]]:=s[i];
 end;
 readln;
end.

Я тут даже упростил немного.

[OKSANO4KA]

Сообщение от Stilet

Ох лентяев выращивает школа...
Вот тебе полностью программа:
Я тут даже упростил немного.

У МЕНЯ В ШКОЛЕ НЕ БЫЛО ПРОГРАММИРОВАНИЯ Я ВОЩЕ ГУМАНИТАРИЙ ПРОСТО ТАК СЛОЖИЛОСЬ ЧТО ПОСТУПИЛА НА ИНФОРМАЦИОНЩИКА, А ТУТ ОДИН СЕМЕСТР ВСЕГО...САМА ТО Я РЕШАЮ ЛЕГКИЕ ЗАДАЧИ, НО КОГДА ТАМ МНОГО ПУТАНИЦЫ Я ПРОСТО НЕ ПОНИМАЮ...(( Я ОООЧЕНЬ БЛАГОДАРНА ПРАВДА МОЖНО КАК НИБУДЬ СДЕЛАТЬ ЧТОБЫ ЗАПЯТЫМИ РАЗДЕЛЯЛИСЬ?ЭТО ЗАДАЧА НА МНОЖЕСТВО

From artemavd: Что клавишу Caps Lock заклинило, да?

[Stilet]

ЧТОБЫ ЗАПЯТЫМИ РАЗДЕЛЯЛИСЬ?

А я что сделал?

[artemavd]

Ответ на поставленный автором темы вопрос дал уважаемый Stilet. Считаю возможным данную тему закрыть.