Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Seniks
0 / 0 / 1
Регистрация: 16.09.2016
Сообщений: 68
#1

Множества.Дана строка произвольного текста.Можно ли из букв,входящих в нее, сформировать заданное слово? - Pascal ABC

14.11.2016, 23:07. Просмотров 143. Ответов 1
Метки нет (Все метки)


http://www.cyberforum.ru/pascalabc/thread699688.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2016, 23:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Множества.Дана строка произвольного текста.Можно ли из букв,входящих в нее, сформировать заданное слово? (Pascal ABC):

Дана строка. Определить, сколька раз входит в нее группа букв abc
Дана строка. Определить, сколька раз входит в нее группа букв abc.

Дана строка. Определить, сколька раз входит в нее группа букв abc
Дана строка. Определить, сколька раз входит в нее группа букв abc.

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc.

Дана символьная строка. Определить, сколько раз входит в нее группа букв abc
Дана символьная строка. Определить, сколько раз входит в нее группа букв abc. ...

Проверить, можно ли из заданных букв составить заданное слово
Двумерный массив n*m содержит некоторые буквы русского алфавита, расположенные...

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,068
21.11.2016, 16:16 #2
Лучший ответ Сообщение было отмечено Seniks как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var ms, mw: set of char;
    s, w: string;
    i: integer;
    c: char;
begin
  writeln('Введите строку:');
  readln(s);
  write('Введите слово: ');
  readln(w);
  ms := [];
  mw := [];
  for i := 1 to length(s) do include(ms, s[i]);
  for i := 1 to length(w) do include(mw, w[i]);
  if mw <= ms then writeln('Можно') else writeln('Нельзя');
  writeln('Буквы слова и их ASCII-коды:');
  for c := ' ' to char(255) do if c in mw then writeln(c, ord(c):6);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 16:16
Привет! Вот еще темы с решениями:

Дана символьная строка. Определить, есть ли в строке слово из трех букв
Дана символьная строка. Определить, есть ли в строке слово из трех букв.

Множества. Из множества латинских букв выделить множество символов, не входящих в ваше имя
из множества латинских букв выделить множество состоящее из символов не...

Дана строка и буква. Найти слово, содержащее наибольшее количество этих букв паскаль
Как продолжить ? Program rar; const n=6; var s:string; p, n:integer;...

Подсчитать и вывести количество различных символов, входящих в заданное слово
в заданном слове подсчитать и вывести количество разних символов входящих в него


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru