Напечатать таблицу значений функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде ( с циклом for, ): (( 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950 1.0000 0.8415 0.5403 заранее

173

299

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

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

диана2294

Информатика

4,5(47 оценок)

Var x: integer; begin writeln('x sin(x) cos(x)'); for x: = 0 to 10 do writeln((x/10): 0: 4,' ',sin(x/10): 0: 4,' ',cos(x/10): 0: 4); end.

sashamissmalevozgk56

Информатика

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

Var a,b,c: integer; d,x1,x2: real; beginwriteln('введите a'); readln(a); writeln('введите b'); readln(b); writeln('введите c'); readln(c); d: =sqr(b)-4*a*c; if (d> 0) thenbeginx1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); writeln('дискриминант больше нуля= ',d); writeln('x1= ',x1); writeln('x2= ',x2); end; if (d=0) thenbeginx1: =-b/(2*a); writeln('d=0'); writeln('x1,2= ',x1); end; if (d< 0) then writeln('корней нет! '); end.