Работа с текстом

[Frollo]

Работа с текстом

Здравствуйте! Нужна помощь студенту специальности далёкой от программирования. Помогите кто чем сможет
Написать программу, считывающую посимвольно информацию из текстового файла, позволяющую отредактировать считанный текст и сохранить файл на диске. Модифицировать созданную программу для выполнения операций с текстом в зависимости от номера варианта.
В считанном тексте подсчитать количество согласных символов.

 

[Vladimir_S]

Сударь (ну или сударыня), а не будете ли Вы столь любезны, и не снизойдете ли до указания нам, слабоумным - а на каком на таком языке программирования должны быть выполнены выложенные Вами, многоуважаемый (-ая), задания? На Delphi, али и Pascal сойдет? Вы уж не гневитесь сильно, что подобной мелочью обеспокоить Вас дерзнули...

 

[апельсин]

на Pascal

 

[Vladimir_S]

на Pascal

Тогда - пожалуйста. Хотя я не очень понял, что требуется "сохранить на диск". Поэтому программа сохраняет исходный файл и в конце добавляет строку с указанием количества согласных букв.
Имена файлов, а также пути к ним поставьте, естественно, свои.

CONST
 Sogl=['Б','В','Г','Д','Ж','З','К','Л','М','Н',
       'П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ',
       'б','в','г','д','ж','з','к','л','м','н',
       'п','р','с','т','ф','х','ц','ч','ш','щ'];
VAR
 f_in,f_out:Text;
 Ch:Char;
 N:Word;

BEGIN
 Assign(f_in,'D:\txt_in.txt');
 ReSet(f_in);
 Assign(f_out,'D:\txt_out.txt');
 ReWrite(f_out);
 N:=0;
 Repeat
  Read(f_in,Ch);
  Write(f_out,Ch);
  If (Ch in Sogl) then Inc(N);
 Until Eof(f_in);
 Close(f_in);
 Writeln(f_out);
 Writeln(f_out,'N_sogl= ',N);
 Close(f_out);
END.

 

[апельсин]

большое спасибо!!