Вывести на экран таблицу вычисленных значений Y при изменении Х в интервале [0,1 ÷1,7] с шагом h=0.2, а = 0,2 по соответствующим формулам: — Pascal(Паскаль)

y= { a lg x +3^корень Sin(x) при х > 1
{ 2a cos x +e^x при x<=1

uses crt;
var x,y,a,h:real;
begin
writeln('Введите h,a');
readln(h,a);
x:=0.1;
while x<=1.7 do
begin
    if x>1 then y:=a*(ln(x)/ln(10))+exp(ln(3)*sqrt(sin(x)))
    else y:=2*a*cos(x)+exp(x);
    write('При х=',x:4:1,' y=',y:5:3);
    writeln;
    x:=x+h;
end;
end.

Leave a Comment

8 + 1 =