(паскаль) Помогите исправить ошибки в программеProgram QWE;var a,b,y,x:real;k:integer;beginreadln(a,b);k:=0;if a*a меньше b*b then writelnelseif a*a=b*b then writeln('a*a=b*b')elsebeginx:=1repeaty:sin(x)+0.12;if y меньше 0 then...
(паскаль) Помогите исправить ошибки в программе
Program QWE;
var a,b,y,x:real;k:integer;
begin
readln(a,b);k:=0;
if a*a3;
end;
if k=0 then
end.
Условие задачи:Если 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.
Не нашли ответ?
Похожие вопросы