пятница, 5 февраля 2016 г.

Заміна знаків в масиві за умовою в Turbo Pascal

Еще одно задание на украинском языке, в котором рассматривается работа с массивом с помощью языка программирования Turbo Pascal на основе блок-схемы, составленной в системе «Алгоритм». В конце статьи вы найдете ссылку на закачку исходников в pas и alg форматах.

Завдання


Дано масив {X} розмірністю n.

Потрібно: замінити знаки всіх елементів масиву на протилежні, якщо немає жодної пари однакових елементів. При невиконанні заданої умови видати повідомлення «Рішення не існує».

Обмеження: створення допоміжного масиву не дозволяється.

Маємо такі вхідні дані:
  1. Масив Х.
  2. n – кількість елементів масиву.
Вихідні дані — масив У.

План роботи


Щоб обчислити дану задачу, треба порівняти кожен елемент масиву Х з кожним іншим елементом масиву Х. При цьому не треба забувати, що не можна порівнювати елемент з самим собою.

Якщо жоден елемент в масиві не повторюється — помножити кожен елемент на -1. Інакше, вивести повідомлення про неможливість знайдення рішення задачи.

Побудова блок-схеми та обчислення результатів


В системі АЛГОРИТМ, побудуємо блок-схему для поставленої задачи:

Заміна знакік в масиві за умовою в Turbo Pascal

Розробимо програму в Turbo Pascal для обчислення поставленої задачи і отримаємо результати.

Нехай в масиві Х є однакові елементи, тоді:

Похідний масив

x[1]=1.0 x[2]=-2.0 x[3]=3.0 x[4]=-4.0 x[5]=-4.0 x[6]=5.0 x[7]=-6.0

Результуючий масив

y[1]=-1.0 y[2]=2.0 y[3]=-3.0 y[4]=4.0 y[5]=4.0 y[6]=-5.0 y[7]=6.0

Якщо однакових елементів немає, то:

Похідний масив

x[1]=1.0 x[2]=-2.0 x[3]=3.0 x[4]=-4.0 x[5]=5.0 x[6]=-6.0 x[7]=7.0

Рішення не існує

Тут находятся файлы блок-схемы и листинг программы, написанной на Турбо Паскале:

.

А тут вы можете ознакомиться с другими примерами работы с массивом в среде Turbo Pascal: пример 1, пример 2, пример 3.

Комментариев нет:

Отправить комментарий