Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 29.03.2014
Сообщений: 9
1

Составить процедуру сжатия последовательности символов

29.03.2014, 17:20. Показов 1622. Ответов 1
Метки нет (Все метки)

составить процедуру сжатия последовательности символов каждая последовательность состоящая из нескольких вхождений одного и того же символа заменяется на текст х (k) где х-символ k-количество повторений данного символа
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2014, 17:20
Ответы с готовыми решениями:

В заданной последовательности символов определить количество символов «*», стоящих после двоеточия
Дана последовательность символов, заканчивающаяся точкой. Известно, что среди этих символов есть...

Составить процедуру (функцию) построения строки символов
Составить процедуру (функцию) построения строки символов, являющейся записью заданного...

Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
29.03.2014, 18:00 2
Лучший ответ Сообщение было отмечено 4motion как решение

Решение

Паскаль АВС
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var s:string;
    i,k:byte;
begin
writeln('Введите строку с одинаковыми символами подряд');
read(s);
for i:=length(s) downto 2 do
if s[i]=s[i-1] then
 begin
  k:=1;
  while s[i]=s[i-1] do
   begin
    delete(s,i,1);
    k:=k+1;
    i:=i-1;
   end;
  insert(inttostr(k),s,i+1)
 end
else i:=i-1;
write(s)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2014, 18:00

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Уважаемые учёные помогите с програмкой ( есле можно то с коментариями) Заранее огромное спасибо!! ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...

Составить процедуру вычисления значения целого числа по заданной строке символов
Люди,помогите,пожалуйста,составить процедурку.... Составить процедуру вычисления значения целого...


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

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

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