Вычисление функций

Разработка различных программ для вычисления X и Y по формуле, для вычисления интеграла, для вычисления таблицы значений функции и для вычисления элементов вектора. Составление блок-схемы программы. Ввод значений, описание переменных и условия расчета.
Краткое сожержание материала:

Размещено на

1. Составить программу для вычисления X и Y по формуле

Блок-схема

Программа для вычисления

program vqchisleniexiy; { Программа вычисления x и y }

var

x, y, a, b: real; {Описание переменных }

begin

writeln (' введите значения a и b');

readln (a,b); { Ввод исходных чисел }

x:=(exp(a)+exp(-b))/2*cos(pi*b); {Расчет x}

y:=sin(a+b)*ln(a*a/2); {расчёт y}

writeln (' x =', x,' y=', y); { Вывод результата }

end.

2. Составить программу для вычисления



Блок-схема

программа переменная функция вектор



Программа вычисления

program fynkcia; {Программа вычисления F(x)}

var

x, f: real; {Описание переменных}

begin

writeln(“Введите значение Х”);

readln (x); {Ввод значения х}

if x>1 {Условие расчёта}

then

begin

f:=sqr(sin*(2*x))-cos(x*x); {Расчёт F(x)}

writeln('F(x)=',f); {Вывод результата}

end {Конец}

else {Если иначе то}

if x<1 {Условие расчёта}

then

begin

f:=sqrt(abs(ln(x*x))+2); {Расчёт F(x)}

writeln('F(x)=',f); {Вывод результата}

end

end. {Конец}

3. Составить программу для вычисления таблицы значений функции

f(x) для x[1, 5] с шагом изменения x=0,2



если f(x)=



Блок-схема



Программа вычисления

program recheniefx;

var {Описание переменных}

x, f:real;

label 1; {Описание меток}

Begin {Начало программы}

writeln ('введите начальное значение X:');

readln (x); {Ввод данных}

1: if x<=5 {Условие расчёта}

then

begin

f:=5*sqrt(x*(x*x+x+1))*ln(abs(sin(x)/x)); {Расчёт}

writeln('F(x)=',f); {Вывод результата}

x:=x+0.2; {увеличение х на шаг}

goto 1; {Переход к условию расчёта}

end

else {иначе, конец}

end.

4. 

5. Составить программу для вычисления элементов вектора X по формуле хi = i = 3, 4, … , n

Блок-схема

Размещено на

Программа для вычисления

Program mass;

var n,i:integer;

x:array[1..100]of real;

begin

writeln('Введите n, x[1], x[2]');

readln(n,x[1],x[2]);

for i:=3 to n do

begin

x[i]:=ln(sqr(x[i-1]))-sqr(ln(abs(x[i-2])));

writeln(x[i]:8:3);

end

end.

Размещено на Allbest.ru