Лабораторная работа №9 Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде. Задание № 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. Министерство образования РФ Рязанская государственная радиотехническая академия Кафедра ВПМ Отчет о лабораторной работе № 8: «Проектирование алгоритмов и программ со структурой вложенных циклов» Выполнил: ст. гр. 316 Позднышев А.А. Проверил: Новичков В.С. Рязань 2004