Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
 y := Func(i);
 if y>0 then
 sum := sum + y;
 i := i + H;
end;
end.

0 0

4 года назад

в чем отличие дисков CD-ROM.CD-RW .CD-R?

RazerR [230]

CD-RW - многоразовый диск. Т.е. можно бесконечное кол-во раз записывать и удалять данные с него. Минусы: может посадить лазерную головку в дисководе.

CD-R - одноразовый диск. Если запишешь ЛЮБУЮ информацию, больше уже ничего не сможешь записать или удалить с этого диска.

CD-ROM это тип дисков, всключает в себя CD-RW и CD-R диски.

P.s. Если Вы отметите любое решение как "Лучшее", то к Вам вернётся 25% потраченных пунктов на это Задание :)

0 0

1 год назад

Помогите решить задачу на С++ Дано натуральное число nn. Требуется найти его разложение на простые множители. Формат входных дан

Мальчиш Кибальчиш [24]

//////////////////////////////////////////////

0 0

4 года назад

Правильно ли составлен код к блок схеме, visual basic

Безупречная любовь [5.1K]

Да , т. К. Нужно было подставить по формуле , что сделано правильно!!

0 0

3 года назад