Помощь - Поиск - Пользователи - Календарь
Полная версия: Может ли две строки иметь одинаковые символы?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ramzes5000
Начальник поставил задачу:
Может ли две строки иметь одинаковые символы?
Помогите пожалуйста!
Client
"строка1" и "вторая строка" имеют одинаковые символы? имеют.
или тут что то другое?
ramzes5000
Цитата(Client @ 27.04.2010 21:48) *

"строка1" и "вторая строка" имеют одинаковые символы? имеют.
или тут что то другое?

спасибо, уточню.
ramzes5000
подкинули еще задачу

удалить в строке символ, который повторяется максимальное количество раз.


вот, что есть

var s: string;
i: integer;
begin
writeln('введите строку');
readln(s);
for i:=length(s) downto 1 do
begin
if s[i]=s[i-1] then delete(s,i,1);
end;
writeln(s);
end.


М
ramzes5000, пожалуйста, вставляй иногда символ конца строки в код. Не у всех мониторы с разрешением 2400 по горизонту..
Исправлено.
Lapp


ramzes5000
Цитата(ramzes5000 @ 28.04.2010 6:05) *

"строка1" и "вторая строка" имеют одинаковые символы? имеют.
или тут что то другое?


правда ли что две строки не используют общих символов?
Ozzя
Цитата
подкинули еще задачу

Переделать под Вашу задачу.
Удаление повторяющихся элементов массива
Гость
всем спасибо, по моему справились
Гость
хотел повысить Вам репутацию - кнопка не жмется
Ozzя
Цитата
хотел повысить Вам репутацию - кнопка не жмется

У гостя нет такой возможности

Добавлено через 2 мин.
репутация
TarasBer
Кстати, в ЧЗВ есть алгоритм удаления из массива элементов, удовлетворяющих какому-либо условию, за линейное время без доп.памяти?
Типа такого:

j := 0;
for i := 0 to Length(Arr) - 1 do if not MustDel(i) then begin
Arr[j] := Arr[i];
Inc(j);
end;
SetLength(Arr, j);



Добавлено через 1 мин.
Я за Рамзеса плюс нажал, если что.
volvo
Нет, и не будет. Динамические массивы - это не Паскаль.
TarasBer
Блин, я не про динамические массивы, а про алгоритм.
Если хотите, то вот так:



j := 0;
for i := 0 to LArr - 1 do if not MustDel(i) then begin
Arr[j] := Arr[i];
Inc(j);
end;
LArr := j;



Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.