ФАЙЛЫ

[Iskorka92]

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

[TinMan]

Искорка, можно делать примерно так:

const
  LatAlphabet= ['A'..'Z'] + ['a'..'z'];
var
  c: char;
  f: text;
  w: string;

begin
  // assign and open file here ...
  w:= '';   // clear the word
  while not EoF do begin   // while file not over
    c:= ' ';                    // in case there is a letter in c
    while not EoLn(f) and not c in LatAlphabet do read(f,c);  // to omit all chars before first letter
    readln(f);          // to the next line
    if c in LatAlphabet then w:= w+c;   // add the found letter to the word
  end;
  close(f);
  writeln('the word made of first characters of each line is: ',w);
  readln
end.

[Iskorka92]

можно и на "ты".спасибо большое. Пошла разбираться.:-)

[Son Of Pain]

А я бы чуть проще сделал, чтобы не пугать лишними сущностями вроде eoln и разницы read и readln

const letters=['a'..'z', 'A'..'Z']; {буквами считать только латинские}
var result, tmp:string;
    i:integer;
    f:text;
begin
	result:='';
	assign(f, 'file.txt');
	reset(f); {открыть для чтения}
	while not eof(f) do {пока не конец файла}
	begin
		readln(f, tmp); {прочитать строчку}
		for i:=1 to length(tmp) do {найти в ней первую букву}
			if tmp[i] in letters then
			begin
				result:=result+tmp[i]; {дописать ее к слову}
				break; {закончить поиск}
			end;
	end;
	writeln('Word is ', result);
	close(f);
end.

Хотя, скорее всего задание подразумевало просто прибавление первого символа строки, а не первой буквы.

[Serge_Bliznykov]

Хотя, скорее всего задание подразумевало просто прибавление первого символа строки, а не первой буквы.

+1

представляю, как ошалеет преподаватель, когда результатом решения предполагалось что-то типа:

var tmp : string;
     f : text;
begin
     assign(f, 'file.txt');
     reset(f); {открыть для чтения}
     while not eof(f) do {пока не конец файла} begin
           Readln(f,tmp);
           if length(tmp)>0 then Write(tmp[1]);
      end;
      WriteLn;
      Close(f);
      Readln;
end.

[TinMan]

Сообщение от Son Of Pain

Хотя, скорее всего задание подразумевало просто прибавление первого символа строки, а не первой буквы.

Я тоже так подумал, но тем не менее условие поставлено конкретно и недвусмысленно. И в таком случае я предпочитаю точно ему следовать .