VPF::Одномерный массив и замена 2-х элементов

greenday

Дата 1.5.2007, 11:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

День добрый, господа. Сразу прошу меня извинить, ибо вопрос мой очень простой. но с синтаксисом паскаля не знаком ВООБЩЕ (хотите верьте, хотите нет).
Нужно в одномерном массиве наибольший и наименьший элемент поменять местами.
Помогите пожалуйста!

XupyprMV

Дата 1.5.2007, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 16.10.2006
Где: Сыктывкар, Россия

Репутация: нет
Всего: нет

Вам сюда.

Klin

Дата 5.5.2007, 23:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1938
Регистрация: 7.10.2002
Где: Краснодар

Репутация: нет
Всего: 25

Вообще-то вам в центр помощи надо, но черт с ним smile

Код


var n: array[1..10] of integer; { задаем одномерный массив с 10 элементами}
   i,max,min: integer; 
begin

    randomize;
    for i:=1 to 10 do
     begin
      n[i]:=random(20);
      write(' ',n[i]);
     end;
    { заполняем массив случайными числами и выводим его на экран }

    max:=1; min:= 1; { определяем максимум и минимум как первый элемент }

    for i:=2 to 10 do
     begin
      if (n[max] < n[i]) then max:=i; { если элемент с номером max меньше, чем исходный элемент,  то  max = номеру исходного эл.}
      if (n[min] > n[i]) then min:=i; { если элемент с номером min больше, чем исходный элемент,  то  min = номеру исходного эл.}
     end;
     { поиск максимального и минимального элемента }

    n[max]:= n[max] xor n[min];
    n[min]:= n[max] xor n[min];
    n[max]:= n[max] xor n[min];
    { процедура замены }

    writeln;
    for i:=1 to 10 do write(' ',n[i]);
    { вывод на экран измененного массива }
end.

переменные:

max - номер максимального элемента
min - номер минимального элемента

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

Это сообщение отредактировал(а) Klin - 6.5.2007, 00:12

--------------------

Я человек - попробуйте обвинить меня за это.

volvo877

Дата 6.5.2007, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Klin @ 5.5.2007, 23:59

)

{ процедура замены }

некорректна... Ибо никто не сказал, какой тип является базовым для массива... А ЭТО сработает только с целочисленными типами...

P.S. Когда уже отучитесь заниматься всякими хаками? Ну хорошо, пользуетесь САМИ - пользуйтесь, но когда КОМУ-ТО другому советуете - это уже вредительство!

Klin

Дата 6.5.2007, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1938
Регистрация: 7.10.2002
Где: Краснодар

Репутация: нет
Всего: 25

Цитата(volvo877 @ 6.5.2007, 10:51

)

Когда уже отучитесь заниматься всякими хаками?

Это метод замены значений двух переменных без использования третьей. Я прекрасно знаю, для каких типов он действует. Я привел простейший пример программы. Явно не требуется использовать REAL и прочее (во всяком случае - в сабже это не указанно).

--------------------

Я человек - попробуйте обвинить меня за это.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »