Табуляция функции

[dimka123]

Новый точечный рисунок.jpg
АиB промежуток, найти Y используя табуляцию
правильно ли я написл программу(решение есть) или еще что то добавить надо?

Const min=3;
      max=3;
      h=0.5;
Var x,y:real;
Function F(x:real):real;
begin;
F:=(exp(x)+exp(-x))/exp(x)-exp(-x);
end;
var i:integer;n:real;
Begin;
x:=min;
for i:=min to max do begin;
n:=(max-min)/h;
y:=F(x);
x:=x+h;
end;
writeln('x=',x:5:5,'', 'y=',y:5:5);writeln('n=',n)
end.

[ViktorR]

правильно ли я написл программу

Нет, не правильно.
min и max - это левая и правая границы области значений X. Тип - real.
Использовать эти значения для переменной цикла For нельзя, так как препод тутже изменит условие, например min = -3.1. И ...?

Шаг задан и вычислять n нет необходимости.
А для какой цели служит данный код в теле твоего цикла?

n:=(max-min)/h;

Пример решения:

xmin := -3; {можно запросить ввод}
xmax := 3;  {можно запросить ввод}
h := 0.5;   {можно запросить ввод}
x := xmin;
while x <= x max do
begin
   {вычисляем функцию}
   x := x + h;
  writeln('x =', x:6:2, '  y = ', y:6:2); {Тут формируется таблица}
{которую можно украсить используя знаки, например, '+', '-', 'I'}
end;
...

Как-то так, ...

[type_Oleg]

И в описании функции скобки в знаменателе забыли. Внизу дроби..

[dimka123]

Сообщение от ViktorR

Нет, не правильно.
min и max - это левая и правая границы области значений X. Тип - real.
Использовать эти значения для переменной цикла For нельзя, так как препод тутже изменит условие, например min = -3.1. И ...?

Шаг задан и вычислять n нет необходимости.
А для какой цели служит данный код в теле твоего цикла?

n:=(max-min)/h;

Пример решения:

xmin := -3; {можно запросить ввод}
xmax := 3;  {можно запросить ввод}
h := 0.5;   {можно запросить ввод}
x := xmin;
while x <= x max do
begin
   {вычисляем функцию}
   x := x + h;
  writeln('x =', x:6:2, '  y = ', y:6:2); {Тут формируется таблица}
{которую можно украсить используя знаки, например, '+', '-', 'I'}
end;
...

Как-то так, ...

а в цикле for разве не так ,как я написал?
нахождение n хм....так сказать " препод намекнул" но в то же время n всегда 0

Сообщение от dimka123

а в цикле for разве не так ,как я написал?
нахождение n хм....так сказать " препод намекнул" но в то же время n всегда 0

я делал с while но сказали for/

Сообщение от ViktorR

Нет, не правильно.
min и max - это левая и правая границы области значений X. Тип - real.
Использовать эти значения для переменной цикла For нельзя, так как препод тутже изменит условие, например min = -3.1. И ...?

Шаг задан и вычислять n нет необходимости.
А для какой цели служит данный код в теле твоего цикла?

n:=(max-min)/h;

Пример решения:

xmin := -3; {можно запросить ввод}
xmax := 3;  {можно запросить ввод}
h := 0.5;   {можно запросить ввод}
x := xmin;
while x <= x max do
begin
   {вычисляем функцию}
   x := x + h;
  writeln('x =', x:6:2, '  y = ', y:6:2); {Тут формируется таблица}
{которую можно украсить используя знаки, например, '+', '-', 'I'}
end;
...

Как-то так, ...

делал вот по этому примеру только функция имела другую формулу
http://www.cyberforum.ru/pascalabc/thread999351.html

[ViktorR]

я делал с while но сказали for/

Тогда понятно, зачем препод намекнул по поводу использования n.
В этом случае вычисляй n до входа в цикл, а затем в цикле for выполняй вычисления x и самой функции:

n := Round((Max - Min)/h); {это как уже было}
for i := 0 to n do  {0 - включение в расчет и левой границы области}
begin
   x := Min + i * h;
   y := f(x);
   writeln( ...); {тут пиши что надо вывести}
end;

Использование функции Round() - нужно для совместимости типов данных. В выражении для n переменная h - real. Впринципе и Max с Min надо делать типа real.
Можно использовать и функции Int() или Trunc() (почитай про них).

Как-то так, ...
PS: Подумай, может не стоит цитировать посты целиком. Они ведь и так видны.
Только те части сообщения имеет смысл цитировать, на которые даеш ответ.

[dimka123]

VictoR ,: Function Round () :longint как тогда ее расписать (в скобках) не от Х же брать?

[ViktorR]

Мной дано пояснение к моему же примеру, где использована функция Round().
Т.е. Зачем: для преобразования к целому типу результата деления;
Как использовать:

n := Round((Max - Min)/h);

И о чем вопрос?



Как-то так, ...