Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]Работа со строками

Автор: Dariy 13.10.2008, 18:29

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

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

Автор: THandle 13.10.2008, 18:53

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

http://forum.vingrad.ru/index.php?showtopic=231712&view=findpost&p=1665314

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

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

Автор: Dariy 13.10.2008, 19:07

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

Код


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.

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

Автор: THandle 13.10.2008, 20:44

Код


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.

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