возможность получения из перовой строки второй

@xaker01 · Регистрация: 10.03.2013

Author24 — интернет-сервис помощи студентам

Прошу помощи людей которые понимают в паскале больше чем я =)
и помогут решить вот такую детскую задачу(сложную для меня =( )

Даны 2 строки символов. Нужно определить, можно ли из 1-й строки получить 2-ю. (Каждый символ 1-й строки можно использовать не более одного раза).

В файле "input.txt" содержатся 2 строки символов (1-я и 2-я соответственно). Напишите программу, которая определяет, возможность получения из 1-й строки 2-й.

Программа должна вывести: 1 – если из 1-й строки можно получить 2-ю, или 0 – если это невозможно.

как получить данные из файла я хорошо знаю )

но больше всего напрягает именно вот алгоритм получения первой строки из 2 при этом не больше 1 раза использовать символ..

Прошу помочь с Кодом.

Добавлено через 17 минут
очень нужна ваша помощь

@Puporev · 11.03.2013, 10:21

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

можно ли из 1-й строки получить 2-ю.

Pascal

var s1,s2:string;
    i:byte;
    f:boolean;
begin
writeln('Введите первую строку ');
read(s1);
writeln('Введите вторую строку ');
read(s2);
f:=true;
i:=1;
while(i<=length(s2))and f do
if pos(s1[i],s1)=0 then f:=false
else
 begin
  delete(s1,pos(s1[i],s1),1);
  i:=i+1;
 end;
if f then write('Можно составить из первой строки вторую')
else write('Нельзя составить из первой строки вторую')
end.

@xaker01 · 11.03.2013, 17:46 **[ТС]**

К сожалению код не рабочий

если даже исправить что бы можно было ввести 2 строку

Pascal

var s1,s2:string;
    i:byte;
    f:boolean;
begin
writeln('Введите первую и вторую строку ');
read(s1,s2);
f:=true;
i:=1;
while(i<=length(s2))and f do
if pos(s1[i],s1)=0 then f:=false
else
 begin
  delete(s1,pos(s1[i],s1),1);
  i:=i+1;
 end;
if f then write('Можно составить из первой строки вторую')
else write('Нельзя составить из первой строки вторую')
end.

серевно каждый раз выходит 'Можно составить из первой строки вторую'

Добавлено через 5 минут
имеется такое 1 строка jxeqtoahcwvxbkmoaxdekxunmnppdslhynq
вторая строка oavekmxkwjxuactbehxxoqa

результат должен получится что не возможно

@Puporev · 11.03.2013, 18:09

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

К сожалению код не рабочий

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

серевно каждый раз выходит 'Можно составить из первой строки вторую'

У меня так

@Puporev · 11.03.2013, 18:28

Вот программа и исходный файл

@xaker01 · 11.03.2013, 18:36 **[ТС]**

Program1.pas(15) : Ошибка времени выполнения: Индекс находился вне границ массива.

@Puporev · 11.03.2013, 19:03

Исправил вложение

Добавлено через 10 минут
Еще раз скачай, еще исправил...

@xaker01 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 24
		1
	возможность получения из перовой строки второй 11.03.2013, 00:23. Показов 2908. Ответов 6 Метки нет (Все метки) Прошу помощи людей которые понимают в паскале больше чем я =) и помогут решить вот такую детскую задачу(сложную для меня =( ) Даны 2 строки символов. Нужно определить, можно ли из 1-й строки получить 2-ю. (Каждый символ 1-й строки можно использовать не более одного раза). В файле "input.txt" содержатся 2 строки символов (1-я и 2-я соответственно). Напишите программу, которая определяет, возможность получения из 1-й строки 2-й. Программа должна вывести: 1 – если из 1-й строки можно получить 2-ю, или 0 – если это невозможно. как получить данные из файла я хорошо знаю ) но больше всего напрягает именно вот алгоритм получения первой строки из 2 при этом не больше 1 раза использовать символ.. Прошу помочь с Кодом. Добавлено через 17 минут очень нужна ваша помощь 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.03.2013, 18:09	4
	Сообщение от xaker01 К сожалению код не рабочий Сообщение от xaker01 серевно каждый раз выходит 'Можно составить из первой строки вторую' У меня так Миниатюры 0

@xaker01 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 24
	11.03.2013, 18:36 [ТС]	6
	Program1.pas(15) : Ошибка времени выполнения: Индекс находился вне границ массива. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.03.2013, 19:03	7
	Исправил вложение Добавлено через 10 минут Еще раз скачай, еще исправил... 1