Замена букв в файле. Опции

[Nutcase]

Имеется файл, элементами которого являются отдельные слова. Если слово в файле начинается на букву 'k', то заменить ее на 'K'.
Знаю, что для того чтобы заменить ВСЕ 'k' буквы в файле, программа будет выглядеть примерно так:

var f:file of char;
s:char;
i:integer;
begin
assign (f, 'c:\a.txt');
reset (f);
while (not EoF) do
 begin
 read (f,s);
 if (s='k') then s:='K';
 seek(f, filepos(f)-1);
 write(f,s);
 end;
 close(f);
 end.

а вот что исправить, чтобы заменялось только если буква находится в начале слова?
Спасибо.

Сообщение отредактировано: volvo - 2.11.2006 18:52

[Гость]

Смотрел faq, не нашел.
Помогите!

[APAL]

Смотрел faq, не нашел.

НЕ ВЕРЮ!

http://forum.pascalnet.ru/index.php?s=&sh...indpost&p=28059

[TR@N]

НЕ ВЕРЮ!

http://forum.pascalnet.ru/index.php?s=&sh...indpost&p=28059

А вот мой вариант программы (работает безотказно-ПРОВЕРЯЛ ),
правда может чуть не стандартный (писал быстро)

Код

program bukva_k;
uses crt;
const max=20;
var f        :text;
    str      :string;
    i,j,i_max:integer;
    mas:array [1..max] of string;
begin
   assign (f, 'c:\a.txt');
   reset (f);
   i:=1;
   while (not EOF(f)) do
      begin
     readln (f,mas[i]);
     for j:=1 to length(mas[i]) do
        begin
           if (j=1) and (mas[i][j]='k') then mas[i][j]:='K'
           else if (mas[i][j]=' ') and (mas[i][j+1]='k') then mas[i][j+1]:='K';
        end;
      i_max:=i;
      i:=i+1;
      end;
   for i:=1 to i_max do writeln(mas[i]);
   close(f);
end.

[F.I.A.T.]

А вот мой вариант программы (работает безотказно-ПРОВЕРЯЛ

Уважаемый TR@N! Вот это ваше заявление вызывает по меньшей мере 2 вопроса: если (как Вы утверждаете, что еще не доказано, об этом поговорим чуть позже), Ваш вариант работает безотказно, то стало быть, по-Вашему, вариант из FAQ работает с ошибками? Очень опрометчиво... Я видела, КАК тестируются те программы, которые приводятся в FAQ-е, не Вам искать в них ошибки. Объясняю - почему:

readln (f,mas[ i ]);
for j:=1 to length(mas[i]) do begin
  if (j=1) and (mas[ i ][j]='k') then mas[ i ][j]:='K'
  else if (mas[ i ][j]=' ') and (mas[ i ][j+1]='k') then mas[ i ][j+1]:='K';
end;

А скажите-ка мне, уважаемый, ЧТО произойдет, если последний (J) символ строки будет равен пробелу? Не приведет ли это:

mas[ i ][j+1]='k'

к попытке читать символ ЗА концом строки, и соответственно, к результату, которому нельзя верить? FPC, напрмер, на это моментально выдаст Segmentation Fault, результат работы в TP/BP будет зависеть от настроек среды программирования/опций компилятора...

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