program ExampleN;
uses Math; // объявление математических функций для вашей версии паскаля
var
a, b, d, s, y1, y2, x: Double;
begin
Write ('Введете границы отрезка: ');
ReadLn (a, b);
s := 0;
d := (b - a) / 10; // длина 1/10 отрезка
x := a + d / 2; // начальное значение Х = левая граница + половина отрезка (середина основания)
while x < b do begin // цикл по всей длине отрезка
y1 := Sqr (x);
y2 := 5 + x / 2;
s := s + Abs (y1 - y2) * d; // расчет площади прямоугольника и суммирование
x := x + d; // увеличение Х на 1/10 отрезка
end;
WriteLn ('Площадь = ', s :20 :10);
ReadLn;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Передача данных через adsl-соединение заняла 2 минуты. за это время был передан файл, размер которого 3 750 кбайт. определите минимальную скорость (бит/c), при которой такая передача возможна.
2 минуты = 120 секунд
Значит, 3750КБайт = 30000000Бит
Значит скорость соединения была:
30000000:120 = 250000Бит/с