Дан текстовой файл заполненный строчными русскими буквами - Turbo Pascal

Формулировка задачи:

Дан текстовой файл заполненный строчными русскими буквами.Сформировать другой файл который будет содержать гласные буквы из первого.


textual

Код к задаче: «Дан текстовой файл заполненный строчными русскими буквами - Turbo Pascal»

var
  f, g : text;
  s, s1 : string;
  i : integer;
begin
  assign(f, 'in1.txt');
  assign(g, 'out1.txt');
  reset(f);
  rewrite(g);
  while not EOF(f) do
  begin
    s1 := '';
    readln(f, s);
    for i := 1 to length(s) do
      if s[i] in ['а','е','ё','и','о','у','ю','ы','я','э'] then
        s1 := s1 + s[i];
    writeln(g, s1)
  end;  
  close(f);  
  close(g);
  writeln('выполнено!');
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.000 из 5

Источник
Похожие ответы