Программа на языке Pascal:
----------------------------------------------
В текстовом файле найти строку, содержащую слово с наибольшим числом гласных букв. Вычислить произведение чисел в этой строке.
(строк несколько)
-----------------
Например:
-----------------
(12 строка): aba cda 34
решение: (№строки) (слово с наиб.кол-вом гласн.) (произведение чисел в строке)
буду очень признателен
----------------------------------------------
В текстовом файле найти строку, содержащую слово с наибольшим числом гласных букв. Вычислить произведение чисел в этой строке.
(строк несколько)
-----------------
Например:
-----------------
(12 строка): aba cda 34
решение: (№строки) (слово с наиб.кол-вом гласн.) (произведение чисел в строке)
буду очень признателен
More Questions From This User See All
Answers & Comments
//Файл 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.