{* Вычислить 81 значение функции *}

Unit ZNACH_FUNC;
Interface
Implementation
Begin
 writeln('В этой простенькой программке вычисляется 81-е значение следующей функции: a*b*Exp(-n*sqr(a*b)) ');
End.

Program pas;

Uses znach_func.pas; {* Эту строку можно удалить *}
{  Вычислить 81 значение функции    В данной программе вычисляется 81 - е значение  заданной функции    В этой простенькой программке вычисляется 81 - е значение  следующей функции: a * b * Exp( - n * sqr(a * b))    кл слова  вычислить значение функции паскаль решение задач экспоненциальная функция  паскаль задачи    выход    Исходная функция: a * b * Exp( - n * sqr(a * b))  Значение функции:      }
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  E  : Real;
  a  : Real;
  b  : Real;
  h  : Real;
  y  : Real;
  Xi : Real;
  i  : integer;
  n  : integer;
Begin
  Clrscr; {* Очистка экрана *}
  Writeln('Исходная функция: a * b * Exp( - n * sqr(a * b))');
  Writeln('Введите a, b, Xi:');
  Readln(a, b, Xi);
  For n := 1 To 81 Do {* Цикл для n => [1 .. 81] *}
  Begin
    E := a * b * Exp( - n * sqr(a * b));
    y := 0;
    For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
    Begin
      h := Exp( - Xi / (sqr(a * b) * (a * b)));
      y := y + h;
    End;
    Writeln('Значение функции:');
    Writeln(n : 3, '. ', y);
  End;
  readln; {* Ждем подтверждения пользователя *}
End.