Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/12: Рейтинг темы: голосов - 12, средняя оценка - 4.83
23 / 23 / 2
Регистрация: 17.10.2011
Сообщений: 173
1

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

11.09.2012, 19:48. Показов 2489. Ответов 2
Метки нет (Все метки)

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

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2012, 19:48
Ответы с готовыми решениями:

Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах
2. Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах. в...

Строка: Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах.
Здравствуйте. Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных...

Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове чаще
Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове...

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

2
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,124
Записей в блоге: 1
11.09.2012, 20:03 2
Лучший ответ Сообщение было отмечено pro_100_den как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var A:array[65..255] of byte;
    s:string;
    i,k:byte;
Begin
    write('Введите слово: ');readln(s);
    For i:=1 to Length(s) do
     if s[i] in ['a'..'z','A'..'Z','а'..'я','А'..'Я'] then inc(A[ord(s[i])]);
    For i:=1 to Length(s) do
     if (s[i] in ['a'..'z','A'..'Z','а'..'я','А'..'Я'])and(A[ord(s[i])]=1) then inc(k);
    writeln('Различных букв: ',k);
   readln;
End.
1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.09.2012, 21:07 3
альтернативка (если символы разного регистра считать как разные)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var b: set of char;
    i,k: byte;
    s: string;
    
begin
b:=[];
write('s='); readln(s);
for i:=1 to length(s) do
    if (s[i] in['А'..'Я','а'..'я','A'..'Z','a'..'z']) and not (s[i] in b) then
       begin
       b:=b+[s[i]];
       inc(k);
       end;
writeln('Различных букв ',k);
readln;
end.
если символы разного регистра (А и а) - это одна и та же буква
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var b: set of char;
    i,k: byte;
    s: string;
    
begin
b:=[];
write('s='); readln(s);
for i:=1 to length(s) do
    if (upcase(s[i]) in['А'..'Я','а'..'я','A'..'Z','a'..'z']) and not (upcase(s[i]) in b) then
       begin
       b:=b+[upcase(s[i])];
       inc(k);
       end;
writeln('Различных букв ',k);
readln;
end.
вот еще вариант =) без множеств
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var i,j: byte;
    s: string;
    
begin
write('s='); readln(s);
for i:=length(s)-1 downto 1 do
    for j:=length(s) downto i+1 do
        if (s[i]=s[j]) or not(s[j] in ['A'..'Z','a'..'z','А'..'Я','а'..'я']) then delete(s,j,1);
writeln('Различных букв ',length(s));
writeln(s);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.09.2012, 21:07

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

Подсчитать количество различных букв в заданном слове
Подсчитать количество различных букв в заданном слове. Слова вводить вручную. Спасибо.

Подсчитать количество различных букв в заданном слове
ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ! 1.В ЭВМ вводятся по очереди данные о росте N учащихся класса.Определить...

Тема строк и множеств. Подсчитать количество различных букв в заданном слове
Напишите программу, подсчитывающую количество различных букв в заданном слове.

Напишите программу, подсчитывающую количество различных букв
Напишите программу, подсчитывающую количество различных букв в заданном слове длиной не менее чем...


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

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

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