Вычислить значения z, подходящие каждому значению x (xn=amp;lt;x=amp;lt;xk, шаг конфигурации x
Вычислить значения z, соответствующие каждому значению x (xn=lt;x=lt;xk, шаг изменения x равен dx) по формуле z=sin(cos(x)).Найти сумму значений zgt;x и произведение z=lt;x.На экран выводить каждую третью пару значений x и z.Контрольный расчёт провести при xn=-3.14,xk=-3.14,dx=0.314.
// DELPHI
1 ответ
Кирилл
Консольное приложение:
program P;
APPTYPE CONSOLE
uses Windows, SysUtils;
var xn,xk,dx,x,z,s,p:real; i:integer;
begin
readln(xn,xk,dx);
x:=xn-dx;
s:=0; p:=1;
for i:=1 to round((xk-xn)/dx)+1 do
begin
x:=x+dx;
z:=sin(cos(x));
if zgt;x then s:=s+z else p:=p*z;
if i mod 3=1 then writeln(i,' ',x:5:3,' ',z:7:5);
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
-3.14 3.14 0.314
1 -3.140 -0.84147
4 -2.198 -0.55377
7 -1.256 0.30470
10 -0.314 0.81406
13 0.628 0.72374
16 1.570 0.00080
19 2.512 -0.72309
s = 1.542042441906335e+00 p = -1.119447732428404e-05
program P;
APPTYPE CONSOLE
uses Windows, SysUtils;
var xn,xk,dx,x,z,s,p:real; i:integer;
begin
readln(xn,xk,dx);
x:=xn-dx;
s:=0; p:=1;
for i:=1 to round((xk-xn)/dx)+1 do
begin
x:=x+dx;
z:=sin(cos(x));
if zgt;x then s:=s+z else p:=p*z;
if i mod 3=1 then writeln(i,' ',x:5:3,' ',z:7:5);
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
-3.14 3.14 0.314
1 -3.140 -0.84147
4 -2.198 -0.55377
7 -1.256 0.30470
10 -0.314 0.81406
13 0.628 0.72374
16 1.570 0.00080
19 2.512 -0.72309
s = 1.542042441906335e+00 p = -1.119447732428404e-05
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов