Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal циклы https://www.cyberforum.ru/ pascal/ thread127935.html
1. Вычислить значение выражения с использованием трех видов цикла. Дано действительное число x и натуральное число n. Среди чисел x^1, x^2, ... x^n найти наибольшее и наименьшее 2. Среди...
Pascal Контрольная по Паскалю
Доброго всем времени суток! Помогите решить 5 задач по Паскалю - сестра меня достала, а я в программировании ни бум-бум К первой картинке такое задание - Составить программу вычисления функции...
Pascal программа на графы Совсем не понимаю графы, а задали сделать эту работу. В ВУЗе этого не проходили. Помогите пожалуйста :-[ Вводится N - количество домов и К - количество дорог. Дома пронумерованы от 1 до N. Каждая... https://www.cyberforum.ru/ pascal/ thread127918.html Pascal Метод парабол на паскале https://www.cyberforum.ru/ pascal/ thread127917.html
Ребята, дайте кто может алгоритм решения метода парабол(мюллера) на паскале)) ну очень надо)))до завтра...))девочкам очень нужна ваша помощь))))
Pascal Арифметическое выражение в строке
Я что-то совсем запутался... Задание: дана строка 'dsa12fe+sdsa5?' (может быть любой) надо вычислить выражение, т.е. в данном случае ответ=17 ... Строка читается слева направо, операции могут быть:...
Pascal Как Слова с повторениями букв поставить в начало предложения? Мы вводим строку длиной до 80 символов, нужно слова в которых повторяется больше одного раза буквы Е,Ю,Я поставить в начало строки. Тоесть если ми вводим например такое предложение: "Ми хотим... https://www.cyberforum.ru/ pascal/ thread127878.html
Pascal функции работы с меню подскажите пожалуйста в чем косяк с подсчетом пункта меню?=( ЗАДАНИЕ:Написать функцию формирования и функцию работы с меню (в графическом режиме). Пункты меню должны храниться в файле MENU.DAT.... https://www.cyberforum.ru/ pascal/ thread127868.html Удвоить каждый элемент файла f1 через запятую и результат записать в файл f2 Pascal
задан файл f1 целых чисел.Удвоить каждый элемент файла f1 через запятую и результат записать в файл f2.Вывести на экран результат.
Pascal Подсчитать количество различных чисел, встречающихся в одномерном массиве https://www.cyberforum.ru/ pascal/ thread127853.html
1) Подсчитать количество различных чисел, встречающихся в одномерном массиве; 2) Подсчитать сумму элементов каждой строки двумерного массива А(4,6). Заранее спасибо!
Pascal Построить множество https://www.cyberforum.ru/ pascal/ thread127850.html
Pascal Найти, на каком месте находится число в массиве
1)Усложненную таблицу из N элементов уплотнить так, чтобы сохранить порядок следования ненулевых элементов (т.е. убрать нулевые элементы, поместив их в конец). 2)Заданы массив и некоторое число....
Pascal Вычислить количество элементов массива, лежащих в диапазоне от А до B https://www.cyberforum.ru/ pascal/ thread127841.html
В одномерном массиве, состоящем из n вещественных элементов: 1) количество элементов массива, лежащих в диапазоне от А до B 2) сумму элементов массива, расположенных после максимального...
Почетный модератор
64068 / 47480 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2010, 13:49 0

Алгоритм сжатия - Pascal - Ответ 718092

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

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Алгоритм сжатия Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2010, 13:49
Готовые ответы и решения:

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

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

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

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

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 отбрасыванием нулевых элементов. Освобождающийся...

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