Задачка на множества, Паскаль

[pashasnuff]

Задачка на множества, Паскаль

Вводится непустая строка из строчных букв не более 79 символов(чтобы было удобно читать). Отдельные слова в ней разделены запятыми слева. Справа от запятой могут быть пробелы. Вывести на печать в алфавитном порядке: все звонкие согласные, которые входят больше чем в одно слово.


Буду благодарен за помощь.

 

[Vladimir_S]

А без множеств нельзя? Задача решается существенно проще через массивы.

 

[pashasnuff]

Изучаем тему про множества, поэтому с помощью их и надо делать.

 

[Vladimir_S]

Изучаем тему про множества, поэтому с помощью их и надо делать.

Н-да... ну это только если... не при дамах будь сказано, через что. Ладно, вечером поразмыслю.

 

[poiu]

с множествами не работал, но как понимаю в множестве может содержаться буква только один раз?
то есть слово ОТВЕТ будет множество "О Т В Е"?
значит я беру слово, заношу его в множество и сверяю с множеством звонких согласных? и если более 2 совпадений то запоминаю? я верно понял?

 

[pashasnuff]

Например ввели строку
Привет, красный, жук , жало, гадость, горшок
Должен вывести Г,Ж,Р
потому что они в словах повторяются

 

[Vladimir_S]

ПолучИте.
Несколько замечаний.
1. Прописные буквы недопустимы: строка должна состоять из русских слов, написанных строчными буквами и разделенных запятыми.
2. Буква "й" в качестве звонкой согласной не включена в список. Если надо - добавьте и увеличьте длину массива Codes на 1.
3. Сам по себе массив Codes возник исключительного из-за идиотского требования расположить буквы в результирующем списке по алфавиту. Если бы не этот преподский дебилизм, то программа была бы куда компактнее, и никакой надобности в массиве не возникло бы. А так... Дело в том, что элементы множества всегда располагаются "навалом", и упорядочить их внутри множества никакой возможности нет, вот и пришлось извращаться с массивом.

Const
 Sonants:Set of Char=['б','в','г','д','ж','з','л','м','н','р'];

Var
 S:String;
 C:Char;
 i,j,k,N:Byte;
 Found:Set of Char;
 Codes:Array[1..10] of Byte;

Begin
 Writeln('Enter the string:');
 Readln(S);
 Writeln;
 Found:=[];
 N:=0;
 i:=0;
 Repeat
  Inc(i);
  If (S[i] in Sonants) and not (S[i] in Found) then
   begin
    C:=S[i];
    k:=i;
    repeat
     Inc(k);
    until (S[k]=',') or (k=Length(S));
    if S[k]=',' then
     begin
      repeat
       Inc(k);
      until (S[k]=C) or (k=Length(S));
      if S[k]=C then
       begin
        Found:=Found+[C];
        Inc(N);
        Codes[N]:=Ord(C);
       end;
     end;
   end;
 Until i=Length(S)-1;

 for i:=1 to N-1 do
  for j:=1 to N-i do
   if Codes[j]>Codes[j+1] then
    begin
     k:=Codes[j];
     Codes[j]:=Codes[j+1];
     Codes[j+1]:=k;
    end;
 writeln('Result:');
 for i:=1 to N do write(Chr(Codes[i]),' ');
 Readln
End.

 

[pashasnuff]

Это сделано каким методом? Методом множеств?

 

[pashasnuff]

Почему то не работает..(
Нельзя преобразовать тип set of string к set of char

 

[Vladimir_S]

Почему то не работает..(
Нельзя преобразовать тип set of string к set of char

Как видите, у меня работает. И где Вы узрели "set of string"? А главное - какой у Вас Паскаль? Если глючный АВС - то, пардоньте, с этой дрянью не работаю. И еще - где именно спотыкается?

 

[pashasnuff]

Исправил на стринг, да АБЦ, врое работает, но вот ошибку выдает

Когда ввожу: рррр, аааа
Вот эту ошибку выдает.
Ошибка времени выполнения: Индекс находился вне границ массива.

 

[pashasnuff]

Когда вводишь аааа, рррр
Выдает такую ошибку
Ошибка времени выполнения: Индекс находился вне границ массива.

 

[Vladimir_S]

Когда ввожу: рррр, аааа Вот эту ошибку выдает. Ошибка времени выполнения: Индекс находился вне границ массива.

А, понятно. Исправьте диапазон массива Codes так, чтобы он начинался не с 1, а с 0 (просто замените 1 на 0).
P.S. Ну зачем же тестировать на таких примерах, где совпадений нет вовсе? Я как-то считал, что хоть одно, да найдется.
Да, и еще N задайте типом Integer.

 

[pashasnuff]

Все равно, ошибка вылазит_(

 

[Vladimir_S]

Всё, разобрался.
Строку
i,j,k,N:Byte;
меняем на
i,j,k,N:Integer;

 

[pashasnuff]

Владимир, спасибо огромное а нельзя ли упростить текст программы?
конструкции repeat - until нельзя ли чем нибудь заменить? просто буквально только что начали Паскаль изучать, еще такого не проходили

 

[Vladimir_S]

Владимир, спасибо огромное а нельзя ли упростить текст программы?
конструкции repeat - until нельзя ли чем нибудь заменить? просто буквально только что начали Паскаль изучать, еще такого не проходили

Ну нет, вот это уж пожалуйста без меня. Скажите преподавателю, что настолько увлеклись, что цикл с постусловием освоили самостоятельно. . Правда, боюсь, не поверит...

 

[pashasnuff]

А ну окей)
Кстати вопрос, я хочу сделать чтоб если ничего не ввел то он говорит что строка пустая и обратно идет на ввод строки, пишу я
if length(s)=0 then
writeln('пусто');
ставлю end в конце а он говорит что вместо end ожидалось ;
не разберусь в чем проблема?

 

[poiu]

repeat
clrscr;
Writeln('Enter the string:');
readln(s);
if length(s) = 0 then writeln('Empty string!');
until length(s) <> 0;

 

[Vladimir_S]

clrscr;

Только уж если используется эта команда, то не забыть в начале программы поставить "uses CRT;" (без кавычек, естественно). Во всяком случае, в нормальном Паскале так, а как в этом... ладно, не буду.