Работа с файлами

[wOOp]

Дан символ С – строчная (маленькая) русская буква и текстовый файл. Создать строковый файл и записать в него все слова из исходного файла, начинающиеся с этой буквы (прописной или строчной). Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/ концом строки. Если исходный файл не содержит подходящих слов, то оставить результирующий файл пустым.

От этой стены текста даже дурно становится
Помогите пжл с решением =)

[BDA]

Проверьте
(Словом считается последовательность русских букв)

uses CRT;
var
c,k:char;
f1,f2:textfile;
sl:string;
b:set of char;
function upperchar(c:char):char;
begin
case ord(c) of
	160..175:upperchar:=chr(ord(c)-32);
  224..239:upperchar:=chr(ord(c)-80);
	241:upperchar:=chr(240);
	else
	upperchar:=c;
	end;
end;
BEGIN
b:=[chr(128)..chr(175),chr(224)..chr(241)];
write('Vvedite simvol: ');
readln(c);
c:=upperchar(c);
assign(f1,'in.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
	sl:='';
	read(f1,k);
	while (not eof(f1)) and (k in b) do
	begin
		sl:=sl+k;
		read(f1,k);
	end;
	if length(sl)<>0 then
		if upperchar(sl[1])=c then
			writeln(f2,sl);
end;
close(f1);
close(f2);
end.

[wOOp]

неизвестное имя типа textfile

[BDA]

Исправьте на var f1,f2: Text;

[wOOp]

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

а выводит следующее
сила
с
сала
р

что необходимо исправить?

[BDA]

Еще раз проверьте наличие файла.
Возможно у вас файл in.txt.txt.
Зайдите в "Документы"->"Упорядочить"->"Параметры папок и поиска"->"Вид" и снимите галочку "Скрывать расширения для зарегестрированных типов файлов".
Посмотрите опять на файл и, если нужно, исправьте имя.
Убедитесь, что текстовый файл и ехе-файл программы лежат в одной директории.

[wOOp]

да, спасибо
с этим уже разобрался, сам немного накосячил
а проблема 2 постами выше =)

[BDA]

Нашел 1 ошибку (последний символ слова терялся).

uses CRT;

var
  c, k: char;
  f1, f2: textfile;
  sl: string;
  b: set of char;

function upperchar(c: char): char;
begin
  case ord(c) of
    160..175: upperchar := chr(ord(c) - 32);
    224..239: upperchar := chr(ord(c) - 80);
    241: upperchar := chr(240);
  else
    upperchar := c;
  end;
end;
begin
  b := [chr(128)..chr(175), chr(224)..chr(241)];
  write('Vvedite simvol: ');
  readln(c);
  c := upperchar(c);
  assign(f1, 'in.txt');
  assign(f2, 'out.txt');
  reset(f1);
  rewrite(f2);
  while not eof(f1) do
  begin
    sl := '';
    read(f1, k);
    while (not eof(f1)) and (k in b) do
    begin
      sl := sl + k;
      read(f1, k);
    end;
    if (k in b) then
      sl := sl + k;
    if length(sl) <> 0 then
      if upperchar(sl[1]) = c then
        writeln(f2, sl);
  end;
  close(f1);
  close(f2);
end.

Программа расчитана на кодировку текста OEM 866, то есть текстовый файл легче всего создать из Паскаля или воспользоваться специальными программами (Notepad++, Штирлиц), чтобы задать требуемую кодировку.

Попробуйте входной файл из вложения.

[wOOp]

уже лучше, но все же выводит слова не до конца
или это уже проблема не в коде?

[BDA]

Я надеюсь, вы заметили текстовый файл постом выше.
Проверьте его, пожалуйста.