Определить, можно ли из букв первого слова получить второе

@Sn4ke · Регистрация: 09.04.2014

Даны два слова. Определить, можно ли из букв первого из них получить второе. повторяющиеся буквы второго слова могут в первом слове не повторяться;

программа на паскале:

Pascal

uses crt;
var s1,s2:string;
    i,k:byte;
begin
clrscr;
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово слово');
readln(s2);
k:=0;
for i:=1 to length(s2) do
if pos(s2[i],s1)>0 then k:=k+1;
if k=length(s2)then write('Из букв первого слова можно составить второе')
else write('Из букв первого слова нельзя составить второе');
readln
end.

не работает функция strstr:

C++

#include <windows.h>
#include <iostream.h>
#include <string>
#include <cstdio>
 
int main()
{
int i,k=0;
string s1,s2;
cout<<"Enter first word ";
getline(cin,s1);
cout<<"Enter second word ";
getline(cin,s2);
for (i=1;i<s2.length();i++)
if (strstr(s2[i],s1)>0) k++;
if (k==s2.length())
cout<<"First word can be constructed of second word letters";
else cout<<"First word can not be constructed of second word letters";
system("pause");
 return 0;
}

@MastAKK · 11.04.2014, 19:08

А что такое strstr?

Добавлено через 23 секунды
Всё, тупанул.
А как вы поняли, что не работает?

@Sn4ke · 11.04.2014, 20:01 **[ТС]**

Сообщение от MastAKK

А что такое strstr?
Добавлено через 23 секунды
Всё, тупанул.
А как вы поняли, что не работает?

не пропускает s2[i], выдаёт ошибку

@fishec · 11.04.2014, 20:33

C++

#include <iostream>
#include <string>
using namespace std;
int main()
{
    int i, k = 0;
    string s1, s2;
    cout << "Enter first word: ";
    getline(cin, s1);
    cout << "Enter second word: ";
    getline(cin, s2);
    for (i = 0; i<s1.length(); i++)
        if (s2.find(s1[i])< s2.length()) k++;
    if (k == s1.length())
        cout << "First word can be constructed of second word letters: ";
    else 
        cout << "First word can NOT be constructed of second word letters: ";
    cout << endl;
    system("pause");
    return 0;
}

@MastAKK 148 / 139 / 18 Регистрация: 13.10.2012 Сообщений: 592
	11.04.2014, 19:08	2
	А что такое strstr? Добавлено через 23 секунды Всё, тупанул. А как вы поняли, что не работает? 0

@Sn4ke 0 / 0 / 0 Регистрация: 09.04.2014 Сообщений: 5
	11.04.2014, 20:01 [ТС]	3
	Сообщение от MastAKK А что такое strstr? Добавлено через 23 секунды Всё, тупанул. А как вы поняли, что не работает? не пропускает s2[i], выдаёт ошибку 0

Опции темы

Определить, можно ли из букв первого слова получить второе

Решение