Программа ** языке Pascal: ---------------------------------------------- В текстовом...

0 голосов
20 просмотров

Программа на языке Pascal:
----------------------------------------------
В текстовом файле найти строку, содержащую слово с наибольшим числом гласных букв. Вычислить произведение чисел в этой строке.
(строк несколько)
-----------------
Например:
-----------------
(12 строка): aba cda 34

решение: (№строки) (слово с наиб.кол-вом гласн.) (произведение чисел в строке)



буду очень признателен


Информатика (100 баллов) | 20 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//Pascal
//Файл fileText.txt должен быть в папке с программой

const
  Vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y'];
var
  t: text;
  s: char;
  n, min, mult, mult2, count, count2: integer;
begin
  Assign(t, 'fileText.txt');
  Reset(t);
  n := 0; min := 0; mult := 1; count := 0;
  while not eof(t) do
  begin
    count := count + 1;
    while not eoln(t) do
    begin
      read(t, s);
      if s in Vowels then
        inc(n);
      if s in ['0' .. '9'] then
        mult := mult * (Ord(s) - 48);
    end;
    if n > min then
    begin
      min := n;
      mult2 := mult;
      mult := 1;
      count2 := count;
    end;
    readln(t);
    n := 0;
    mult := 1;
  end;
  Close(t);
  write(count2, ' строка. ');
  write('Произведение = ', mult2, '. ');
  writeln('Гласных = ', min);
  readln;
end.


image
image
(9.4k баллов)