Page 28 - 208_
P. 28

Для подання інформації в табличній формі служать односторонні
               та  двосторонні  таблиці  рішень,  алгоритмічні  таблиці,  таблиці
               відповідностей та логічні таблиці відповідностей.

               Таблиці  рішень  служать  для  подання  інформації,  необхідної

               для пошука одного єдиного типового рішення у випадку, коли
               між параметрами придатності типових рішень немає взаємних
               залежностей.  Двосторонні  таблиці  рішень  відрізняються  від
               односторонніх  більшою  компактністю,  що  є  особливо

               відчутним при великій множині параметрів придатності.

               Алгоритмічні  таблиці  використовують  також  при  пошуку
               одного  єдиного  типового  рішення  у  випадку,  коли  між
               параметрами  придатності  типових  рішень  існують  взаємні

               залежності.  При  цьому  порівняно  з  використанням  таблиць
               рішень  скорочуються  обсяги  та  зменшуються  повтори
               інформаційних рядків при складній логіці вибору рішень.

               Таблиці  відповідностей  використовують  у  випадку,  коли
               задача  допускає  існування  одразу  кількох  рішень  і  необхідно

               організувати  пошук  усіх  допустимих  типових  рішень  при
               взаємній незалежності параметрів придатності.

               Логічні  таблиці  відповідностей  використовують  тоді,  коли
               параметри  придатності  типових  рішень  взаємозалежні  і

               необхідно знайти всі типові рішення, які допускає задача.

                   Для  пошуку  типового  рішення  у  таблиці  рішень,  яка
               записана  в  текстовому  файлі,  можна  використати  наступну
               функцію. Рядки таблиці, пошук у якій здійснює дана функція,

               повинні містити параметри придатності для кожного типового
               рішення.  Останній  стовпчик  таблиці  (останні  числа  кожного
               рядка) повинен містити номери відповідних типових рішень.

               function ReadTable(var f: Text; n, m: Integer; U: TDataArray): Integer;

               {shukaje nomer rishennja w 1-storonnij tablyci rishen, zapysanij u fajli f}
               {kilkist stowpciw n i rjadkiw m widomi napered i je parametramy funkcii}
               {w n-mu stowpci tablyci zapysani nomery rischen}
               {U - masyw wchidnyh danyh rozmirnistju n-1}
               var
                 i: Integer;   {lichylnyk pozycii u rjadku}
                 j: Integer;   {lichylnyk stowpciw}

                 X : Real;    {dane z tablyci}
               begin



                                                         28
   23   24   25   26   27   28   29   30   31   32   33