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.