Регистрация Спросить otvet5GPT
taniash052005
15.03.2022 04:48
Информатика
Есть ответ 👍

Преобразовать программу, чтобы с ее можно было находить слова с наиболее частым вхождением буквы ‘я’. (программа должна находить букву в словах из привязанного файла). 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.

101
224
Посмотреть ответы 2

Ответы на вопрос:

студент168
студент168
4,7(40 оценок)
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           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.
diana20102007
diana20102007
4,8(62 оценок)
Var x: integer; begin writeln('введите значение числа x'); readln(x); writeln('y=|',abs(x),'|'); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS