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

Работа со строками, нахождение слов в txt

12.12.2016, 16:48. Просмотров 755. Ответов 1
Метки нет (Все метки)

Есть файл с некоторыми словами в *.txt файле. Надо составить программу, которая при вводе любых символов, узнавала можно ли из них составить слово, которое есть в *.txt. Спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2016, 16:48
Ответы с готовыми решениями:

Нахождение в последовательности слов слов с одинаковыми "соседями"
Вот условие. Дана непустая последовательность слов, в каждом из которых от 1...

Создать новый файл qa.txt, который будет содержать строки с вопросами и ответами из файлов q.txt и a.txt.
В текстовом редакторе создать два текстовых файла q.txt и a.txt, которые...

Работа со строками
Застрял на 3х небольших заданиях : 1)Во введенной строке каждую цифру заменить...

Работа со Строками
Дана строка текста. Группы символов, разделенных одним или несколькими...

Работа со строками
Дана строка состоящая из слов. Преобразовать строку таким образом, чтобы слова...

1
Tosse
56 / 56 / 114
Регистрация: 09.12.2016
Сообщений: 143
13.12.2016, 17:34 2
Лучший ответ Сообщение было отмечено ricudo1995 как решение

Решение

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
type
charset = set of char;
var
f:text;
n,i,j:integer;
a,b:charset;
k:char;
s,s1:string;
begin
writeln('Введите символы');
readln(s1);
for i:=1 to length(s1) do begin
    if s1[i]<>' ' then
    a:=a+[s1[i]];end;
assign(f,'input.txt');reset(f);
while not Eof(f) do begin
    readln(f,s1);
    n:=length(s1);
    for i:=1 to n do begin
        if (s1[i] <> ' ') and (i<>n) then begin
            s:=s+s1[i];
            b:=b+[s1[i]];end
        else begin
             if a>=b then
                 writeln('Слово ',s,' из файла можно составить из введенных символов')
             else
                 writeln('Слово ',s,' из файла нельзя составить из введенных символов'); 
             s:='';
             b:=[];
            end;
        end;
    end;
 close(f);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2016, 17:34

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

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

Работа со строками
Пожалуйста помогите в решении 2-задач на строки. 1) Определить сколько раз в...


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

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

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