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

Тип работы:
Контрольная
Предмет:
Программирование


Узнать стоимость

Детальная информация о работе

Выдержка из работы

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.

ПоказатьСвернуть
Заполнить форму текущей работой