Еще одно задание на украинском языке, в котором рассматривается работа с массивом с помощью языка программирования Turbo Pascal на основе блок-схемы, составленной в системе «Алгоритм». В конце статьи вы найдете ссылку на закачку исходников в pas и alg форматах.
Дано масив {X} розмірністю n.
Потрібно: замінити знаки всіх елементів масиву на протилежні, якщо немає жодної пари однакових елементів. При невиконанні заданої умови видати повідомлення «Рішення не існує».
Обмеження: створення допоміжного масиву не дозволяється.
Маємо такі вхідні дані:
Щоб обчислити дану задачу, треба порівняти кожен елемент масиву Х з кожним іншим елементом масиву Х. При цьому не треба забувати, що не можна порівнювати елемент з самим собою.
Якщо жоден елемент в масиві не повторюється — помножити кожен елемент на -1. Інакше, вивести повідомлення про неможливість знайдення рішення задачи.
В системі АЛГОРИТМ, побудуємо блок-схему для поставленої задачи:
Розробимо програму в 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.
Завдання
Дано масив {X} розмірністю n.
Потрібно: замінити знаки всіх елементів масиву на протилежні, якщо немає жодної пари однакових елементів. При невиконанні заданої умови видати повідомлення «Рішення не існує».
Обмеження: створення допоміжного масиву не дозволяється.
Маємо такі вхідні дані:
- Масив Х.
- n – кількість елементів масиву.
План роботи
Щоб обчислити дану задачу, треба порівняти кожен елемент масиву Х з кожним іншим елементом масиву Х. При цьому не треба забувати, що не можна порівнювати елемент з самим собою.
Якщо жоден елемент в масиві не повторюється — помножити кожен елемент на -1. Інакше, вивести повідомлення про неможливість знайдення рішення задачи.
Побудова блок-схеми та обчислення результатів
В системі АЛГОРИТМ, побудуємо блок-схему для поставленої задачи:
Розробимо програму в 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.
Комментариев нет:
Отправить комментарий