Вычисление значения функции

Задача: 

Требуется написать программу, вычисляющую значение какой-нибудь функции (у = f(x)). Допустим, такой:

у = x – 2, если x > 0,
y = 0, если x = 0,
y = |x|, если x < 0.

Алгоритм решения задачи: 

Задача решается очень просто.

Программа на языке Паскаль: 

var
    x, y: integer;
 
begin
    write ('x = ');
    readln (x);
 
    if x > 0 then
        y := x - 2
    else
        if x = 0 then
            y := 0
        else
            y := abs (x);
 
    writeln ('y = ', y);
 
readln
end.

Примечания: 

В языке программирования Паскаль желательно вложенные конструкции if-else помещать в ветку else, а не if. Так проще не запутаться.

Комментарии

y=x^3

кому не сложно напишите пожалуйста в языке паскаль)

Графики функции

Разработать программу для построения графика функции: y=ln(x)

Переменные

r=t-exp(z)/y, где t=cos g; y=ln|x+1|-z; y=exp(1/3(x/(I+2.5E6*a*i))); g=0,91; a=3; x=1; i=2,4. Помогите пожалуйста составить программу плиииииз

Доброго всем дня! НУЖНА

Доброго всем дня! НУЖНА ПОМОЩЬ!!!!!! Задание такое: Построить алгоритм и написать программу для вычисления по формуле F = (x + 1) k(степень)

Алгоритм обчислення

Помогите сделать алгоритм
p=(y-3)(y-6)...(y-12)

Составить программу

Составить программу вычисления значения функции y=x2 для -5<_x<_5 изменяющегося с шагом 0,5 (<_ это меньше или равно )

помогите

найти значения функции y=1/x^2 на отрезке [1;5]

Программирование Delphi (Lazarus)

Помогите пожайлуста решить в программе делпи лазарус.Составить программу вычисления таблицы значений функции y=b∙cos(x)–sin3(x) и построить ее график при изменении x от x0 до xn с шагом dx.

найдите значения функции

найдите значения функции y=x2-1,для x=0.1,0.2,0.3...,20.Задайте форматированный вывод для x всего 5 знаков,из них после запятой-один,для y всего восемь
знаков,из них после запятой-два.

Основы языка Paschal.

Вычислить.
y=система x2+3.x меньше или равно 0
2x2+4.x больше 1
где x и y -натуральные числа.

помогите с задачей пожалуйста

из задаваемых идеинтичных матриц А и В размерности м на n построить матрицу С C(i,j)=1+min^3(A(i,j),B(i,j)

Помогите пожалуйста)

Обчислити значення функції U за формулою U=5,8e ^(min(sin x, sin y, sin z)) , де x=z-y, y=КОРЕНЬ 2z
Буду очень благодарен)

