Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Karen_fs
0 / 0 / 1
Регистрация: 15.12.2012
Сообщений: 9
1

Проверить, можно ли из букв, входящих в текст А, составить текст Б

25.12.2012, 14:37. Просмотров 791. Ответов 1
Метки нет (Все метки)

1. Даны 2 текста. Проверьте, можно ли из букв, входящих в текст А, составить текст Б. Буквы можно переставлять, но каждую букву можно использовать только 1 раз.

1. Здесь, я думаю, можно считать буквы в 1м тексте, и проверять, если во втором столько же этих букв, то продолжаем делать так до тех пор, пока не закончатся буквы. Если кол-во букв отдельных букв равно, то задача выполняется.
У меня есть программа, которая находит кол-во букв в одном тексте. (Только с русским алфавитом)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function kolb(st : string; c : char) : integer;
var
  i, k : integer;
begin
  k:=0;
  for i:=1 to length(st) do
    if (c<='О') and ((c=st[i]) or (st[i]=chr(ord(c)+32))) then
      inc(k)
    else
    if (c>'О') and ((c=st[i]) or (st[i]=chr(ord(c)+80))) then
      inc(k);
  kolb:=k;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 14:37
Ответы с готовыми решениями:

Дан текст, составить множество входящих в него цифр
Дан текст, составить множество цифр входящего в него.

Проверить содержит ли текст (кроме букв) только одну цифру
проверить содержит текст (кроме букв) только одну цифру, причем ее числовое...

можно ли из букв входящих в строку s1 составить строку s2
Написать программу, которая проверяет – можно ли из букв входящих в строку s1...

Дан текст состоящий из английских букв. Вывести все буквы входящие в текст более одного раза.
Дан текст состоящий из английских букв. Вывести все буквы входящие в текст...

Проверить, можно ли из заданных букв составить заданное слово
Двумерный массив n*m содержит некоторые буквы русского алфавита, расположенные...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,718
Записей в блоге: 1
25.12.2012, 14:45 2
1)
Pascal
1
2
3
4
5
6
7
8
f:=true;
For i:=1 to Length(B) do
 if Pos(B[i],A)=0 then 
 Begin
   f:=false;
   break;
 End
 else Delete(A,Pos(B[i],A),1);
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 14:45

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

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

Дан текст из строчных латинских букв,за которыми следует точка. Напечатать в алфавитном порядке все буквы,которые входят в этот текст по одному разу.
дан текст из строчных латинских букв,за которыми следует точка. Напечатать в...


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

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

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