uses GraphABC;
var i,x:integer;
begin
SetWindowWidth(870);
SetWindowHeight(325);
SetFontSize(15);
TextOut(350,5,'Продолжительность жизни животных');
TextOut(15,200,'Белка 6');
TextOut(15,150,'Заяц 8');
TextOut(15,175,'Жираф 12');
TextOut(15,225,'Бегемот 40');
TextOut(15,100,'Медведь 45');
TextOut(15,75,'Слон 70');
TextOut(15,125,'Крокодил 80');
TextOut(15,50,'Черепаха 130');
SetFontSize(10);
TextOut(200,270,' 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 105 110 115 120 125 130');
SetBrushColor(clblack);
SetPenWidth(2);
Rectangle (200,220,230,200);
Rectangle (200,170,240,150);
Rectangle (200,195,260,175);
Rectangle (200,245,400,225);
Rectangle (200,120,425,100);
Rectangle (200,95,550,75);
Rectangle (200,145,600,125);
Rectangle (200,70,850,50);
Line (200,0,200,325);
Line (0,260,870,260);
x:=225;
for i:=1 to 27 do
begin
Line (x,255,x,265);
x:=x+25
end
end.
Объяснение:
картинка
1) Сделай функцию, которая считает
член выражения.
2) Сделай функцию, которая будет иметь 1 цикл, в котором будет считаться эта функция с метода из класса Math, сумма n элементов, сумма элементов которые больше е, сумма элементов которые больше е / 10.
В цикле будут два условия: (i <= n || Math.abs(an) > e), где an - n-ый член ряда. an считается в отдельной функции.
Как посчитать an у тебя написано в условии таска.
В конце ты должен вывести значение функции посчитанной методом класса Math, сумму n элементов ряда, сумму элементов ряда, которые больше е и сколько таких элементов, которые больше е, сумму элементов, которые больше е / 10 и сколько таких элементов, которые больше е.
P.S. Привет Соломатину.
Не знаю, что такого сложного в этом таске.
Спросил бы одногруппников, которые сдали 6 таск или хотя бы приступили к нему.
Не знаю, что ты будешь делать, когда начнёшь писать 7 или 8.... Удачи!
P.P.S. Соломатин пока не знает. Ещё раз увидим, что ты попытаешься списать таск, мы ему покажем это.