profile
Опубликовано 5 лет назад по предмету Информатика от ahtyamovaelina

задача по теме "итерационные циклы"
под корнем 2+sinx /(без корня)x+cosx
Хнач.=0,2  Хкон.=1 S=0,2

  1. Ответ
    Ответ дан preceptor
    Program Zadacha;
    Const Xmin = 0.2; Xmax = 1; S = 0.2;
    Var fx, x: Real;
    i: Integer;
    Begin
    x := Xmin;
    i := 0;
    While x <= Xmax Do
    Begin
    fx := Sqrt(2 + Sin(x)) / (x + Cos(x));
    x := x + S;
    i := i + 1;
    WriteLn('f(x', i, ') = ', fx:5:5);
    End;
    ReadLn;
    End.