VPF::можна ли из одного слова сделать другое?

shef

Дата 29.11.2005, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 3.11.2005

Репутация: нет
Всего: нет

Я ввожу с клавиатури два слова. И нужно узнать можна ли с второво слова сделать первое.
Если да то вивести "да", а если нет значит "Нет".
Например

марго
рог

"да"

eskaflone

Дата 29.11.2005, 22:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 5.11.2005

Репутация: 2
Всего: 3

Код


var a1,a2 : array[0..255]of byte;
..............
readln(s1);
readln(s2);
for i := 1 to length(s1) do inc(a1[ord(s1[i])]);
for i := 1 to length(s2) do inc(s2[ord(s2[i])]);
bb := true;
for i := 0 to 255 do
   if a1[i] < a2[i] then bb := false;
case bb of
 rtue :writeln('can');
 false :writeln('can not');
end;

отвечает можно ли из первого выделить второе.

darkart

Дата 30.11.2005, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Ну если из марго можно сделать горро то вот:

Код


program Sets;
var
  small,big:set of char;
  i,len:integer;
  str:string;
begin
  small:=[];
  big:=[];
  writeln('Please enter a big string:');
  readln(str);
  len:=Length(str);{чтобы не вычислять в цикле}
  for i:=1 to len do
    big:=big+[str[i]];{заполнение множества}
  writeln('Please enter a small string:');
  readln(str);
  len:=Length(str);
  for i:=1 to len do
    small:=small+[str[i]];
  if small*big=small then{если пересечение = маленькому слову}
    writeln('YES!!!')
  else
    writeln('NO!!!');
  readln;
end.

Rick

Дата 30.11.2005, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: 2
Всего: 3

Код


uses crt;
var a1,a2:string;
    i:integer;
begin
readln(a1);
readln(a2);
for i:=1 to length(a2) do begin
x:=pos(a2[i],a1);
if x<>0 then
delete(a1,x,1)
else begin
writeln('no');
break;
end;
if i=length(a2) then writeln('yes');
end;
readln;
end.

--------------------

Не бывает атеистов в окопах под огнем

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »