ексель, файл откройте и там.

Моделювання в широкому сенсі — це особливий пізнавальний процес, метод теоретичного та практичного опосередкованого пізнання, коли суб'єкт замість безпосереднього об'єкта пізнання вибирає чи створює схожий із ним допоміжний об'єкт-замісник (модель), досліджує його, а здобуту інформацію переносить на реальний предмет вивчення.

Моделювання — це процес створення та дослідження моделі, а модель — засіб, форма наукового пізнання.

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

Моделювання різних фізичних процесів виходить з подібності явищ, що розглядаються. Два явища називаються подібними, якщо за характеристиками одного можна одержати характеристики іншого шляхом простого перерахунку. Умовами або критеріями подібності двох явищ є рівності деяких безрозмірних параметрів, які називаються числами або критеріями подібності. Визначення критеріїв подібності при моделюванні процесів, що вивчаються, потребує глибокого знання механізму цих процесів і є досить важким завданням. Під час розв'язання цього завдання усі досліджувані процеси слід розділяти на дві суттєво різні групи. До першої групи потрібно віднести процеси і явища, які можна описати рівняннями, до другої, яка становить найбільший інтерес – процеси і явища, які ще не мають математичного опису. У разі, коли рівняння досліджуваних процесів невідомі, числа подібності можна знайти за теорією розмірностей. У разі наявності диференціальних рівнянь досліджуваних процесів, числа подібності легко визначаються, як коефіцієнти рівнянь, які представлено в безрозмірному вигляді. Природно, що одержання критеріїв подібності за наявності рівнянь значно простіше, ніж при їх відсутності. Тому теорію розмірностей слід застосовувати для отримання критеріїв подібності тільки при дослідженні процесів, які не мають математичного опису.

Код программы:

var a:array[1..27] of integer;

b, i, c, ind:integer;  

begin

 a[1]:= 72;

 a[2]:= 76;

 a[3]:= 92;

 a[4]:= 45;

 a[5]:= 55;

 a[6]:= 82;

 a[7]:= 46;

 a[8]:= 39;

 a[9]:= 78;

 a[10]:=50;

 a[11]:=34;  

 a[12]:=71;  

 a[13]:=44;

 a[14]:= 92;

 a[15]:= 38;

 a[16]:= 51;

 a[17]:= 6;

 a[18]:= 45;

 a[19]:= 66;

 a[20]:= 78;

 a[21]:= 19;

 a[22]:= 17;

 a[23]:= 42;

 a[24]:= 36;

 a[25]:= 34;

 a[26]:= 91;

 a[27]:= 61;

 writeln('Введите число');

 readln(b);

 if ((b >= 0) and (b <= 100)) then begin

 c:=abs(b - a[1]);

 for i:=2 to 27 do begin

   if(abs(b - a[i]) <=c) then begin

       c:=abs(b - a[i]);

       ind:=i;  

     end;

 end;

 writeln('Результат: ', a[ind]);

 end

 else

   writeln('Ошибка, число должно быть больше 0 и меньше 100');

end.