Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Может ли две строки иметь одинаковые символы?

Автор: ramzes5000 28.04.2010 0:21

Начальник поставил задачу:
Может ли две строки иметь одинаковые символы?
Помогите пожалуйста!

Автор: Client 28.04.2010 1:48

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

Автор: ramzes5000 28.04.2010 10:05

Цитата(Client @ 27.04.2010 21:48) *

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

спасибо, уточню.

Автор: ramzes5000 28.04.2010 10:25

подкинули еще задачу

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


вот, что есть

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 28.04.2010 10:57

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

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


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

Автор: Ozzя 28.04.2010 11:46

Цитата
подкинули еще задачу

Переделать под Вашу задачу.
http://forum.pascal.net.ru/index.php?showtopic=25130&hl=

Автор: Гость 28.04.2010 13:27

всем спасибо, по моему справились

Автор: Гость 28.04.2010 13:28

хотел повысить Вам репутацию - кнопка не жмется

Автор: Ozzя 28.04.2010 14:03

Цитата
хотел повысить Вам репутацию - кнопка не жмется

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

Добавлено через 2 мин.
http://forum.pascal.net.ru/index.php?showtopic=15774&st=20&p=92421&#entry92421

Автор: TarasBer 28.04.2010 14:21

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


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 28.04.2010 14:27

Нет, и не будет. Динамические массивы - это не Паскаль.

Автор: TarasBer 28.04.2010 14:40

Блин, я не про динамические массивы, а про алгоритм.
Если хотите, то вот так:



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