ЗАДАНИЕ №1. Составить таблицу значений функции z = e-x на строке от хнач
Составить таблицу значений функции z = e-x на строке от хнач. до хкон. с шагом
Решение:
Чтобы рассчитать ширину таблицы, условимся, что значения x и z в ней будут выдаваться по формату 10: 3. Тогда ширина таблицы с учетом вертикальных ограничителей (и двух пробелов: один перед числом, а другой после), будет равна 27 символов. Горизонтальные линии таблицы будем формировать с помощью цикла.
Нет
Да
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.
|
х. Результаты оформить в виде таблицы. Значение x и z печатать в таблице с тремя знаками в дробной части.
