→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Строки 
Автор Сообщение
Начинающий

Регистрация: 02.03.2015
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Строки
Помогите, пожалуйста, решить задачу на строки. Среди слов заданного предложения найти такое, которое имеет наибольшее количество вхождений в предложение.

Попытка решения задачи:
pascal code
program pr1;
var s:string;
a:array[1..100] of string;
c:array [1..100] of integer;
k,i,j,max:integer;
begin
writeln('Enter');
readln(s);
k:=1;
for i:=1 to length(s) do
begin
if s[i]<>'' then
a[k]:=a[k]+s[i]
else begin
k:=k+1;
end;
end;

for i:=1 to k do
begin
for j:=i+1 to k do
begin
if a[i]=a[j] then
begin
inc(c[i]);
a[j]:='';
end;
end;
end;

max:=0;
for k:=1 to i do
begin
if c[k]>max then max:=c[k];
end;
writeln('Max vhozhd-',a[k],'-', max);
readln;
end.


02.03.2015 16:13
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»