ЗАДАНИЕ 1. Составите таблицу значений функции z = e-x на промежутке от хнач

Составите таблицу значений функции z = e^-x на промежутке от х_нач. до х_кон. с шагом х. Результаты оформите в виде таблицы. Значение x и z печатать в таблице с тремя знаками в дробной части.

 

Решение:

1. В данной задаче в качестве параметра цикла будет использоваться переменная х, значения которой будут меняться в заданных пределах. Исходные данные для расчета: х_нач., х_кон., х. Результаты: - значение функции z.

Чтобы рассчитать ширину таблицы, условимся, что значения x и z в ней будут выдаваться по формату 10: 3. Тогда ширина таблицы с учетом вертикальных ограничителей (и двух пробелов: один перед числом, а другой после), будет равна 27 символов. Горизонтальные линии таблицы будем формировать с помощью цикла.

2. Составим графическую схему алгоритма.

 

Нет

 

Да

 

 

 

 

3. Составим таблицу соответствия переменных.

 

В исходной задаче	х	xнач.	xкон.	х	z
В программе	X	XN	XK	DX	Z	I
Тип	real	real	real	real	real	int

 

4. В соответствии с пунктом 2 и 3 составим программу.

 

Program tabl;

{табуляция функции}

var

X, XN, XK, DX, Z: real;

i: integer;

begin

writeln (‘Введите х_нач., х_кон., шаг ‘);

readln (XN, XK, DX);

{Вывод заголовка таблицы}

writeln (lst, ‘ ‘: 10, функция z=EXP (-X)’);

for i: =1 to 27 do

write (lst, ‘ ‘);

writeln (lst, ‘| X | Z |’);

for i: =1 to 27 do

write (lst, ‘ – ‘);

writeln (lst);

{Рабочая часть программы}

X: =XN;

Writeln X< =XK do

Begin

Z: =EXP(-X);

Writeln (lst, ‘| ‘, X: 10: 3, ‘ | ‘, Z: 10: 3, ‘ | ‘);

X: =X+DX

End;

{Вывод низа таблицы}

for i: =1 to 27 do write (lst, ‘ – ‘);

writeln (lst);

end.