Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 06.12.2017
Сообщений: 9
1

Для каждого слова в отдельной строке вывести YES если его можно сложить из печенья, и NO если нет

06.12.2017, 10:08. Просмотров 414. Ответов 4
Метки нет (Все метки)

Вот условия задачи
И снова знаменитые буквы из печенья поступили в продажу! Их можно не только есть - с ними можно еще и играть. Ваша младшая сестра старается сделать слова из присутствующих в наборе букв. А Вам следует определить, сможет ли она это сделать.

По буквам, находящимся в коробке, необходимо определить, можно ли составить из них слова, которые знает Ваша младшая сестра. После составления очередного слова она возвращает буквы в коробку. Таким образом сестра может использовать одну и ту же букву при составлении разных слов.

Входные данные

Первая строка содержит количество тестов T - число коробок с печеньем, которое имеется у Вашей сестры. Каждый тест начинается строкой, которая описывает буквы в коробке в произвольном порядке. Далее следует количество слов W, которое хочет произнести сестра, и сами W слов - по одному в строке.

0 < T ≤ 100
0 < W ≤ 100
Все буквы заглавные и принадлежат латинскому алфавиту (A-Z).
В каждой коробке находится не более 1000 букв из печенья.
Каждое слово содержит не более 100 букв (слово не обязательно принадлежит английскому словарю).
Выходные данные

Для каждого слова в отдельной строке вывести YES если его можно сложить из печенья, и NO если нет.
Написал программу на Pascal, ответ выводит мерный, но не проходит ни один тест.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var s:array[1..1000] of string;
s1,s2:string;
i,j,n,t,h,w,g,m:longint;
begin
readln(t);
for h:=1 to t do
begin
readln(s1);
readln(w);
for i:=1 to w do readln(s[i]);
for i:=1 to w do
begin
s2:=s1;
for j:=1 to length(s[i]) do
for g:=1 to length(s2) do
if s[i][j]=s2[g] then begin inc(m); delete(s2,g,1); break; end;
if m=length(s[i]) then writeln('Yes') else writeln('No');
m:=0;
end;
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2017, 10:08
Ответы с готовыми решениями:

Для каждого числа в отдельной строке вывести его квадратный корень
ребята, помогите с этой простой задачкой, объясните , что к чему, спасибо....

Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Обработка символьных данных. Yes, если есть символ в строке и NO если его нет
Здравствуйте! Помогите решить задачу: Если в данный текст входит любая из букв слова key,...

Если число целое,то вывести сумму его цифр,если нет,то вывести корень квадратный из модуля числа
Если число N целое,то вывести сумму его цифр,если нет,то вывести корень квадратный из модуля числа.

4
3837 / 1798 / 1974
Регистрация: 10.12.2014
Сообщений: 6,992
06.12.2017, 10:45 2
Пример входных данных в студию!
0
0 / 0 / 0
Регистрация: 06.12.2017
Сообщений: 9
06.12.2017, 13:00  [ТС] 3
Извините. Вот примеры
Входные данные
1
ABANANACOOKIE
4
BANANA
LETTER
COOKIES
CAN
Выходные данные
YES
NO
NO
YES
0
3837 / 1798 / 1974
Регистрация: 10.12.2014
Сообщений: 6,992
07.12.2017, 06:25 4
Цитата Сообщение от Sl1Mo Посмотреть сообщение
Вот примеры
Вижу только один пример, для которого вроде всё верно,*кроме одного:
у вас выводит „Yes“ и „No“ вместо указанных „YES“ и „NO“.
1
0 / 0 / 0
Регистрация: 06.12.2017
Сообщений: 9
07.12.2017, 12:05  [ТС] 5
Точно, спасибо, я как обычно не замечаю своих косяков.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2017, 12:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Почему макрос работает, если создавать и запускать его в Командной строке, а если в пакетном файле, то нет?
Подскажите почему если вводить последовательно в командной строке DOSKEY npp=&quot;C:\Program...

Определить является ли заданное число трёхзначным, если нет, вывести его последнюю цифру, а если да, первую
Помогите пожалуйста, срочно. Нужно определить является ли число трёхзначным, если нет, вывести его...

Для каждого C[i] выведите YES если его можно представить в виде суммы элеента массивов А и В
Даны три массива A, B, C. Для каждого C выведите YES если его можно представить в виде суммы...

Для каждого исходного набора вывести номер последного элемента равного 2, или число 0, если в данном наборе нет двоек
Даны целые числа K,N, а также K набор целых чисел по N в каждом наборе. Для каждого набора вывести...


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

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

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