Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
5 / 5 / 5
Регистрация: 27.10.2013
Сообщений: 23
1

Напечатать TRUE, если в двух заданных одномерных массивах нет повторяющихся элементов

13.11.2013, 20:24. Просмотров 1144. Ответов 3
Метки нет (Все метки)


Повторно обращаюсь за помощью в выявлении ошибки.
составить процедуру, вычисляющее TRUE если в двух заданных одномерных массивах нет повторяющихся элементов и False если есть.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type arr=array[1..6] of real;
var h,y:arr;
i,j,k:integer;
procedure trfl(x,y:real; var k:integer);
var i,j:integer;
begin
for i:=1 to 6 do
for j:=1 to 6 do 
if x=y then
k:=k+1;
end;
 
begin
for i:=1 to 6 do
read(h[i]);
for j:=1 to 6 do
read(y[j]);
trfl(h[i],y[j],k);
if k>0 then
writeln('False')
else
writeln('True')
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2013, 20:24
Ответы с готовыми решениями:

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

В массивах G(8), K(19) определить кол-во и произведение элементов меньших 26 в двух заданных массивах (6;34)
Задать два одномерных массива значений, чтобы величины элементов массивов попадали в заданный...

Найдите среднее арифметическое всех отрицательных элементов в нечетных элементах двух одномерных массивах
найдите среднее арифметическое всех отрицательных элементов в нечетных элементах двух одномерных...

Найти сумму положительных элементов в двух заданных массивах
Написать программу : для ввода массива использовать процедуру, а для поиска элементов - функцию....

3
0 / 0 / 1
Регистрация: 13.11.2013
Сообщений: 7
13.11.2013, 20:47 2
Цитата Сообщение от deflion Посмотреть сообщение
trfl(h[i],y[j],k);
пилишь непонятно какие значения в процедуру проверки, а нужно весь массив.
0
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
13.11.2013, 20:48 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

На PascalABC:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
type
  arr = array[1..6] of real;
 
var
  h, y: arr;
  i, j, k: integer;
 
procedure trfl(const H, Y: array[1..6] of real; var k: integer);
var
  i, j: integer;
begin
  for i := 1 to 6 do
    for j := 1 to 6 do
      if h[i] = y[j] then
        k := k + 1;
end;
 
begin
  writeln('Ââåäèòå ýëåìåíòû ìàññèâîâ:');
  for i := 1 to 6 do
    read(h[i]);
  for j := 1 to 6 do
    read(y[j]);
  trfl(H, Y, k);
  if k > 0 then
    writeln('False')
  else
    writeln('True')
end.
На PascalABC.Net:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
type
  arr = array of real;
 
var
  h, y: arr;
  i, j, k: integer;
 
procedure trfl(const H, Y: array of real; var k: integer);
var
  i, j: integer;
begin
  for i := 0 to 5 do
    for j := 0 to 5 do 
      if h[i] = y[j] then
        k := k + 1;
end;
 
begin
  SetLength(H, 6);
  SetLength(Y, 6);
  writeln('Введите элементы массивов:');
  for i := 0 to 5 do
    read(h[i]);
  for j := 0 to 5 do
    read(y[j]);
  trfl(H, Y, k);
  if k > 0 then
    writeln('False')
  else
    writeln('True')
end.
1
5 / 5 / 5
Регистрация: 27.10.2013
Сообщений: 23
13.11.2013, 20:54  [ТС] 4
Спасибо большое. только начал изучать процедуры.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2013, 20:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Образовать массив из элементов, встречающихся одновременно в двух заданных массивах
Даны два массива. Образовать третий массив из элементов встречающихся в обоих массивах.

В двух одномерных массивах найти количество элементов, которые всречаются только в первом или только во втором массиве.
Прошу помощи с таким заданием: В двух одномерных массивах найти количество элементов, которые...

Переменной t присвоить значение TRUE если в массиве X нет ненулевых элементов
Массив 1.Переменной t присвоить значение TRUE если в массиве X нет ненулевых элементов и при этом...

Переменной t присвоить значение TRUE если в массиве X нет ненулевых элементов
1.Переменной t присвоить значение TRUE если в массиве X нет ненулевых элементов и при этом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.