Подсчитать количество гласных букв, результат записать в файл g

@zdorovkakbyk · Регистрация: 11.04.2013

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

Создать и заполнить текс. файл f. Подсчитать кол.во гласных букв, рехультат записать в файл g

@ermolay · 06.05.2013, 13:38

Pascal

var
  f,g: text;
  i,n,k: integer;
  str: string;
begin
  assign(f,'c:\1.txt');
  rewrite(f);
  write('Сколько строк в тексте? ');
  readln(n);
  for i:=1 to n do
  begin
    write(i,' - я строка: ');
    readln(str);
    writeln(f,str);
  end;
  close(f);
  
  k:=0;
  assign(g,'c:\2.txt');
  rewrite(g);
  reset(f);
  while not eof(f) do
  begin
    readln(f,str);
    for i:=1 to length(str) do
      if upCase(str[i]) in ['A','E','I','O','U','Y'] then
        inc(k);
  end;
  writeln(g,'В файле ',k,' гласных букв');
  close(f);
  close(g);
end.

@zdorovkakbyk 1 / 1 / 0 Регистрация: 11.04.2013 Сообщений: 45
		1
	Подсчитать количество гласных букв, результат записать в файл g 05.05.2013, 21:47. Показов 2121. Ответов 1 Метки нет (Все метки) Создать и заполнить текс. файл f. Подсчитать кол.во гласных букв, рехультат записать в файл g 0

	06.05.2013, 13:38

Подсчитать количество гласных букв, результат записать в файл g

Решение