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

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

textual

Код:

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.

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

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

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

  1. Всем привет! прошу помочь с программой, если не сложно, написать код программы. Буду очень благодарна ! Паскаль повторение программы, Задача связанная с суммой

  1. Помогите разобраться с заданием, никак не получается Для введенных с клавиатуры значений A, B, n, m и X вычислить S:

  1. Приветствую, не могу решить очень простое задание: Дано натуральное число n. Создать программу вычисления значение выражения: Сделал вот такой код, но он решает совсем другое выражение...

  1. Как это сделать на паскале? Дано выражение где m = ln cos πr, k - целое число, r, t, m - вещественные числа. Вычислить значение выражения при а) r = 0.07; k = 6 б) r = 0.63; k = -15

  1. Буду признателен, если кто-то поможет с решением или толкнет в нужном направлении. Заданы числа x и y. Вычислить f(a) = (siny+cosx)/(1 + 2y cos(xy)) , где a = max(x, y). Если f(a) > 0, то вычислить p = (a+x+y)/f(a) и вывести на экран; если f(a) = 0, выдать об этом.

  1. Буду благодарен, если кто-то поможет или толкнет в нужном направлении. Задано целое число a. Если a > 0, то вычислить максимальное среди значений функции f(x) = (ex)/(sinx + cosx) на отрезке [-5;5] с шагом 0,2. В противном случае распечатать все положительные значения функции f(x).

  1. Привет ребят не оч шарю в паскале, нужна помощь в задаче: Вычислить значение выражения y=xn – zk. Вычисление значения степени оформить в виде рекурсии. Зарание спасибо !!


Нашли ошибку?
Развитие проекта
Яндекс.Метрика