Для заданных X и Y вычисляются значения функции Z=cos (N*X+Y), N = 1, 2, … 30 , записать в массив В значения N, при которых Z больше 0, а в массив C значения N, при которых . Результат распечатать в виде: Исходный массив: Чис...
Для заданных X и Y вычисляются значения функции Z=cos (N*X+Y), N = 1, 2, … 30 , записать в массив В значения N, при которых Z > 0, а в массив C значения N, при которых . Результат распечатать в виде:
Исходный массив:
Число элементов:
X = Y =
Массив В: Массив С:
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1200
begin
var b := new System.Collections.Generic.List();
var c := new System.Collections.Generic.List();
var x := ReadReal('x =');
var y := ReadReal('y =');
for var n := 1 to 30 do
begin
var z := cos(n * x + y);
if z > 0 then b.Add(n);
if z < 0 then c.Add(n);
end;
Println('X=' + x + ' Y=' + y);
Println('Массив В:', b);
Println('Массив C:', c);
end.
Не нашли ответ?
Похожие вопросы