Задачи по паскалю!

[Vashka]

Нужна помощь по паскалю,буду рад получить правильные варианты)

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

и ещё...

В больнице имеется общий список больных, каждый из которых характеризуется записью:
struct ZAP
{
char FIO[25];
int NP;
char SEX[5], DGN[20];
}
где FIO - фамилия и инициалы больного, NP -номер палаты, SEX -пол (мужской или женский), DGN - диагноз. Написать программу для хранения и корректировки списка больных. Программа должна позволять вводить данные о новых больных, размещать их по палатам с учетом диагноза, выводить по запросам пользователя информацию о бальных по палатам, находить номер палаты, в которой лежит нужный больной. По запросу пользователя файл, в котором хранится вся эта информация, должен обновляться путем удаления информации об уже выписавшихся больных.

[s-andriano]

По поводу первой:
- без указания кодировки эта задача некорректна.
- ну и хотелось бы знать ограничения на длину строки.

[Vashka]

А по поводу второй?

[s-andriano]

А в формулировке второй я проблем не вижу.

[Serge_Bliznykov]

а я и в первой задаче не вижу никаких проблем и противоречий.
Строка всегда состоит из символов, вне зависимости от кодировки!
Чтобы определить, какая пара символов встречается наиболее часто, знать в какой кодировке строка, совершенно необязательно!

[Poma][a]

А можно вопрос по задаче#1?
Как еще решать ?)
У меня есть такой вариант

max := 0;

for i := 1 to Length(s-1) do begin
       cmbn := s[i] + s[i+1];
       PosNumberCmbn (cmbn, count);
       if max <  count then begin
                   max := count;
                   maxcmbn := cmbn
       end;

procedure <...>;

i := 1;
count := 0;

while i <= Length(s) do begin
       if s[i] + s[i+1] = cmbn then
              Inc (count);
       Inc (i, 2)
end;

А хочется красоты

[Serge_Bliznykov]

Poma][a , вполне себе нормальное решение. Не очень эффективное (лишнее постоянно будет перебираться), но вполне себе рабочее!

из других решений (исключительно алгоритмически) я вижу ещё:
- решение с матрицей N x N - где N - это число различных символов в строке, элемент на пересечении I-й строки и J-го столбца означает частоту появления сочетания двух символов: chr(I)+chr(J)

- динамическая структура (связанный список, например), куда помещаем найденные сочетания и счётчик их появления в строке. (ищем сочетания в списке, если нет, добавляем с счётчиком = 1, если нашли, наращиваем счётчик на единичку).

Но я бы оставился именно на вашем решении с поиском подстроки в строке - это просто, минимум кода, нет требований и затрат по памяти и достаточно быстро (подозреваю, что автора строки до 255 символов максимум, они обработаются быстрее, чем будет позже вывод результата в консоль осуществляться! )

[Stilet]

наиболее часто повторяющееся сочетание (из двух) символов.

А я бы так делал:

function se(s:string):Char;
var a:array['A'..'z'] of integer; i,max:integer;
begin
 max:=0;i:=0; se:='';
 while i<length(s) do 
  if a[i]=a[i+1] then begin 
    inc(a[s[i]]); 
    if a[s[i]]>max then begin  max:=a[s[i]]; se:=s[i];end;
    inc(i,2);
  end else inc(i);
end;

[s-andriano]

Сообщение от Serge_Bliznykov

а я и в первой задаче не вижу никаких проблем и противоречий.
Строка всегда состоит из символов, вне зависимости от кодировки!
Чтобы определить, какая пара символов встречается наиболее часто, знать в какой кодировке строка, совершенно необязательно!

Ну да, осталось только выяснить, сколько байтов занимают эти два символа: 2, 3 или 4.
Как можно это узнать, не зная кодировки текста?

[Serge_Bliznykov]

Сообщение от s-andriano

Ну да, осталось только выяснить, сколько байтов занимают эти два символа: 2, 3 или 4.

Зачем это нам знать?! строка это ВСЕГДА array of char
Сколько занимает char - один байт, два или 4 - об этом пусть думает компилятор!
главное, чтобы s[i] (которое char) возвращало нам нужный символ строки. И всё.
Вы, наверное, рабочее решение от Poma][a проглядели...

Сообщение от Stilet

А я бы так делал:

Виталий, а почему Вы решили, что строка не может состоять из цифр, пробелов, знаков препинания, русских букв, наконец?
Потому что, так, как Вы решили, так проще?
Кроме того, "часто повторяющееся сочетание" это два символа, стоящии рядом, которые встречаются наибольшее число раз.
С чего Вы (ошибочно) решили, что это "if a[i]=a[i+1] " - ОДИНАКОВЫЕ символы?!!