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

sasha198407

Дата 31.1.2010, 21:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте господа. Пришла сессия и надо решать лабы. Две сделал, а две не могу. Вод задание.

Писать на Турбо Паскаль.
Задание1(использование множественного типа данных)
В алфавитном порядке напечатать (по разу) все строчные русские гласные буквы (*), входящие в этот текст более трёх раз.

Задание2(стандартный модуль string)
Дана последовательность, состоящая из 10 слов. Перевернуть те слова последовательности, в которых последняя буква слова вхлдит в гнего еще раз. Вывести результат.

Ко 2 задаче написал вот что, но выдаёт какой-то бред.

Код


uses crt;
var
a:string[100];
b:string[100];
v:string[100];
i,j,l:integer;
f:char;
begin
clrscr;
f:=',';
a:='саша, маша, петя,';
for i:=1 to length(a) do begin
if a[i]=f then
begin
b:=copy(a,1,i-1);
delete(a,1,i);

for j:=1 to length(b)-1 do
begin
l:=length(b);
if b[l]=b[j] then
begin
for l:=length(b) downto 1 do
begin
write(b[l]);
end;
end;
write(' ');
end;
{delete(a,1,i);}
end;
end;
readln;
end.

Огромная просьба если кто знает откликнуться по быстрее(можно ссылки на похожие задачи или на полезную информацию), а то горю. Прошу прощения за наглость.

M
THandle

Модератор: используйте подсветку кода!

ФедосеевПавел

Дата 1.2.2010, 00:54 (ссылка)

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

Загрузка ...

Опытный

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

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

Попробуй-ка решение первой задачи

Код

CONST
  {Cтрочные русские гласные буквы в алфавитном порядке}
  Sorted   : String      =  'аеёиоуыэюя';
TYPE
  TCounter = array [#0..#255] of Integer;
VAR
  Ch       : Char;
  i        : Integer;
  MyText   : String;         {строка с исследуемым текстом}
  Counter  : TCounter;       {массив, содержащий количество
                              вхождений символов в текст}
  CharsSet : Set of Char;    {переменная множественного типа,
                              содержащая набор искомых в тексте букв}
BEGIN
  {Ввод строки}
{$IFDEF Debug}
  MyText:='Это моя текстовая строка';
{$ELSE}
  WriteLn('Введите текстовую строку');
  ReadLn(MyText);
{$ENDIF}

  {Заполним переменную множественного типа CharsSet строчными буквами
   из переменой Sorted, в которой они перечислены в алфавитном порядке }
  CharsSet:=[];
  for i:=1 to Length(Sorted) do
    Include(CharsSet, Sorted[i]);

  {Обнуление счётчика}
  for Ch:=Low(Counter) to High(Counter) do
    Counter[Ch]:=0;

  {Подсчёт количества вхождений букв из множества в текст}
  for i:=1 to Length(MyText) do begin
    Ch:=MyText[i];
    if Ch in CharsSet
    then begin
      Inc(Counter[Ch]);
    end;
  end;
  {Вывод результатов}
  WriteLn('Строчные русские гласные буквы входящие в текст более трёх раз:');
  for i:=1 to Length(Sorted) do begin
    Ch:=Sorted[i];
    if Counter[Ch]>3 then Write(' "', Ch, '"');
  end;
  WriteLn;
END.

Это сообщение отредактировал(а) ФедосеевПавел - 1.2.2010, 00:57

sasha198407

Дата 2.2.2010, 09:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Почему-то не работает.

ФедосеевПавел

Дата 2.2.2010, 11:33 (ссылка)

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

Загрузка ...

Опытный

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

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

Сейчас скопировал из своего поста исходник, перекодировал текст из кодировки Win (1251) в DOS (866), скомпилировал, запустил exe-шник - всё работает.
Что конкретно не работает у тебя?

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