Преобразовать программу, чтобы с ее помощью можно было находить слова с наиболее частым вхождением буквы ‘я’. (Программа должна находить букву в словах из привязанного файла).
Var Sim:array[0..10]of string;
C: Char;
i,k,p: integer;
f1:text;
Begin
assign(f1,'file1.txt');
reset(f1);
Clrscr;
randomize;
writeln('Исходный массив');
for p:= 1 to 6 do
begin
For i:= 1 to 10 do
Begin
Sim[p]:=sim[p]+Chr(random(32)+Ord('а'));
End;
Writeln(Sim[p]);
Writeln(f1,Sim[p]);
end;
Writeln;
close(f1);
end.
Преобразовать программу, чтобы с ее помощью можно было находить слова с наиболее частым вхождением буквы ‘я’. (Программа должна находить букву в словах из привязанного файла).
Var Sim:array[0..10]of string;
C: Char;
i,k,p: integer;
f1:text;
Begin
assign(f1,'file1.txt');
reset(f1);
Clrscr;
randomize;
writeln('Исходный массив');
for p:= 1 to 6 do
begin
For i:= 1 to 10 do
Begin
Sim[p]:=sim[p]+Chr(random(32)+Ord('а'));
End;
Writeln(Sim[p]);
Writeln(f1,Sim[p]);
end;
Writeln;
close(f1);
end.
Var Sim:array[0..10]of string;
C: Char;
i,k,p: integer;
f1:text;
Begin
assign(f1,'file1.txt');
reset(f1);
Clrscr;
randomize;
writeln('Исходный массив');
for p:= 1 to 6 do
begin
For i:= 1 to 10 do
Begin
Sim[p]:=sim[p]+Chr(random(32)+Ord('а'));
End;
Writeln(Sim[p]);
Writeln(f1,Sim[p]);
end;
Writeln;
close(f1);
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Var Sim:array[0..10]of string;
C: Char;
i,k,p: integer;
f1:text;
maxCount: integer;
maxWord: string;
Begin
assign(f1,'file1.txt');
reset(f1);
Clrscr;
randomize;
maxCount := 0;
maxWord := '';
while not eof(f1) do
begin
readln(f1, Sim[0]);
k := 0;
for i := 1 to length(Sim[0]) do
begin
if Sim[0][i] = 'я' then
k := k + 1;
end;
if k > maxCount then
begin
maxCount := k;
maxWord := Sim[0];
end;
end;
writeln('Слово с наиболее частым вхождением буквы "я": ', maxWord);
close(f1);
end.