Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
VladimirML
0 / 0 / 2
Регистрация: 09.12.2013
Сообщений: 21
#1

Минимальный и максимальный элемент двух массивов - Pascal ABC

09.12.2013, 21:00. Просмотров 344. Ответов 6
Метки нет (Все метки)

Здравствуйте. Помогите, пожалуйста, исправить программу. Я не могу понять, где ошибка.

Задача: вектора X[i] и Y[i] преобразовать по правилу: X[i]=max(X[i],Y[I]), Y[i]=min(X[i],Y[I]).

Вот, что я написал:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program ex32;
const n=5;
type vector=array[1..n] of integer;
var x,y:vector;A,B,i:integer;
begin
writeln('Введите ',n,' чисел вектора X');
for i:=1 to n do
read(x[i]);
writeln('Введите ',n,' чисел вектора Y');
for i:=1 to n do
read(y[i]);
for i:=1 to n do
begin
A:=max(x[i],y[i]);
B:=min(x[i],y[i]);
end;
write('max=' ,A,' min= ',B)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 21:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Минимальный и максимальный элемент двух массивов (Pascal ABC):

Дан массив А с N элементами. Найти максимальный элемент с нечетным индеском и минимальный элемент с четным
Дан массив А с N элементами. Найти максимальный элемент с четным индеском и...

Поменяйте местами минимальный элемент и максимальный элемент массива
№1: Дан одномерный массив. Поменяйте местами минимальный элемент и максимальный...

Поменяйте местами минимальный элемент и максимальный элемент массива
Уважаемые, помогите написать алгоритм решения этих 3 задачек по массивам. А то...

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

Найти максимальный и минимальный элемент массива
как сделать ? Добавлено через 58 секунд условие Добавлено через 5 минут...

Определить минимальный и максимальный элемент массива
Дан одномерный массив натуральных чисел . Определить минимальный и максимальный...

6
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
09.12.2013, 21:38 #2
Цитата Сообщение от VladimirML Посмотреть сообщение
A:=max(x[i],y[i]); B:=min(x[i],y[i]);

вы даете..
0
VladimirML
0 / 0 / 2
Регистрация: 09.12.2013
Сообщений: 21
09.12.2013, 21:57  [ТС] #3
Цитата Сообщение от Svager Посмотреть сообщение
вы даете..
Извините, а можете объяснить, что конкретно не так?

Добавлено через 8 минут
Возможно, я должен вычислить минимальный и максимальный элемент каждого массива в отдельности, а затем сравнивать два минимума и два максимума?
0
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
09.12.2013, 22:12 #4
Цитата Сообщение от VladimirML Посмотреть сообщение
Извините, а можете объяснить, что конкретно не так?

Добавлено через 8 минут
Возможно, я должен вычислить минимальный и максимальный элемент каждого массива в отдельности, а затем сравнивать два минимума и два максимума?
ну я тоже так думаю, просто вы написали тупо max() min ()
...так что , нужно найти макс и мин

Добавлено через 5 минут
вообще-то ваше задание , оно немного странное..
0
VladimirML
0 / 0 / 2
Регистрация: 09.12.2013
Сообщений: 21
09.12.2013, 22:50  [ТС] #5
Уточняю условие задачи. Задача №17:
0
Миниатюры
Минимальный и максимальный элемент двух массивов  
vedoo
1 / 1 / 2
Регистрация: 09.12.2013
Сообщений: 9
09.12.2013, 23:09 #6
функций max и min нету в паскале.Либо пишите их отдельно сами, либо другой вариант в цикле for сравниваете x[i] и y[i]. Если x[i] больше, то с помощью дополнительной переменной меняете x[i] и y[i]. И в конце нужно вывести не макс и мин, а эти вектора X и Y, только измененные,я так понимаю.)
0
VladimirML
0 / 0 / 2
Регистрация: 09.12.2013
Сообщений: 21
27.12.2013, 10:35  [ТС] #7
Спасибо за помощь, задачу решил. Вот так должен выглядеть её код:
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
32
33
34
35
36
37
38
program ind3;
 
const
  n = 3;
 
type
  vector = array[1..n] of integer;
 
var
  x, y, a: vector;i: integer;
 
begin{1}
  {Ввод массива X}
  writeln('Введите ', n, ' чисел вектора X');
  for i := 1 to n do
    read(x[i]);
  
    {Ввод массива Y}
  writeln('Введите ', n, ' чисел вектора Y');
  for i := 1 to n do
    read(y[i]);
  {Преобразование векторов X и Y}
  for i := 1 to n do 
  begin{2}
    if x[i] < y[i] then
    begin{3}
      a[i] := x[i];
      x[i] := y[i];
      y[i] := a[i];
    end;{3}
  end;{2}
  {Вывод преобразованных векторов X и Y}
  for i := 1 to n do
    write('X', i, '=', x[i], ' ');
  writeln;
  for i := 1 to n do
    write('Y', i, '=', y[i], ' ');
end.
0
27.12.2013, 10:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2013, 10:35
Привет! Вот еще темы с решениями:

Определить максимальный и минимальный элемент массива
Помогите исправить программу. Суть задачи такая: Создать массив с элементами...

Максимальный и минимальный элемент в матрице и их индексы
Напишите программу которая заполняет квадратную матрицу случайными числами в...

Определить минимальный и максимальный элемент массива
Var n: integer; Procedure X; Var a: array of integer; i,q,min,max:...

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


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

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

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