Преобразовать программу, чтобы с ее помощью можно было находить слова с наиболее частым...

69 просмотров

Преобразовать программу, чтобы с ее помощью можно было находить слова с наиболее частым вхождением буквы ‘я’. (Программа должна находить букву в словах из привязанного файла).

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.

Информатика Kusssby_zn (15 баллов) 30 Май, 18 | 69 просмотров

Дан 1 ответ

Правильный ответ

Var Sim:array[0..10] of string;

function count_ya(var s: string): integer;
begin
var i, n, len: integer;
var c: char;

n := 0;
len := Length(s);
for i := 1 to len do begin
    c := s[i];
    if (c = 'я') or (c = 'Я') then begin
      n := n + 1;
    end;
end;

result := n;
end;

procedure word(var s: string);
begin
var i, c, k, j: integer;

c := count_ya(s);

for i := 0 to 10 do begin
    if count_ya(Sim[i]) < c then begin
      for k := 9 downto i do begin
        Sim[k + 1] := Sim[k];
      end;

      Sim[i] := s;
      break;
    end;
end;
end;

Begin
Var C: Char;
Var i, k: integer;
Var f1: text;
Var s: string;

assign(f1, 'file1.txt');
reset(f1);
randomize;

i := 0;
while not Eof(f1) do begin
    read(f1, C);
    if ((C >= 'а') and (C <= 'я')) or ((C >= 'А') and (C <= 'Я')) then begin<br>      i := 1;
      s := s + C;
    end else begin
      if i = 1 then begin
        word(s);
      end;
      i := 0;
      s := '';
    end;
end;

if i = 1 then begin
    word(s);
end;

close(f1);

for i := 0 to 10 do begin
    s := Sim[i];
    if s = '' then break;
    writeln(s);
end;
end.

Змей24_zn (9.2k баллов) 30 Май, 18