Паскаль. Даны два символьных массива, в каждом из которых нет повторяющихся элементов

[votsarskam]

Паскаль. Даны два символьных массива, в каждом из которых нет повторяющихся элементов

Паскаль.Даны два символьных массива,в каждом из которых нет повторяющихся элементов.Есть ли в массивах разные элементы?Напишите программу.

 

[Zpm]

Сколько платишь?

 

[mike_]

Сколько платишь?

Боюсь Владимир Игоревич или Магента тайгер не дадут тебе тут заработать

 

[Zpm]

Я не собираюсь зарабатывать, школьники совсем обленилились, им даже тяжело написать "помогите", тупо скопипастил задание и ждет халявы!!!
Если честно - зарегистрировался специально, чтобы выразить свое "фу".
Если кто-то "помогает" таким хитрожопым школьникам, подумайте, какую медвежью услугу Вы оказываете!
Исправить ошибки, или подсказать метод - это пожалуйста, а тупо сделать за него задание - это зря!!!

 

[AlexZir]

Даны два символьных массива,в каждом из которых нет повторяющихся элементов.Есть ли в массивах разные элементы

Формулировка некорректная. Можно однозначно ответить, что разные элементы в массивах есть, так как они состоят только из неповторяющихся элементов. Это ясно и без написания программы.

 

[votsarskam]

Формулировка некорректная. Можно однозначно ответить, что разные элементы в массивах есть, так как они состоят только из неповторяющихся элементов. Это ясно и без написания программы.

в одном массиве нет повторяющихся элементов.То есть может быть ситуация когда первый массив равен допустим 1,2,3,4,5 и второй тоже равен 1,2,3,4,5 и тогда в массивах нет разных элементов

 

[votsarskam]

Паскаль.Как посчитать в массивах разные элементы?

Паскаль.Как посчитать в массивах разные элементы?Вот программа,помогите исправить выделенное красным.
program qwerty;
const n=5;
var a,b:array[1..n] of char;
i,k,j,f:integer;
begin
for i:=1 to n do
repeat
write('Введите ',i,'-й элемент первого массива*: ');readln (a);
f:=i-1;while (f>0) and (a[f]<>a) do dec(f);
if f>0 then writeln('Неверно! Такой символ уже есть в массиве!')
else break
until false;
for j:=1 to n do
repeat
write('Введите ',J,'-й элемент второго массива*: ');readln (b[j]);
f:=j-1;while (f>0) and (b[f]<>b[j]) do dec(f);
if f>0 then writeln('Неверно! Такой символ уже есть в массиве!')
else break
until false;
if (a <> b[j]) then inc(k);
writeln('В массивах есть различные элементы в количестве ',k,' шт.')
end.


Не пытайтесь создавать темы по одной и той же задаче в разных ветках форума, здесь такое не приветствуется! Ваш модератор.

 

[Vladimir_S]

школьники совсем обленилились, им даже тяжело написать "помогите", тупо скопипастил задание и ждет халявы!!!

Да... подтверждаю. И не только школьники, но и студенты. И самое, на мой взгляд, грустное даже не невладение светскими манерами, а то, что полные неучи, не желающие освоить даже самые элементарные основы программирования. И не только программирования.
Будущее наше, етить-колотить...

 

[AlexZir]

Алгоритм следующий:
В цикле перебираете элементы первого массива, сравниваете каждый их них со всеми элементами второго массива, считаете количество совпадений. Если количество совпадений равно количеству элементов - делаете вывод, что разных элементов нет.