Задание:
Составить программу вычисления функции на языке паскаль (a+b) / (e^-x+Sin (x) T={ (a+b) / (x+1) e^-x+Sin (x) условие: x<2,8; 2,8 <= x<6; x>=6 исходные данные: a=2,1; b=-0,29 шаг изменения: x принадлежит [0; 7]; дельта x=0,5
Решение:
program lol; vara,b,x: real; shag: real; T: real; beginShag: =0,5; a: =2,1; b: =-0,29; x: =0; While x <= 7 dobeginIf x<2,8 thenT: =(a+b) /exp (-x)+sin (x); If (2,8 <= x) and (x<6) thenT: =(A+B) / (x+1); If X>=6 thent: =exp (-x)+Sin (X); Writeln ('при Х=',x,' T=',t: 4:2); X: =x+shag; end; end. Надеюсь помог. Если что нетак пиши
Знаете другой ответ?