VPF::[Pascal]Работа со строками - Форум программистов

Dariy

Дата 13.10.2008, 18:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Прошу помочь решить задачу для работы со строками в Паскале, т.к. за 5 лет Паскаль вспоминаю с трудом.
Условие:
Из введенного текста сначала распечатать слова, заканчивающиеся на согласную букву, а потом на гласную букву.

Насколько я понял, нужно определить длину слова с помощью пробела (но при условии что последний символ - буква, а не запятая), потом сравнить последний символ с гласными и согласными и таким образом определить к каким она относится.

THandle

Дата 13.10.2008, 18:53 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Берешь выдергиваешь функцию поиска слова из программки в этом моем посте:

http://forum.vingrad.ru/index.php?showtopi...t&p=1665314

Объявляешь 2 множества.

А дальше проверяешь к какому множеству принадлежит последний символ слова.

Dariy

Дата 13.10.2008, 19:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот что вышло:

Код


program bkt;
var 
     s,w,str1,str2:string;
     position:integer;
     u:char;
     glasnie:array[1..6] of char;

function FindWord: String;
var
  tmpStr: String;
begin
  tmpStr := '';
  repeat
    Inc(position);
    if s[position] <> ' ' then
      tmpStr := tmpStr + s[position];
     u:=s[position];
   until (s[position] = ' ');
  FindWord := tmpStr;
end;
begin
   writeln('vvedite tekst: ');
   readln(s);
   position:=0;
   w:=FindWord;
   glasnie:='a','э','и','о','у','ы';
for i:=1 to position do   
begin   
if u=glasnie
                    then 
                            str1:=str1+w;
                            str1:=str1+' ';
  else
          str2:=str2+w;
          str2:=str2+' ';
end;
writeln (str2);
writeln ('*****');
writeln (str1);
readln
end.

Верно? Возможности прокомпелировать нету((

Это сообщение отредактировал(а) Dariy - 13.10.2008, 19:41

THandle

Дата 13.10.2008, 20:44 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Код


program Project1;

var
  Position: Integer;
  S: String;
  FGLetters: set of Char = ['a', 'e', 'i', 'o', 'u', 'y'];
  FSLetters: set of Char = ['q', 'w', 'r', 't', 'p', 's',
                            'd', 'f', 'g', 'h', 'k', 'l',
                            'z', 'x', 'c', 'v', 'b', 'n', 'm'];
  Str1, Str2: String;
  StrLen: Integer;
  W: String;

function FindWord: String;
var
  tmpStr: String;
begin
  tmpStr := '';
  repeat
    Inc(position);
    if s[position] <> ' ' then
      tmpStr := tmpStr + s[position];
   until (s[position] = ' ');
  FindWord := tmpStr;
end;

begin
  Writeln('Enter text: ');
  Readln(s);
  position := 0;
  StrLen := Length(S);
  Str1 := '';
  Str2 := '';
  S := S + ' ';
  repeat
    W := FindWord;
    if W <> '' then
      if W[Length(W)] in FGLetters then
        Str1 := Str1 + W + ' '
      else
      if W[Length(W)] in FSLetters then
        Str2 := Str2 + W + ' ';
  until Position >= StrLen;
  Writeln(str2);
  Writeln('*****');
  Writeln(str1);
  Readln;
end.

Что то типа этого.

Это сообщение отредактировал(а) THandle - 13.10.2008, 20:45

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