(паскаль) Помогите исправить ошибки в программеProgram QWE; var a,b,y…

Задание:

(паскаль) Помогите исправить ошибки в программеProgram QWE; var a,b,y,x: real; k: integer; beginreadln (a,b); k: =0; if a*a3; end; if k=0 thenend. Условие задачи: Если A^2B^2, вычислить значение функции y=sinx+0,12, где x изменяется на интервале от 1 до 3 с шагом 0,2. Подсчитать количество отрицательных значений функции.

Решение:

var a, b, y, x: real; k: integer; begin readln (a, b); k: =0; if a*a=b*b then writeln ('a*a=b*b'); if a*a > b*b then begin x: =1; repeat y: =sin (x)+0,12; if y < 0 then k: =k+1; x: =x+0,2; until x > 3; end; writeln ('Y=', y); writeln ('Кол-во отрицательных значений функции: ', k); end.

Знаете другой ответ?

Отправить свой ответ