Предмет:
ИнформатикаАвтор:
Геворгprogram cikl_3;
uses
ctr;
var
y,x,a,b,dx,s : real;
I,n : integer;
begin
clrscr;
writeln(‘Введите a,b,n’);
readln(a,b,n);
{шаг изменения аргумента}
dx:=(b-a)/(n-1);
s:=0;
x:=a;
for i:=1 to n do
begin
y:=(1-exp(-x)) * sin(4*pi*x);
writeln(‘y=’,y:8:3);
x:=x+dx;
if y>0 then s:=s+y;
end;
writeln(‘Сумма положительных значений s=’,s:8:3);
readln;
end.
Автор:
Fedoseewa27Добавить свой ответ
Предмет:
МатематикаАвтор:
dauirbudaОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
ПрпрпрОтветов:
Смотреть
Предмет:
Русский языкАвтор:
Настя656Ответов:
Смотреть
Предмет:
МатематикаАвтор:
DeaddAMОтветов:
Смотреть