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

pashasnuff · 5 Май 2014

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

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

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

Vladimir_S · 5 Май 2014

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

pashasnuff · 5 Май 2014

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

Vladimir_S · 5 Май 2014

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

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

poiu · 5 Май 2014

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

pashasnuff · 5 Май 2014

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

Vladimir_S · 5 Май 2014

ПолучИте.
Несколько замечаний.
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 · 5 Май 2014

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

pashasnuff · 5 Май 2014

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

Vladimir_S · 5 Май 2014

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

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

pashasnuff · 5 Май 2014

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

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

pashasnuff · 5 Май 2014

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

Vladimir_S · 5 Май 2014

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

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

Да, и еще N задайте типом Integer.

pashasnuff · 5 Май 2014

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

Vladimir_S · 5 Май 2014

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

pashasnuff · 5 Май 2014

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

Vladimir_S · 5 Май 2014

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

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

. Правда, боюсь, не поверит...

pashasnuff · 5 Май 2014

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

poiu · 5 Май 2014

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

Vladimir_S · 6 Май 2014

poiu написал(а):
clrscr;

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

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

Новые

Вложения

Супермодераторы

Новые

Супермодераторы

Новые

Новые

Супермодераторы

Вложения

Новые

Новые

Супермодераторы

Новые

Новые

Супермодераторы

Новые

Супермодераторы

Новые

Супермодераторы

Новые

Новые

Супермодераторы

Похожие темы