Вычисление функций
1. Составить программу для вычисления X
и Y по формуле
Блок-схема
Программа для вычисления
program
vqchisleniexiy; {
Программа вычисления x
и y }, y, a, b: real; {Описание
переменных }(' введите значения a и b');(a,b); {
Ввод исходных чисел }
x:=(exp(a)+exp(-b))/2*cos(pi*b); {Расчет
x}:=sin(a+b)*ln(a*a/2); {расчёт
y}
writeln (' x =', x,' y=', y); {
Вывод результата }.
2. Составить программу для вычисления
Блок-схема
программа переменная
функция вектор
Программа вычисления
program fynkcia; {Программа
вычисления F(x)},
f: real; {Описание
переменных}(“Введите значение Х”);(x); {Ввод
значения х}x>1 {Условие
расчёта}
then:=sqr(sin*(2*x))-cos(x*x); {Расчёт
F(x)}('F(x)=',f); {Вывод
результата}
end {Конец}
else {Если
иначе то}
if x<1 {Условие
расчёта}:=sqrt(abs(ln(x*x))+2); {Расчёт
F(x)}('F(x)=',f); {Вывод
результата}
end. {Конец}
. Составить программу для вычисления
таблицы значений функции
f(x) для x
[1, 5] с
шагом изменения x=0,2
Блок-схема
Программа вычисления
program
recheniefx;
var {Описание
переменных}
x, f:real;
label 1; {Описание
меток} {Начало
программы} ('введите начальное значение X:');
readln (x); {Ввод
данных}
: if
x<=5 {Условие
расчёта}
then:=5*sqrt(x*(x*x+x+1))*ln(abs(sin(x)/x)); {Расчёт}('F(x)=',f); {Вывод
результата}
x:=x+0.2; {увеличение
х на шаг}1; {Переход к условию расчёта}
end {иначе,
конец}.
4.
5. Составить программу для
вычисления элементов вектора X по формуле хi = 
i = 3, 4, … ,
n
Блок-схема
Программа для вычисления
Program
mass;
var n,i:integer;:array[1..100]of
real;('Введите
n, x[1], x[2]');(n,x[1],x[2]);i:=3 to n
do[i]:=ln(sqr(x[i-1]))-sqr(ln(abs(x[i-2])));(x[i]:8:3);.