Напечатать в алфавитном порядке все глухие согласные буквы

[123new]

Напечатать в алфавитном порядке все глухие согласные буквы

Задание на паскале: "дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя бы в 1 слово"
Получилось что выводит все буквы которые есть хотя бы в 1 слове.
где исправить и на что?
Текст программы:

Program proga;
uses crt;
type let='а'..'я';
var sogl:set of let;
    text: set of char;
    c:char;
    s:string;
    i:byte;
begin
Clrscr;
  writeln('введите текст, заканчивающийся точкой');
  readln(s);
  if s[length(s)]<>'.' then s:=s+'.';
  text:=[];
  sogl :=['к','п','с','т','ф','х','ц','ч','ш','щ'];
  writeln('Согласные буквы в предложении или слове: ');
  repeat
  if s[i] in sogl then text:=text+[s[i]];
  i:=i+1;
  until s[i]='.';
  for c:='a'  to 'я' do if c  in text then write(c);
readln;
end.

 

[Vladimir_S]

Задание на паскале: "дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя бы в 1 слово" Получилось что выводит все буквы которые есть хотя бы в 1 слове. где исправить и на что?

То есть по простому - вывести глухие согласные, которых в тексте (строке) нет? Если так, то тут лучше без всяких множеств:
1. Задаем Ваш sogl в виде константы-литерного массива.
2. Организуем двойной цикл с, например, булевым флажком: внешний - по sogl[j], внутренний (типа repeat-until) по s. При совпадении (sogl[j]=s) перебрасываем флажок (напр. из true в false). Внутренний цикл ведем до переброса флажка или (or) до length(s).
3. Если флажок остался в true, выводим sogl[j].
4. Можно еще счетчик найденных глухих согласных организовать, и если он остался нулем, то вывести что-нибудь типа 'Таких букв нет!'.
Как-то так. Справитесь?

 

[123new]

Справитесь?

наврядли. Паскаль оч. плохо знаю. Если не сложно - напишите этот кусочек программы пожалуста :tehnari_ru_121:

 

[Vladimir_S]

наврядли. Паскаль оч. плохо знаю. Если не сложно - напишите этот кусочек программы пожалуста

Да не особо. Терпеть, правда, не могу возиться с кириллицей (у меня DOS-Паскаль, отсюда проблемы с перекодировками), ну да ладно:

Program proga;
uses crt;
const
 sogl:array[1..10] of Char=('к','п','с','т','ф','х','ц','ч','ш','щ');


var
 s:string;
 i,j,n:byte;
 b:boolean;

begin
 Clrscr;
 writeln('Введите текст:');
 readln(s);
 n:=0;
 for i:=1 to 10 do
  begin
   b:=true;
   j:=0;
   repeat
    inc(j);
    if s[j]=sogl[i] then b:=false;
   until (b=false) or (j=length(s));
   if b then
    begin
     inc(n);
     write(' '+sogl[i]);
    end;
  end;
 writeln;
 if n=0 then writeln('Таких букв нет!');
 readln;
end.

 

[123new]

Спасибо, попогло. Респект. Если не сложно - вот ещё 3 задания надо:
Задание 1
Дан двумерный массив. найти и напечатать число, которое встречается в каждом столбце. если такого нет - напечатать сообщение
Задачи 2-3
1-й скрин - условие, 2-й скрин - задание 2, 3-й скрин задание 3
скрин 1
скрин 2
скрин 3

[mod2]Не сочтите за труд - наведайтесь, пожалуйста, сюда:
http://www.tehnari.ru/f8/t32642/
И впредь руководствуйтесь тем, что там написано.
Использование сторонних хостингов у нас не приветствуется.
Модератор.[/mod2]

 

[123new]

нужно только 2-е задание теперь