Помогите написать программку в паскале с подмогою вложенных циклов
Помогите написать программку в паскале с подмогою вложенных циклов
Задать свой вопрос
1 ответ
Агата Арещенкова
// PascalABC.NET
var
a,x,px,y:real;
n:integer;
begin
x:=0.1;
while xlt;=0.9 do begin
y:=0;
px:=1;
for n:=0 to 20 do begin
if xlt;=0.5 then a:=2*n
else a:=n/2;
y:=y+a*px;
px:=px*x
end;
y:=y*(sin(x)+2)/(3+cos(x));
Writeln(x:3:1,y:16:9);
x:=x+0.1
end
end.
Итог
0.1 0.129781438
0.2 0.345262649
0.3 0.710645245
0.4 1.354178828
0.5 2.557675550
0.6 1.256653741
0.7 2.716085461
0.8 6.927006600
0.9 21.970170476
var
a,x,px,y:real;
n:integer;
begin
x:=0.1;
while xlt;=0.9 do begin
y:=0;
px:=1;
for n:=0 to 20 do begin
if xlt;=0.5 then a:=2*n
else a:=n/2;
y:=y+a*px;
px:=px*x
end;
y:=y*(sin(x)+2)/(3+cos(x));
Writeln(x:3:1,y:16:9);
x:=x+0.1
end
end.
Итог
0.1 0.129781438
0.2 0.345262649
0.3 0.710645245
0.4 1.354178828
0.5 2.557675550
0.6 1.256653741
0.7 2.716085461
0.8 6.927006600
0.9 21.970170476
Ксюша Ранюшкина
а как производятся вот эти строчки? при поиске y мы умножаем вновь же y
Tamara Nefedchenkova
y:=y+a*px; y:=y*(sin(x)+2)/(3+cos(x));
Таурина
Надежда
И почему вначале берем y=0 не могли бы объяснить
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
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 причём
Геометрия.
Облако тегов