Разработать алгоритм и составить программу табулирования функции

@BigBonHer · Регистрация: 19.05.2015

Студворк — интернет-сервис помощи студентам

Разработать алгоритм и составить программу табулирования функции по одному из вариантов таблицы 5.1. Вычисления значений функции выполнить циклом с предусловием. Начальное и конечные значения аргумента и шаг его приращения вводятся с клавиатуры по запросу программы. Таблица должна иметь «шапку» вида: ----------------------------------- I Аргумент x I Функция y I ------------------------------------ В качестве разделителя строк использовать линию, образованную символа- ми «-». На дисплей и в текстовый файл выводятся исходные данные с указанием имен переменных и результаты работы программы в виде таблицы.
Формула:

$https://www.cyberforum.ru/cgi-bin/latex.cgi? F(x)=e^x-\frac 1{e^x} $

Интервал:

$https://www.cyberforum.ru/cgi-bin/latex.cgi? x\in [-1.8;\,1.6] $

Шаг:

$https://www.cyberforum.ru/cgi-bin/latex.cgi? \operatorname{d}x=0.2 $

Помогите подправить программу

Pascal

Program aizek;
var
x,xn,xk,y,dx:real; 
begin;
writeln('Введите значение dx');
readln(dx);
writeln('Введите значение xn');
readln(xn);
writeln('Введите значение xk');
readln(xk);
x:=xn;
writeln('-----------------------------');
writeln('I Аргумент x I   Функция y I');
writeln('-----------------------------');
while x<xk do
begin
y:=exp(x)-(1/(exp(x)));
writeln(x:7:2, y:17:3);
x:=x+dx
end;{while}
END.

@Puporev · 08.06.2015, 07:32

Pascal

Program aizek;
var x,xn,xk,y,dx:real;
begin;
write('Введите значение xn=');
readln(xn);
repeat
write('Введите значение xk>',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
writeln('Введите значение dx<',xk-xn,' dx=');
readln(dx);
until dx<xk-xn;
x:=xn;
writeln('----------------------------');
writeln('| Аргумент x |   Функция y |');
writeln('----------------------------');
while x<xk+dx/2 do
 begin
  y:=exp(x)-1/exp(x);
  writeln('|',x:8:2,'    |',y:9:3,'    |');
  x:=x+dx
end;{while}
writeln('----------------------------');
END.

	08.06.2015, 07:32

Опции темы