Помогите пожалуйста - это Паскаль, напишите программу))
Answers & Comments
HRAshton
Const a = 5.8; Pi = 3.14;var x, y, k, P, S, t: real;begin t := sqrt(sin(x - 4)); x := -3; while (x <= 3) do begin if (t < 5) then y := sin(Pi / 2 + x) / cos (Pi / 2 - x) else y := Ln(a + x) / Power(a, 2); if (y < 0) then k := k + 1; writeln('x = ', x, '; y = ', y); x := x + 0.5; end; if (t >= 0) then begin P := P * t; {Сюда вставить нужно вычисление S, я не понял, что значит тот знак:)} end; Writeln('k = ', k, '; P = ', P, '; S = ', S); end.
0 votes Thanks 0
sanino1023
Где ln и sin там стоят скобочки тот символ - это сумма
Answers & Comments
x := x + 0.5;
end;
if (t >= 0) then
begin
P := P * t;
{Сюда вставить нужно вычисление S, я не понял, что значит тот знак:)}
end;
Writeln('k = ', k, '; P = ', P, '; S = ', S);
end.
тот символ - это сумма