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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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