Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Александримя
2 / 2 / 2
Регистрация: 18.11.2012
Сообщений: 152
1

Вычеркните все буквы, встречающиеся более одного раза

12.03.2013, 21:36. Просмотров 602. Ответов 3
Метки нет (Все метки)

Вычеркните все буквы, встречающиеся более одного раза.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2013, 21:36
Ответы с готовыми решениями:

Вывести на экран все символы встречающиеся в этом тексте более одного раза
Ввести текст в виде символьной строки. Вывести на экран все символы...

Дан массив А, состоящий из n натуральных чисел. Выберите элементы, встречающиеся более одного раза
:cry:Дан массив А, состоящий из n натуральных чисел. Выберите элементы,...

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

Напечатать все элементы, которые встречаются более одного раза
ЗАДАЧА 5. Выполнить действия над массивами. В таблице при формулировании...

Определить количество букв Е, Ю и Я в введенном предложении. Слова, в которых эти буквы встречаются более одного раза поставить в начале предложения
Помогите пожалуйста с задачей, очень нужно. Там помимо основного задания еще...

3
qnak
58 / 58 / 45
Регистрация: 19.02.2012
Сообщений: 118
12.03.2013, 23:29 2
вы не сказали, какие буквы(строчные или прописные, русский или английский алфавит) и я сделал по умолчанию- строчные английские символы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program nnna;
var s:string; 
  let:array['a'..'z'] of integer;
  c:char;
  i:integer;
begin
writeln('введите строку');
readln(s);
for c:='a' to 'z' do
  let[c]:=0;
  
for i:=1 to length(s) do
  inc(let[s[i]]);
  writeln('вычеркиваем, осталось:');
for i:=1 to length(s) do
  if let[s[i]]=1 then write(s[i]);
  
 
 
end.
1
Александримя
2 / 2 / 2
Регистрация: 18.11.2012
Сообщений: 152
12.03.2013, 23:43  [ТС] 3
qnak, а можно разными способами.

Добавлено через 7 минут
просто нужно в программе менять буквы на строчные или прописные, русский или английский алфавит.
0
qnak
58 / 58 / 45
Регистрация: 19.02.2012
Сообщений: 118
12.03.2013, 23:56 4
как я вас понял, буквы любые, поэтому как выход, такое решение:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program nnna;
 
var s:string; 
  let:array[0..255] of integer;
  
  i:integer;
begin
writeln('введите строку');
readln(s);
for i:=0 to 255 do
  let[i]:=0;
  
for i:=1 to length(s) do
  inc(let[ord(s[i])]);
  writeln('вычеркиваем, осталось:');
for i:=1 to length(s) do
  if let[ord(s[i])]=1 then write(s[i]);
  
 
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2013, 23:56

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

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

Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются более одного раза, при выводе цифры не должны повторятся
Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются...


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

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

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