Задачи в Qbasiс
1. Вычислите сумму квадратов N четных натуральных чисел.
2. В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?

Задание 1
$/displaystyle S=/sum_{i=1}^n(2i)^2=/sum_{i=1}^n4i^2=4/sum_{i=1}^ni^2$

INPUT "n=", n
s = 0
FOR i = 1 TO n
s = s + i ^ 2
NEXT i
PRINT 4 * s

Задание 2
10 минут - это 1/6 часа и суммировать дроби, в знаменателе которых число 6, означает накапливать погрешности представления нецелых чисел в ЭВМ. Поэтому расчеты лучше делать в минутах, а результат потом перевести в часы.
Получаем сумму S=60М+(60М+10)+(60М+20)+...+[60М+10*(N-1)]
$/displaystyle S= /underbrace{60M+(60M+10)+/cdots+(60M+10(N-1))}_N= // 60NM+/underbrace{10+20+/cdots+10N-10}_{N-1}= // 10(6NM+/underbrace{2+3+/cdots+N}_{N-1})=10(6NM+ /frac{N(N-1)}{2})= // 60NM+5N(N-1)=5N(12M+N-1)$

INPUT "M,N=", m, n
PRINT 5 * n * (12 * m + n - 1) / 60

Вот такие получаются короткие программы, если сначала думать, а потом писать.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Найти другие ответы