Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
biol
8 / 8 / 4
Регистрация: 01.02.2014
Сообщений: 65
#1

Различные символы в строке - Turbo Pascal

11.02.2014, 17:38. Просмотров 264. Ответов 1
Метки нет (Все метки)

Считать строку и вывести количество различных латинских строчных букв. Пример: 8hfhKLDjf -->3. Не использовать множественный тип. Очень прошу.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2014, 17:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Различные символы в строке (Turbo Pascal):

Заменить в строке все символы «х» на символы «у» - Turbo Pascal
Дана строка. Вводится 2 символа «x» и «y». Заменить в строке все символы «х» на символы «у». Помогите. :)

Вывести символы содержащие в строке s и p, но не содержащиеся в строке r - Turbo Pascal
использовать тип данных множества. Вывести символы содержащие в строке s и p,но не содержащиеся в строке r.

Подсчитать в строке сколько букв A и B,если букв A больше, чем B,то удалить в строке все символы B. - Turbo Pascal
Подсчитать в строке сколько букв A и B,если букв A больше, чем B,то удалить в строке все символы B.

Составить алгоритм решения ребуса РАДАР = (Р + А + Д)4 (различные буквы обозначают различные цифры, старшая — не 0). - Turbo Pascal
27. Составить алгоритм решения ребуса РАДАР = (Р + А + Д)4 (различные буквы обозначают различные цифры, старшая — не 0).

Дано слово содержащее различные символы. составить из него слово содержащее только русские буквы - Turbo Pascal
дано слово, содержащее различные символы. составить из него слово, содержащее только русские буквы

Заменить символы в строке. - Turbo Pascal
Помогите пожалуста составить программу. В строке символов заменить все "в"на "ввв" Такая програма уже есть, но она не подходит из...

1
Puporev
Модератор
51984 / 39843 / 13236
Регистрация: 18.05.2008
Сообщений: 91,711
11.02.2014, 18:11 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s,s1:string;
    i,k,n:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
n:=length(s);
s1:='';
for i:=n downto 1 do
if(s[i]>='a')and(s[i]<='z')and(pos(s[i],s1)=0) then
 begin
  k:=k+1;
  s1:=s1+s[i]
 end;
write('Количество разных строчных латинских букв=',length(s1));
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2014, 18:11
Привет! Вот еще темы с ответами:

Заменить символы в строке - Turbo Pascal
Помогите пожалуста составить программу. В строке символов заменить все &quot;в&quot;на &quot;ввв&quot;

Инвертировать символы в строке - Turbo Pascal
Задан произвольный строка, выполнить с ним следующие действия. Внимание! Не используйте дополнительную строку. Инвертировать символы в...

Упорядочить символы в строке по алфавиту - Turbo Pascal
Здравствуйте,помогите пожалуйста сделать задание:&quot;Упорядочить символы в строке по алфавиту&quot;

Удалить в строке ненужные символы - Turbo Pascal
Удалить в строке ненужные символы (12abc,.). Полученную строку перевернуть. Формат ввода: s - строка Формат вывода: t -...


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

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

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