Написать программу на паскале: вычислить 15 значений функции y=2-sin x из диапазона [pi/4, pi/2]

300

500

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

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

ArbuzovAndrey

Информатика

4,4(76 оценок)

Const pi=3.14159265; n=15; var a,b,h,x,y: real; begin a: =pi/4; b: =pi/2; h: =(b-a)/(n-1); x: =a; while x< =b+h/2 do { h/2 - компенсация накопления погрешности } begin y: =2-sin(x); writeln(x: 7: 5,y: 8: 5); x: =x+h end end. результат выполнения программы: 0.78540 1.29289 0.84150 1.25436 0.89760 1.21817 0.95370 1.18444 1.00980 1.15328 1.06590 1.12478 1.12200 1.09903 1.17810 1.07612 1.23420 1.05612 1.29030 1.03908 1.34640 1.02507 1.40250 1.01413 1.45860 1.00629 1.51470 1.00157 1.57080 1.00000

Alys1

Информатика

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

P,g i: integer; writeln('придумайте пароль'); readln(p); writeln('введите пароль'); readn(g) for i: =5 do if (g=p) then begin writeln('пароль верный'); break else writeln('пароль неверный')