Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
mutango
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 6
1

Определить количество уникальных подстрок из 3 символов, входящих в заданную строку

20.11.2017, 23:22. Просмотров 902. Ответов 7

Прошу знающих людей помочь мне в выполнении этой задачи.
P. S. Строка вводится с клавиатуры. Также преподаватель запретил использовать при написании программы встроенные в Pascal процедуры и функции
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2017, 23:22
Ответы с готовыми решениями:

Вычислить количество заглавных латинских букв, входящих в заданную строку символов
Мужики помогите плз решить парачку задач......вся надежда на вас :'( 1) Даны...

Определить, содержит текст заданную строку длинной не более 255 из символов 0 и 1
Помогите пожалуйста в написании программы: Текст разбит на строки длиной не...

Определить количество строку, содержащих заданную подстроку
дан файл текстовый,посчитать количество строк содержащих 'run' Помогите...

Создать новую строку из символов 1-ой заданной строки, которые не входят во вторую заданную строку
Pascal:Создать новую строку из символов 1-ой заданной строки, которые не входят...

Определить количество введенных символов и полученную символьную строку
С клавиатуры вводятся символы до тех пор, пока не будет введен пробел....

7
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,323
21.11.2017, 09:28 2
Паскаль какой? Турбо, АВС, АВС.net?
0
mutango
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 6
21.11.2017, 14:31  [ТС] 3
Добавлено через 51 секунду
Цитата Сообщение от Puporev Посмотреть сообщение
Паскаль какой? Турбо, АВС, АВС.net?
Pascal ABC.Net
0
mutango
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 6
22.11.2017, 19:41  [ТС] 4
Немного разобрался, написал программу, но при некоторых значениях она выдаёт неверные ответы. Например, если ввести 123123123, то программа скажет, что уникальных подстрок из трёх символов 0. Помогите, кто чем может
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
a :string;
k,s,p,z:longint;
flag: Boolean;
begin
writeln('Введите строку');
readln(a);
z:=0; s:=length(a) ; 
for k:=0 to s-3 do begin 
p:=0;
flag:=false;
while p<s-3 do begin
if (k+1=p+1) and (k+2=p+2) and (k+3=p+3) then 
p:=p+1;
if (a[s-2]=a[k+1]) and (a[s-1]=a[k+2]) 
and (a[s]=a[k+3])and (k+1<>s-2) and (k+2<>s-1) and (k+3<>s) then
flag:=true;
if (a[k+1]=a[p+1]) and (a[k+2]=a[p+2]) and (a[k+3]=a[p+3]) then
flag:=true;
p:=p+1;
end;
if flag=false then 
z:=z+1;
end;
write('Количество уникальных подстрок из трёх символов: ',z)
end.
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,323
22.11.2017, 19:47 5
Цитата Сообщение от mutango Посмотреть сообщение
что уникальных подстрок из трёх символов 0.
Так их и есть 0, какие Вы считаете уникальными?
0
mutango
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 6
22.11.2017, 19:51  [ТС] 6
Цитата Сообщение от Puporev Посмотреть сообщение
Так их и есть 0, какие Вы считаете уникальными?
Пардон, в глаза долблюсь. И правда, тут нет уникальных
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,323
22.11.2017, 19:53 7
Лучший ответ Сообщение было отмечено mutango как решение

Решение

123 повторяется 3 раза, 231 - 2 раза, 312 - 2 раза, какие же они уникальные?
0
mutango
0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 6
22.11.2017, 19:54  [ТС] 8
Цитата Сообщение от Puporev Посмотреть сообщение
123 повторяется 3 раза, 231 - 2 раза, 312 - 2 раза, какие же они уникальные?
Понял, да, пример был неудачным
0
22.11.2017, 19:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2017, 19:54

Подсчитать количество цифр, входящих в строку
Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в...

Написать программу, формирующую строку, состоящую из символов, входящих одновременно в обе заданные строки
ASCII-Z строки Здравствуйте! Помогите написать программу, формирующую строку,...

Необходимо сформировать третью строку, состоящую из символов, входящих одновременно в обе исходные строки
________________________________________________________________________________...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru