Лабораторная работа №9

Цель работы: Изучение операторов ввода и вывода, управление формой вывода
данных, получение навыков организации печати в удобном для пользователя
виде.
Задание № 17. Вычислить функцию при заданных значениях аргумента [pic]
                                 Блок-схема.
[pic]

                          Программа на 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.
-----------------------
p=’ ’; s=’*******’; t=’ ’;

Ввод x0, hx, xn

Вывод t:abs(i-6), abs(i-6):i

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

                              x:=x+hx; z:=z+q;

                                   i=1(1)5


x>xn

                                    Конец



                                Вывод t,p,x,z



                                   Начало

                                   x:=x0;