Задачи по строкам

[pashka_dos]

1.В тексте найти самой короткое и самое длинное слово.
2.Установить можно-ли из слова А составить слово Б?
Заранее спасибо))

[unbanned]

2.

var
  i: integer;
  a, b: string;
  am, bm: set of char;

begin
  a := 'слово #1';
  b := 'слово #2';
  if length(a) <> length(b) then writeln('нельзя')
  else
  begin
    for i := 1 to length(a) do
    begin
      include(am, a[i]);
      include(bm, b[i]);
    end;
    if am = bm then writeln('можно')
    else writeln('нельзя');
  end;  
end.

[matr_]

var a,b:string;
s,k,i,j:integer;
begin
read(a,b);
delete(b,1,1);
for i:=1 to length(a) do begin
 for j:=1 to length(b) do begin
 if a[i]=b[j] then k:=1;
 end;
 s:=s+k;
 end;
 if s=length(a) then write('da')
 else write('net');
 
 end.

[unbanned]

matr_
попробуй в своей программе ввести к примеру

a:='вася';
b:='сава';

[matr_]

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

[Serge_Bliznykov]

тут в условии не сказано можно ли использовать одну букву один раз!

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

ну, представьте выложили буквами (типа детской азбуки или кубики с буквами) первое слово, потом их перемешали и попытались сложить второе слово. Причём это нужно сделать так, чтобы все буквы исходного слова вошли в новое (лишних кубиков остаться не должно).

p.s. но даже если подойти к этому с Вашей позиции, у Вас всё равно НЕВЕРНЫЙ код!
как Вы объясните, что

a:='вася'; b:='сава';

ваша программа говорит "ДА"
а на

a:='вася'; b:='aаaa';

она говорит нет?! Букву а можно исопльзовать только два раза, больше уже нельзя?!


ДОБАВЛЕНО
я бы предложил такой код:

var 
  a,b:string;
begin
{read(a,b); }
  a:='васа'; b:='авса';
  while (length(a)>0) and (Pos(a[1], b)>0) do begin
    Delete(b,Pos(a[1], b),1);
    Delete(a,1,1);
  end;
  if (Length(a)=0) and (Length(b)=0)
  then WriteLn('Da, mosjno sostavit.')
  else WriteLn('Net, nelzya sostavit.');
  Readln;
end.

[psixovataya_osoba]

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

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

ну, представьте выложили буквами (типа детской азбуки или кубики с буквами) первое слово, потом их перемешали и попытались сложить второе слово. Причём это нужно сделать так, чтобы все буквы исходного слова вошли в новое (лишних кубиков остаться не должно).

p.s. но даже если подойти к этому с Вашей позиции, у Вас всё равно НЕВЕРНЫЙ код!
как Вы объясните, что

ваша программа говорит "ДА"
а на
она говорит нет?! Букву а можно исопльзовать только два раза, больше уже нельзя?!


ДОБАВЛЕНО
я бы предложил такой код:

var 
  a,b:string;
begin
{read(a,b); }
  a:='васа'; b:='авса';
  while (length(a)>0) and (Pos(a[1], b)>0) do begin
    Delete(b,Pos(a[1], b),1);
    Delete(a,1,1);
  end;
  if (Length(a)=0) and (Length(b)=0)
  then WriteLn('Da, mosjno sostavit.')
  else WriteLn('Net, nelzya sostavit.');
  Readln;
end.

ну если допустим попросить пользоателя ввести слова( а:=марго, b:=гора) составить можно, а программа пишет что составить нельзя.

[psixovataya_osoba]

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

[Serge_Bliznykov]

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

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

у Вас же, насколько я могу судить задача стоит так:

Даны две строки А и В. Составьте программу, проверяю┐щую, можно ли из букв, входящих в А, составить В (буквы можно использовать не более одного раза и можно переставлять).Например, А:ИНТЕГРАЛ; В:АГЕНТ- составить можно; В:ГРАФ- составить нельзя.

но, это потребует совсем маленьких доработок кода..
проверяйте:

var 
  a,b:string;
begin
{read(a,b); }
  a:='васа'; b:='авса';
  while (length(b)>0) and (Pos(b[1], a)>0) do begin
    Delete(a,Pos(b[1], a),1);
    Delete(b,1,1);
  end;
  if (Length(b)=0)
  then WriteLn('Da, mosjno sostavit.')
  else WriteLn('Net, nelzya sostavit.');
  Readln;
end.

[Вадим Мошев]

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

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

Если речь идёт о задаче

Установить можно-ли из слова А составить слово Б?

То да. Об этом Serge_Bliznykov написал выше, прочитайте.