15 июня, 17:00

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

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.

+2
Ответы (1)
  1. 15 июня, 17:12
    0
    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 = 'А') and (C < = 'Я')) then begin

    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Преобразовать программу, чтобы с ее помощью можно было находить слова с наиболее частым вхождением буквы 'я'. (Программа должна находить ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Три супружеские пары нижнекамцев: Ибрагимовы, Лутфуллины и Закировы - уселись за круглый стол, чтобы выпить по чашке чая. Справа и слева от каждой жены сидел мужчина, но ни один муж не сидел рядом со своей женой.
Ответы (1)
Юный программист Семён говорит, что никогда не пишет комментариев в программах, потому что это лишняя работа, а он и так все помнит. Согласны ли вы с ним?
Ответы (1)
Система определенных правил для преобразования информации с одного языка в другой
Ответы (1)
Составить программу которая в массиве из 10 элементов находят произведение минимума и максимума значимых элементов
Ответы (1)
Дано два целых числа, значения которых не превышают 999. Определить, равны ли суммы цифр этого числа.
Ответы (1)
Сравните числа 1110^2 и 12^8
Ответы (1)
Составьте программу вычисления кинетической энергии.
Ответы (1)
Сколько времени потребуется для передачи с объемом 3072 КБайта, если скорость передачи 4 Мбит/с? С решением.
Ответы (1)
Помогите! Во время нашей последней встречи Форматто Дантуку рассказывал мне про свою любимую позиционную систему счисления. К сожалению я забыла, какая именно это была система счисления (двоичная? тридцатиричная? не помню ...
Ответы (1)
Определить объем памяти для хранения стереоаудиофайла, время звучания которого составляет 4 минуты при частоте дискретизации 44,1 кГц и глубине кодирования 16 бит
Ответы (1)