Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде.

Задание № 17. Вычислить функцию при заданных значениях аргумента

Блок-схема.


Программа на Turbo Pascal

{*********************************************}

{программа:Lab_9                                                       }

{цель:вывод графика функции                                    }

{переменные:x0,xn-начальное и конечное значения  }

{hx-шаг                                                                        }

{q-искомое значение выражения                                }

{i-параметр цикла                                                        }

{z-искомое значение                                                   }

{x,a-переменные                                                          }

{метод решения:вычесление по формулам                }

{подпрограммы:отсуствуют                                                }

{програмист:студент гр. 316 Позднышев А.А.          }

{проверил: Новичков В.С.                                          }

{дата:20.04.2004г.                                                        }

{*********************************************}

program lab_9;

  const

    p='    ';

    s='***********************';

    t='    ';

  var

    x0,x,xn,hx,q,z:real;

   i,a:integer;

  begin

    writeln('введите x0,hx,xn');

    readln(x0,hx,xn);

    writeln('    значение x * значение z');

    writeln(t,s);

  for a:=1 to 3 do

  begin

    x:=x0;

  repeat

    q:=exp(-a*sin(x)*ln(exp(1)));

    writeln(t,'^',p,x:4:2,'^',p,z:4:1,p,'^');

    x:=x+hx;

    z:=z+q ;

  until x>xn;

  end;

    writeln(t,s);

  for i:=1 to 5 do

  begin

   writeln(t:abs(i-6),abs(i-6):i);

   end;

   end.