Программа в Turbo Pascal

+ 0 -

Ирина2453332

31 марта 2017 г., 16:48:57 (7 лет назад)

var
  s: string;
  f1, f2: Text;
  i, k, N: integer;

begin
  writeln('Введите количество символов N');
  readln(N);
  writeln('Вводите символы:');
  readln(s);
  s := Copy(s, 1, N); // Если ввели больше N - обрезать
  writeln('Исходная строка: ', s);
  Assign(f1, 'f1.dat');
  Rewrite(f1);
  write(f1, s);  // запись в файл исходноц строки
  Close(f1);
  Reset(f1);    // повторно открываем файл на чтение
  Read(f1, s);
  for i := 1 to length(s) do
    if s[i] = 'p' then s[i] := 'w';
  Writeln('Замена w->p: ', s);
  Assign(f2, 'f2.dat');
  Rewrite(f2);
  Write(f2, s);
  Close(f2);
  Reset(f1);
  Read(f1, s); // Снова читаем в s файл f1
  Assign(f2, 'h.dat');
  Rewrite(f2);
  for i := 1 to length(s) do
    if Pos(s[i], 'aeiouy') > 0 then
      write(f2, s[i]);
  Close(f2);
  Reset(f2);
  Read(f2, s);
  writeln('Гласные из исходного файла: ', s);
  Close(f2);
  Close(f1);
  Assign(f2, 'f2.dat');
  Reset(f2);
  Read(f2, s);
  Close(f2);
  k := 0;
  for i := 1 to length(s) do
    if s[i] = 'f' then k := k + 1;
  writeln('Количество букв f= ', k)
end.

Тестовый пример:

Введите количество символов N
40
Вводите символы:
the quick brown fox jumpes over lazy dog *****
Исходная строка: the quick brown fox jumpes over lazy dog
Замена w->p: the quick brown fox jumwes over lazy dog
Гласные из исходного файла: euiooueoeayo
Количество букв f= 1