Pascal - Небольшой Вопрос

Тема в разделе "Pascal and Delphi", создана пользователем Citromon, 6 май 2012.

  1. Citromon

    Citromon Гость

    Доброго времени суток.

    Вот не могу выполнить задание:

    Может, у кого-нибудь есть идеи?
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    1) считать строку в массив S
    2) слова отделяются пробелом, запятой, точкой и т.д. -> в цикле забить все слова отдельно в массив Words
    3) отсортировать массив Words по кол-ву согласных
    4) вывести

    проверка что символ согласный: if (s in ['b','c','d','f'.............]) then ....
    сортировка:
    repeat
    p=0;
    for i:=1 to words_count-1 do
    if (sogl(words>sogl(words[i+1]) then
    begin
    temp:=words;
    words:=words[i+1];
    words[i+1]:=temp;
    p:=1;
    end;
    until p=0;

    sogl(s:string):integer; - функция должна вернуть кол-во согласных в строке s
     
Загрузка...

Поделиться этой страницей