 Удаление повторяющихся элементов массива |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| redeezko |
 8.12.2009 18:47
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 22 Пол: Мужской Репутация:  0   |
Помогите со следующей задачей: в заданном массиве из n литер удалить все повторяющиеся литеры.
Вот что получилось у меня: program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=10;
type u=array[1..n] of char;
var x:u;
i,j,l,k:integer;
begin
writeln('vvedite nabor liter');
for i:=1 to n do
read(x[i]);
i:=2;
l:=n;
while i<=l do
begin
for j:=1 to i-1 do
if x[i]=x[j] then
begin
l:=l-1;
for k:=i to n do
x[k]:=x[k+1];
i:=i-1;
end;
inc(i);
end;
for i:=1 to l do write(x[i]);
readln;
readln;
end.
Но она почему то не работает. Вернее не всегда работает. Например если ввести aasdfsyajy то программа оставит asdjy. Очень прощу помощи. P.S. Учусь на 1 курсе, так что не знаю что такое процедуры и функции  . Да и проходим мы сейчас массивы, так что задачу необходимо сделать наподобие как делаю я. Заранее спасибоСообщение отредактировано: redeezko - 8.12.2009 19:26 |
   |
 
|
Сообщений в этой теме
redeezko Удаление повторяющихся элементов массива 8.12.2009 18:47
Lapp в заданном массиве из n литер удалить все повторяю... 8.12.2009 20:43 redeezko Написал задачу в точности как она была продиктован... 8.12.2009 20:48
Гость из abaadcba сделать abdc. Удалять все повторы.Хоро... 8.12.2009 21:20 redeezko Нет, не проходили. 8.12.2009 21:34 Unconnected Блин, а я уже со множествами сделал...
const n=10... 8.12.2009 22:35 Lapp Ну, тогда можно делать примерно так:
program Proj... 8.12.2009 23:21 volvo Потому что вот этот цикл:
for j:=1 to i-1 do... 8.12.2009 23:30  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 1:47 |