Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Мурад97
0 / 0 / 0
Регистрация: 04.10.2016
Сообщений: 11
1

Использование процедур

26.04.2017, 14:15. Просмотров 708. Ответов 1
Метки нет (Все метки)

Составить процедуру "сжатия" исходной последовательности символов: каждая последоватьность состоящая из нескольких вхождений одного и того же символа, заменяется на текст x(k), где x - символ, k - строка, являющаяся записью числа вхождений символа x в исходную последовательность
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2017, 14:15
Ответы с готовыми решениями:

Использование процедур
Дано натуральное число n, целые числа a1, ..., an. Рассмотреть все орезки последовательности a1,...

Использование процедур
Даны действительные числа s,t. Получить h(s,t)+max(h^2(s-t, st), h^4(s-t, s+t))+h(1,1), где...

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

использование процедур
боже, помогите решить задачу! последняя лаба плииииииииииииииииииз ...

Использование процедур
Ребят помогите пожалуйста написать программу))) Подруга сидит на экзамене, а у меня не получается...

1
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
26.04.2017, 16:18 2
Лучший ответ Сообщение было отмечено Мурад97 как решение

Решение

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
procedure compress(var s:string);
var i,k:byte;
begin
s:=' '+s;
k:=1;
for i:=length(s) downto 2 do
if s[i]=s[i-1] then
 begin
  delete(s,i,1);
  inc(k);
 end
else if k>1 then
 begin
  insert('('+inttostr(k)+')',s,i+1);
  k:=1;
 end;
delete(s,1,1);
write(s);
end;
var s:string;
    i,k:byte;
begin
writeln('Введите строку, содержащую по несколько одинаковых символов подряд');
readln(s);
compress(s)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2017, 16:18

использование процедур
Даны действительные числа a, b, c. Получить (max(a,a+b)+max(a,b+c))/(1+max(a+bc, 1,15))

Использование процедур
Помогите, пожалуйста, решить две задачи с использованием процедур. Задача 1. Для элементов...

Использование процедур и функций в Pascal
Может кто чего знает по этим двум задачкам подскажите пожалуйста... 1)Ввести два числа....


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

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

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