В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Саша15e
Саша15e
03.06.2021 21:20 •  Информатика

составить код алгоритма

Показать ответ
Ответ:
izibaevsergei
izibaevsergei
26.11.2020 12:24
1. Современное решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:').Select(c->LowCase(c));
  var nd:=s.GroupBy(c->c).Select(c->(c.Key,c.Count)).OrderBy(kv->kv[0]);
  var n:=nd.Count;
  nd.Select(kv->(kv[0],kv[1]/n)).ForEach(kv->Writeln(kv[0],' : ',kv[1]:5:3))
end.

Пример работы
Введите строку: В чащах юга жил бы цитрус? Да, но фальшивый экземплярЪ!
  : 0.250
! : 0.028
, : 0.028
? : 0.028
а : 0.139
б : 0.028
в : 0.056
г : 0.028
д : 0.028
е : 0.028
ж : 0.028
з : 0.028
и : 0.083
й : 0.028
к : 0.028
л : 0.083
м : 0.028
н : 0.028
о : 0.028
п : 0.028
р : 0.056
с : 0.028
т : 0.028
у : 0.028
ф : 0.028
х : 0.028
ц : 0.028
ч : 0.028
ш : 0.028
щ : 0.028
ъ : 0.028
ы : 0.056
ь : 0.028
э : 0.028
ю : 0.028
я : 0.028

2. Школьное решение в стиле ТурбоПаскаль 1983г.

uses Crt;
const
  uc:string[33]='';
  lc:string[33]='';
var
  s:string;
  i,n,k,p:integer;
  mc:array[1..255] of char;
  mn:array[1..255] of byte;
  c:char;
begin
  ClrScr;
  Write('Введите строку: ');
  Readln(s);
  n:=Length(s);
  for i:=1 to 255 do mn[i]:=0;
  k:=0;
  for i:=1 to n do begin
    c:=s[i];
    p:=Pos(c,uc);
    if p>0 then c:=lc[p];
    p:=Ord(c);
    if mn[p]=0 then begin
      mc[p]:=s[i];
      mn[p]:=1;
      k:=k+1
      end
    else mn[p]:=mn[p]+1
    end;
  for i:=1 to 255 do
    if mn[i]<>0 then Writeln(mc[i],' : ',mn[i]/k:5:3);
  ReadKey
end.
0,0(0 оценок)
Ответ:
san31032009
san31032009
09.01.2020 18:40
Из курса истории вам известно, какую огромную роль в развитии человечества сыграло возникновение письменности, позволившее зафиксировать устное слово с букв-знаков. Надписи на камне.

Папирусе, бумаге – не просто сообщения, дошедшие до нас через века. Это документы,позволяющие нам судить о том, как жили люди в ту или иную эпоху, о чём они думали, что их интересовало.
Слово «документ» переводится с латинского как «свидетельство», «доказательство». Первоначально оно означало письменное подтверждение событий или фактов.Например, факт рождения каждого человека документально оформляется в виде свидетельства о рождении

по окончании школы вы получаете аттестат – документ, подтверждающий ваше образование, и т. д.

Современное понятие документа значительно шире, чем «бумага, 
заверенная печатью и подписью». Текст является одной из важнейших форм представления информации об окружающей действительности. 
Под текстовым документом сегодня понимается информация, представленная на бумажном, электронном или ином материальном носителе в текстовой форме.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота