Цель работы:
Изучение операторов
ввода и вывода,
управление
формой вывода
данных, получение
навыков организации
печати в удобном
для пользователя
виде.
Задание № 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
|