Найти и вывести на экран слова, включающие некоторый слог

@masimka001 · Регистрация: 20.03.2012

Студворк — интернет-сервис помощи студентам

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

@КонецСвета · 31.03.2012, 03:07

Pascal

uses crt;
var f: text;
    s,ss: string;
    k: integer;
begin
write('Укажите слог для поиска: '); readln(ss);
assign(f,'C:\in.txt');
reset(f);
writeln('Слова, которые содержат слог "',ss,'":');
while not (eof(f)) do
      begin
      readln(f,s);
      if pos(ss,s)<>0 then
         begin
         writeln(s);
         inc(k);
         end;
      end;
if k=0 then writeln('отсутствуют');
close(f);
readln;
end.

@masimka001 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 25
		1
	Найти и вывести на экран слова, включающие некоторый слог 31.03.2012, 01:59. Показов 1923. Ответов 1 Метки нет (Все метки) В текстовом файле хранятся слова, каждое слово на отдельной строке. Найти и вывести на экран слова, включающие некоторый слог, введенный пользователем, плюс любые другие буквы. 0

	31.03.2012, 03:07

Опции темы

Найти и вывести на экран слова, включающие некоторый слог

Решение