Паскаль. Даны два символьных массива, в каждом из которых нет повторяющихся элементов
Паскаль.Даны два символьных массива,в каждом из которых нет повторяющихся элементов.Есть ли в массивах разные элементы?Напишите программу.
|
Сколько платишь?
|
Цитата:
|
Я не собираюсь зарабатывать, школьники совсем обленилились, им даже тяжело написать "помогите", тупо скопипастил задание и ждет халявы!!!
Если честно - зарегистрировался специально, чтобы выразить свое "фу". Если кто-то "помогает" таким хитрожопым школьникам, подумайте, какую медвежью услугу Вы оказываете! Исправить ошибки, или подсказать метод - это пожалуйста, а тупо сделать за него задание - это зря!!! |
Цитата:
|
Цитата:
|
Паскаль.Как посчитать в массивах разные элементы?
Паскаль.Как посчитать в массивах разные элементы?Вот программа,помогите исправить выделенное красным.
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[i]); f:=i-1;while (f>0) and (a[f]<>a[i]) 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[i] <> b[j]) then inc(k); writeln('В массивах есть различные элементы в количестве ',k,' шт.') end. Не пытайтесь создавать темы по одной и той же задаче в разных ветках форума, здесь такое не приветствуется! Ваш модератор. |
Цитата:
Будущее наше, етить-колотить... |
Алгоритм следующий:
В цикле перебираете элементы первого массива, сравниваете каждый их них со всеми элементами второго массива, считаете количество совпадений. Если количество совпадений равно количеству элементов - делаете вывод, что разных элементов нет. |
Часовой пояс GMT +4, время: 12:33. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.