Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kestugar
7 / 7 / 6
Регистрация: 15.05.2010
Сообщений: 184
1

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

08.03.2012, 00:12. Просмотров 916. Ответов 1
Метки нет (Все метки)

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

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
program pr8;
uses crt;
var f:text;
    slovo,s:string;
    i,j,d,n:integer;
    v:boolean;
    label 1;
begin
clrscr;
assign(f,'z:\file.txt');
reset(f);
write('Vvedite slovo: ');
readln(slovo);
v:=false;
while not eof(f) do
begin
    1:readln(f,s);
    for i:=1 to length(s) do
        for j:=1 to length(slovo) do
            if s[i]=slovo[j]
            then begin 
                writeln(s);
                v:=true;
                goto 1;
            end;
end;
close(f);
if v=false then
writeln('slov, sodergashih bukvi vvedennogo slova, net');
readln;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2012, 00:12
Ответы с готовыми решениями:

Найти и вывести на экран слова, включающие некоторый слог
В текстовом файле хранятся слова, каждое слово на отдельной строке. Найти и вывести на экран слова,...

Определить и вывести слова из введенного текста в которых есть буквы «о» или «и» (как заглавные, так и строчные)
Определить и вывести слова из введенного текста в которых есть буквы «о» или «и» (как заглавные,...

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

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

Строки. Вывести на экран слова, содержащие 3 буквы
Дана строка, содержащая текст, заканчивающаяся точкой. Вывести на экран слова, содержащие 3 буквы....

1
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
08.03.2012, 00:29 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
program pr8;
uses crt;
var f:text;
    slovo,s:string;
    i,j,d,n:integer;
        v:boolean;
 
begin
clrscr;
assign(f,'C:\in.txt');
reset(f);
write('Vvedite slovo: ');
readln(slovo);
while not eof(f) do
begin
readln(f,s);
v:=true;
for j:=1 to length(slovo) do
    if v and (pos(slovo[j],s)<>0)
       then v:=true else v:=false;
if v then
   begin
   writeln(s);
   inc(d);
   end;
end;
close(f);
if d=0 then writeln('slov, sodergashih bukvi vvedennogo slova, net')
   else writeln(d,' slov(a)');
readln;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.03.2012, 00:29

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

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

Вывести на экран слова, содержащие три буквы
всем привет, помогите решить: Дан текст. Вывести на экран слова, содержащие три буквы. ...


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

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

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