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

Алгоритм сжатия

11.05.2010, 13:37. Показов 3114. Ответов 1
Метки нет (Все метки)

целочисленную таблицу из n-элементов переписать так, чтобы вместо одинаковых, идущих подряд элементов оставался только один.
Заранее огромное спасибо!!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2010, 13:37
Ответы с готовыми решениями:

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

Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм
Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм 1. Объясни, что...

Построить алгоритм ДО и алгоритм ПОКА дя вычислений значения функции на отрезке [а,b] с шагом h. Написать программу
F=3+tg x

Написать алгоритм по блок схеме (Алгоритм метода Ньютона)
Прошу помогите, очень срочно! Сижу на экзамене!

1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2010, 13:49 2
Лучший ответ Сообщение было отмечено skazka54 как решение

Решение

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
27
28
29
30
31
32
33
34
35
36
uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;{начнем со второго элемента}
while i<=n do{пока не конец масива}
if a[i]=a[i-1] then{если элемент равен предыдущему}
 begin
  for j:=i to n-1 do{сдвигаем на него конец массива на 1 влево}
  a[j]:=a[j+1];
  n:=n-1;{уменьшаем размер массива}
 end
else i:=i+1;{иначе идем вперед}
writeln('Сжатый массив:');
for i:=1 to n do
write(a[i],' ');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2010, 13:49

Кто может составить алгоритм по проге? Алгоритм нужен для отчета если вам это интересно)
uses crt; var a:array of integer; b:array of integer; i,j,m,n:integer; begin ClrScr;...

Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из текстового файла. Результаты работы программы также помести
Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из...

Процедура сжатия исходной строки
составить процедуру сжатия исходной последовательности символов каждая подпоследовательность...

Сжатия массива путем отбрасыванием нулевых элементов
Написать программу сжатия массива x1, x2,…, xn отбрасыванием нулевых элементов. Освобождающийся...


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

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

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