Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 27
1

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

28.02.2011, 18:55. Просмотров 1042. Ответов 3
Метки нет (Все метки)

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

Добавлено через 2 часа 29 минут
Мои наброски.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s,s1:string;
      i,j:byte;
begin
writeln('Введите слова: ');
readln(s,s1);
for i:=1 to length(s) do
begin
if s[i]=s1[j] then
writeln ('можно');
else writeln ('нельзя');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2011, 18:55
Ответы с готовыми решениями:

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

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

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

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

3
4 / 4 / 3
Регистрация: 17.01.2011
Сообщений: 12
28.02.2011, 19:29 2
к первому случаю думаю так подойдет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program q1;
var s1,s2:string;
    i,j:integer;
    ind:boolean;
begin
readln(s1);
readln(s2);
 for i:=1 to length(s1) do
  begin
   ind:=false;
  for j:=1 to length(s2) do
   if s1[i] = s2[j] then
    ind:=true;
   if ind=false then
    begin
     write('nelzia');
     exit;
    end;
  end;
  write('mozno');
end.
1
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 27
28.02.2011, 19:55  [ТС] 3
Цитата Сообщение от bobrz-z-z Посмотреть сообщение
ind:=false;
А можно как-то без этой строчки,а то мы такое не учили.
0
4 / 4 / 3
Регистрация: 17.01.2011
Сообщений: 12
28.02.2011, 20:04 4
можно. инд это вроде как индикатор как тока он принимает значение неправильное то происходит выход из проги.
можно написать числом

Pascal
1
2
3
4
5
6
7
8
9
 ind:=0;
  for j:=1 to length(s2) do
   if s1[i] = s2[j] then
    ind:=1;
   if ind=0 then
    begin
     write('nelzia');
     exit;
    end;
Добавлено через 49 секунд
а ну и понятно поменять булеан на что нить типо интегер

Добавлено через 45 секунд
ind:integer; или байт
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2011, 20:04

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

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

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

Можно ли вычеркиванием букв из первого слова получить второе.
1 задание. В массиве A(N, M), заполненном нулями и единицами, выделите такой квадратный участок...

Строки. Определить, можно ли из букв первого составить второе
Даны два слова. Определить, можно ли из букв первого составить второе. Каждая из букв второго слова...


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

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

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