Вывести на экран символы, входящие в текст не менее двух раз

@Yummy · Регистрация: 19.04.2012

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток, прошу помощи в написании двух программок:
1. С клавиатуры вводится текст. Вывести на экран символы, входящие в текст не менее двух раз.

Сам немного написал, но полной галиматьи...хотя может есть способ дополнить?..

Pascal

Program pr_5_4_3;
Uses crt;
var s:String;
    mxk, maxk,j,k,i:integer;
 
    m: set of char;
begin
  write('s=');
  readln(s);
 
   for i:=1 to length(s) do
   begin
 
   for j:=1 to length(s) do
begin
 
     if s[i]=s[j+1] then inc(k);
if k>mxk then mxk:=k;
      end;
     
 if mxk>=2 then writeln(s[i])
 else writeln('Nothing');
 
end;
   
readln;
end.

2. Не используя дополнительных переменных, поменяйте местами значения А и В множественного типа.

Ее я что-то понять так и не смог, в ступор ввело именно

А и В множественного типа.

Буду очень благодарен за помощь=)

@MayaNash · 19.04.2012, 16:58

№1

Pascal

uses crt;
 
var a: array [char] of integer;
    ch: char;
    i: integer;
 
begin clrscr;
for i:=0 to 255 do a[chr(i)]:=0;
 
while not eoln do
 begin
 read(ch);
 inc(a[ch]);
 end;
 
for i:=0 to 255 do
 if a[chr(i)] >= 2 then write(chr(i),', ');
readkey; end.

Добавлено через 8 минут
Второе меня тоже очень смутило, т.к. я знаю как поменять местами две переменные, например, целочисленного типа, но в двух множествах могут быть общие элементы, и это проблема. Я вообще не думаю, что со множествами это возможно, именно из-за общих элементов. Могу написать программу, которая будет это делать при условии, что элементы абсолютно разные.

Добавлено через 3 минуты
У меня появилась идея. Надеюсь получится, тогда скоро выложу.

Добавлено через 7 минут

Pascal

uses crt;
 
var a,b: set of 0..20;
 
begin
a:=[0,1,2,3];
b:=[3,4,5];
a:=a + b - a*b;
b:=(a-b) + (b-a);
a:=(a-b) + (b-a);
end.

Обратите внимание, 3 - общий элемент. Сначала мы записываем в А все, кроме общих. Потом вычисляем В по логике - если этот элемент есть в В, но нет в А, значит он был общим. Мы вычитаем В из А, т.е. А-В, и добавляем общий элемент, т.е. В-А. Теперь во множестве В у нас первоначальное множество А. Точно так же мы вычисляем А.

@Yummy · 19.04.2012, 16:59 **[ТС]**

Керра, благодарю, как поменять местами я в принципе тоже знаю...но вот в данном случае я в ступор ушел=( Думаю ваш вариант может подойти(про разные элементы)..

ЗЫ хм...спасибо, я думаю это и требовалось от меня в задаче=)) Еще раз огромное спасибо)

@MayaNash · 19.04.2012, 17:01

Либо вы написали сообщение раньше, чем я отправила свое, либо вы не поняли, что я там сделала.

@Yummy · 19.04.2012, 17:03 **[ТС]**

Керра, отправил раньше=) Конечно нажму=)
Только вопрос, в первой задаче где находится ввод строки? Или его вообще нет?=))

ЗЫ а, все нашел..

@Yummy 10 / 10 / 5 Регистрация: 19.04.2012 Сообщений: 16
	19.04.2012, 16:59 [ТС]	3
	Керра, благодарю, как поменять местами я в принципе тоже знаю...но вот в данном случае я в ступор ушел=( Думаю ваш вариант может подойти(про разные элементы).. ЗЫ хм...спасибо, я думаю это и требовалось от меня в задаче=)) Еще раз огромное спасибо) 1

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	19.04.2012, 17:01	4
	Либо вы написали сообщение раньше, чем я отправила свое, либо вы не поняли, что я там сделала. 1

@Yummy 10 / 10 / 5 Регистрация: 19.04.2012 Сообщений: 16
	19.04.2012, 17:03 [ТС]	5
	Керра, отправил раньше=) Конечно нажму=) Только вопрос, в первой задаче где находится ввод строки? Или его вообще нет?=)) ЗЫ а, все нашел.. 1