не могу записать текст с файла .txt в переменную string игнорируя конец строки в текстовом файле.

@kilik · Регистрация: 15.11.2010

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

не могу записать текст с файла .txt в переменную string игнорируя конец строки в текстовом файле.
Задание Определить сколько в тексте гласных и согласных букв.

Pascal

program SSO6; 
const 
  glasn=['а','е','и','о','у','ы','э','ю','я','А','У','И','О','У','Ы','Э','Ю','Я']; 
  soglas=['б','в','г','д','ж','з','й','л','м',
         'н','р','к','п','с','т','ф','х','ц','ч','ш','щ',
         'Б','В','Г','Д','Ж','З','Й','Л','М',
         'Н','Р','К','П','С','Т','Ф','Х','Ц','Ч','Ш','Щ'];
 
 var
   st ,put : string; 
     g,s,i:integer; 
     f:text ;
begin 
readln(put);
assign(f,put); {путь к файлу}
reset(f); {открываем файл для чтения}
read(f, st); {счтуем текст}
close(f);
  g:=0; s:=0;  {обнуляем переменые}
writeln (st); {выводим текст на монитор}
      for i:= 1 to length(st) do {ghjdthztv от 1го символа до количества символов в строке}
        if st[i] in glasn then inc(g)  {если гласная+ 1}
        else if st[i] in soglas then inc(s);{если согласная +1}
writeln ('количество Гласных - ',g);
writeln ('количество Согласных -',s);
        
 readln; 
end.

Проблема состоит в том что в переименую string записывается только первая строка а не как положено 255 символов

	29.11.2010, 18:36

Опции темы