VPF::Дана непустая последовательность слов

pasha890

Дата 20.10.2010, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.10.2010

Репутация: нет
Всего: нет

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

Цитата

var
  nc: Boolean;
  Letters: set of Char;
  str: String;
  p: Integer;
  c: Char;

begin
ReadLn(str);
p:=1;
nc:=True;
while p < Length(str) + 1 do begin
    Letters:=[];
    while (str[p] <> ',') and (p < Length(str) + 1) do begin
        if nc then
            if [str[p]] * ['a'..'z'] - ['e', 'y', 'u', 'i', 'o', 'a'] <> [] then Include(Letters, str[p]);
        Inc(p);
        end;
    Inc(p);
    nc:=not nc;
    if not nc then WriteLn;
    for c:='a' to 'z' do if c in Letters then Write©;
    end;
Readln;

end.

Можете пожалуйста написать какое действие делает каждая строчка

Frees

Дата 20.10.2010, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

а вопрос твой в чем заключается?

Добавлено через 1 минуту и 58 секунд
тебе сюда
http://forum.vingrad.ru/index.php?show_typ...p;showforum=142

--------------------

Кольцов Виктор Владимирович

pasha890

Дата 20.10.2010, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.10.2010

Репутация: нет
Всего: нет

Описать каждую строчку которая делает программа.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »