Іскласти програму обчислення значень функції f(x)=е^(-x )+ cos3x на відрізку [a; b] в точках xi=a+ih, де h=(b-a)/m, а=-1, в=4, м=10.

102

461

Посмотреть ответы 2

Ответы на вопрос:

boda13

Информатика

4,6(100 оценок)

Var x0, xk, dx, x: real; function f(x: real): real; begin f : = exp(-x) + cos(3 * x); end; begin write('введите промежуток и шаг ([a,b] h) '); readln(x0, xk, dx); x : = x0; writeln(' x ': 10, ' | ', ' f(x) ': 10); repeat writeln(x: 10: 3, ' | ', f(x): 10: 3); x : = x + dx; until x > xk; end. пример вывода введите промежуток и шаг ([a,b] h) -1 4 0.5 x | f(x) -1.000 | 1.728 -0.500 | 1.719 0.000 | 2.000 0.500 | 0.677 1.000 | -0.622 1.500 | 0.012 2.000 | 1.096 2.500 | 0.429 3.000 | -0.861 3.500 | -0.445 4.000 | 0.862

ilyafedoseev

Информатика

4,6(68 оценок)

Program project13; {$apptype console} var a,b,c,s,p: real; begin write('a1 = '); readln(a); write('b1 = '); readln(b); write('c1 = '); readln(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('a2 = '); readln(a); write('b2 = '); readln(b); write('c2 = '); readln(c); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s = a); readln end. примечание: программа не проверяет, существуют ли треугольники.