Помогите пожалуйста(

Даны числа X и Y. Вычислить Z= f(T,P) (Линейный алгоритм) T= Sin(x+y); P= xИзображение ; Z=P*T

помогите

помогите пожалуйста!!!!
Напишите на языке IL следующий пример: y=a+b-c

Помогите, ПОЖАЛУЙСТА!!!

Напишите программу: Найти площадь боковой поверхности по формуле S=pDH

помогите пожалуйста:ДАНЫ

помогите пожалуйста:ДАНЫ ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА А,B,C. ПОЛУЧИТЬ MAX (А,А+B)+MAX (A,B +C)/ ( 1+MAX(A+B*C, 1.15)

Помогите пожалуйста .

Нужно вычислить чему равен y
y=4x+10,если х>(либо равно 0) ;
8+х,если х<0
x|5|-2|0
y| | |
Написать программу , блок схему и решение

varx,y:integer;begin

var 
x,y:integer;
begin
  writeln('введите x = ');
  readln(x);
  if x>=0 then 
  y:=4*x+10
  else
  y:=8+x ;
  writeln(y)
end.

составить схему алгоритма и программу для вычисления значений фу

y=(x+a)^3*(arctg(ax)-корень квадратный из (x-a)^2 квадратный корень заканчивается +ln^2(ax^2+1))
F=sin(ax)-e^-x+ln(модуль из x-a +2)
a=0.5
b=2.5
x=2.5 и x=0.5

помогите пожалуйста

Вычислить значение функции y=min + 2* min+b, определив и использовав функцию min, которая равна минимальному числу среди вводимых:a,b.

Ну если только пожалуйста...

Program few2;
Uses crt;
Var a, b, y, min: integer;
Begin
ClrScr;
Writeln('y:= min+ 2* min+ b');
Write('Значение a: ');
Readln(a);
Write('Значение b: ');
Readln(b);
If a>b then
min:=a;
If a<b then
min:=b;
y:= min+ 2* min+ b;
Begin
If a=b then
Writeln('Невозможно найти значение...')
else
Begin
Writeln('min= ', min);
Writeln('y= ', min, '+ 2* ', min, '+ ', b);
Writeln('Y= ', y);
End;
End;
Readln;
End.

var a,b,y:integer;function

var a,b,y:integer;
function K(var a1:integer;b1:integer):integer;
var min:integer;
begin
min:=0;
if(a1<b1) then
min:=a1
else if (a1>b1) then
min:=b1;
writeln(min);
K:=min;
end;
begin
write('a,b=');
read(a,b);
K(a,b);
y:=K(a,b)+2*K(a,b)+b;
writeln('y=',y);
end.

Вычислить значения следующих выражений

Помогите пожалуйста решить

Программа на языке программирования Pasсal или C++. Вычислить значения следующих выражений. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

x=(x^3+2ax+3)/((x-1)^3) + cos x^2/(a+2)

y=(5x^3)/∛(x^2-z^2 )+sin x^2/(x-5)

програму для обчислення суми

програму для обчислення суми всіх додатніх значень функції у=х3 на проміжку від -10 до 10

Разработать алгоритм и программу вычисления

Разработать алгоритм и программу вычисления таблицы значений функции, при изменении любого одного из аргументов с определенным шагом в заданном интервале. Остальные аргументы не меняются. Значения аргумента выбирать самостоятельно из области его допустимых значений. Шаг изменения аргумента выбирать таким образом, чтобы аргумент принимал 10…20 значений в заданном интервале.
F = (корень из 7ч - А / х в квадрате + В) + у ln y в квадрате.

ПОМОГИТЕ, ПОЖАЛУЙСТА

Составьте программу для вычисления функции: у=(х,если 0=5)(2х, если x>=5) - это система.

Ответ

Program p1;
Var x,y:integer;
Bgin
ClrSxr;
WriteLn("Введите Х");
ReadLn(x);
If x<5 then
WriteLn("Решения нет");
Else 
Begin
y:=x*2;
WriteLn(y);
End;
End.
<pascal>

Добрые люди помогите!)

Составить программу вычисления В=1/y П (сверху m) (снизу n=1) sin(nx)/(n+k), m=30

Помогите решить задачу

Необходимо составить таблицу значений функции Y=sqrt(sqrX + 5X + 3) на отрезке от 0 до 4 с шагом 0,25. Таблица должна выводится на экран в два столбца с заголовком "Х" и "f(X)"

Решение:

var
  x: real;
 
begin
  x := 0;
  writeln('|    X    |    f(X)  |');
  while x <= 4 do
  begin
    writeln('|--------------------|');
    writeln('|     ', x:2:2, '|', '      ', sqrt(sqr(x) + 5 * x + 3):2:2, '|');
    x := x + 0.25;
  end;
  writeln('|--------------------|');
 
end.

Не понимаю...

Дана функция y = f(x, a). Вывести значения x и a, при которых функция имеет максимальное значение.
x1 ≤ x ≤ x2, x3 real
a1 ≤ a ≤ a2, a3 а – for, х – while

Составить алгоритм нахождения значения функции

Составить алгоритм нахождения значения функции p= П (сверху 5 ) ( снизу i=2 ) * ( 1-(1/i!) )^2

составить алгоритм и написать программу вычисления значений

помогите пожалуйста
составить алгоритм и написать программу вычисления значений функции: у а=4 b=8 c=2

Какой функции? У вас заданы

Какой функции? У вас заданы только коэффициенты.

Как из множества чисел n найти число с макс. кол-вом делителей?

Мы вводим число n, которое задаёт множество. Из него надо изъять такое число, которое будет иметь максимальное количество делителей.

Не понятно, по какому

Не понятно, по какому принципу одно число n задает множество чисел.

составить программу нахождения вычисления значения функции

у=2х,если х>0;у=х*х,если х<0

program ds;var

program ds;
var
 y,x:integer;
begin
readln(x);
if x>0 then у:=else 
if x<0 then y:=x*x;
writeln(y);
end.

Составить программу нахождения значения функции

Составить программу нахождения значения функции y=1/1+2x по значению аргумента

ответ

program ds;
var
 y,x:integer;
begin
readln(x);
y:=1/1+2x;
writeln(y);
end.

Program1;var x, y:

Program1;
var x, y: real;
begin
writeln('Ввести: x=');
readln(x);
y:=1/(1+2*x);
write('Ответ: y=', y)
end.

неправильно описание

неправильно описание

помогите пожалуйста!!

вычислить значение функции

y=1/sin(a-x) b y=п x<=b
y=a-tg(a-bx) x>=c

Вывести на экран все значения

Вывести на экран все значения функции y=x+5, на отрезке[-3;3].

program q;var

program q;
var x,y:integer;
begin
for x:=-3 to 3 do
begin
y:=x+5;
write(y,' ');
end;
end.

Составить программу выдачи

Составить программу выдачи значений функций sin x, sin x^2, sin 2x для двух значений аргумента.

помогите

проблема в том, что не получается задача
изображенная вот по этой ссылке: http://fotohost.kz/images/2013/10/17/Vez0D.jpg

построить таблицу значений

построить таблицу значений для функции в=а*а +1, на отрезке [1;5], с шагом о,1

Ответ

Var
V, A: real;
Begin
A := 1;
writeln ('———————————');
writeln ('| а | в |');
While A<=5 Do
Begin
writeln ('|———|—————|');
V := A*A 1;
write ('|',A:2:1,'|');
If V<9 Then write ('0');
writeln (V:2:2,'|');
A := A 0.1;
End;
writeln ('———————————');
End.

Дана функция: _ | |

Дана функция:
_
|
| x - 4, при x <= 2,
<
| x2 + 2, при x > 2.
|_

Найти значение функции (y) в диапазоне x [-10, 10].

var
    x: integer;
 
begin
    for x := -10 to 10 do begin
        if x <= 2 then
            write(x-4:4);
        if x > 2 then
            write(sqr(x) + 2:4);
    end;
 
    writeln();
 
readln;
end.