Вычислить значение функции - Pascal

  1. Вычислить значение функции f(x) =x/(25-х2). X изменяется от А до В с шагом h. Вычисление F(x) оформить как функцию, результаты вывести в виде таблицы в основной программе


textual

Код к задаче: «Вычислить значение функции - Pascal»

function f(x:real):real;
begin
f:=x/(25-x*x);
end;
var xn,xk,h,x:real;
begin
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала xk>',xn:0:2,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции h<',xk-xn:0:2,' h=');
readln(h);
until h<xk-xn;
x:=xn;
while x<xk+h/2 do
 begin
  if x=5 then writeln('x=',x:5:2,' f(x) не определено')
  else writeln('x=',x:5:2,' f(x)=',f(x):8:4);
  x:=x+h;
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.636 из 5



Похожие ответы
  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. Дали в шараге задачу, не могу сам решить, посоветовали в паскаль онлайн напечатать это, мол ответ даст, ошибки лезу, пожалуйста дайте значение или скажите что не так...))) Очень прошу.. //fpc 3.0.0 a := "decomposition"; n := 0; Делать от i = 1 до LEN(a) { b := Часть(a, i, 1); k := 0; Делать от j := i + 1 до LEN(a) { Если Часть(a, j, 1) = b то { k :=1; } } n := n + k; }

  1. Даны действительные числа x,y. Вычислить значение функции z=arcsin(x+y)

  1. Вычислить стороны прямоугольного треугольника, если известны его площадь и периметр.

  1. Доброго всем времени суток. Нужно составить написать программу решения задач на языке Паскаль. Даны x, y, z. Вычислить a, b, если:

  1. Вычислите F(X) в зависимости от введенного X. При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления.

  1. Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

  1. Найти наибольшее (наименьшее) значение A(I)-B(I) для массивов A(N) и B(N).

  1. Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22