0 / 0 / 0
Регистрация: 05.04.2012
Сообщений: 6
1

Выбрать из файла только те символы, которые встречаются в нем только один раз

04.09.2012, 20:55. Показов 3548. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
дан текстовый файл, содержащий текст на русском языке. Выбрать из него только те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.09.2012, 20:55
Ответы с готовыми решениями:

Выбрать и напечатать только те символы, которые встречаются в нем только один раз
Разработать алгоритм:

Из заданного предложения выбрать символы, которые встречаются в нем только один раз
Из заданного предложения выбрать и вывести на экран только те символы, которые встречаются в нем...

Из данного текста предложения выбрать и напечатать только те символы,которые встречаются в нем только 1 раз
В файле А набран текст. Из данного текста предложения выбрать и напечатать только те...

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

1
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
04.09.2012, 21:48 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно написать так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
{процедура перевода русских букв из кодировки ANSI в файле
в кодировку ASCII в программе }
procedure Convert(var s:string);
{ANSI -> ASCII}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
end;
var f:text;
    s,s1,s2:string;
    i:byte;
begin
clrscr;
assign(f,'input.txt');
reset(f);
s1:='';s2:='';
while not eof(f) do
 begin
  readln(f,s);
  Convert(s);
  for i:=1 to length(s) do
  if pos(s[i],s1)=0 then{если символа еще не было}
   begin
    s1:=s1+s[i]; {пишем в 2 строки}
    s2:=s2+s[i];
   end
  else delete(s2,pos(s[i],s2),1); {если был, из второй удаляем}
 end;
close(f);
writeln('Символы, встречающиеся 1 раз:');
write(s2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.09.2012, 21:48
Помогаю со студенческими работами здесь

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

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз
Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том...

Выбрать из файла только те символы, которые встречаются в нём один раз
Задание: Дан файл,содержащий текст на русском языке,выбрать из него только те символы, которые...

Выбрать из файла те символы, которые встречаются в нем только один раз
#include <iostream> #include <fstream> #include <algorithm> #include <string> #include...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru