Question

Составить программу QBasiq Спортсмен в первый день пробежал 10 км.Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.Какой путь он пробежит в N день?

Answer 1

Km=10
PRINT "Введите количество дней: "
INPUT n
FOR i=2 TO n
km=km+((km*10)/100)
NEXT i
PRINT "Количество км: "
PRINT INT(km)

Answer 2

Программа в QBasiq для вычисления пройденного пути спортсменом

Для составления программы в QBasiq, которая будет вычислять пройденный путь спортсменом в N-ый день, мы можем использовать цикл и формулу для увеличения дневной нормы на 10% каждый день.

Вот пример программы на QBasiq:

DECLARE day AS INTEGER
DECLARE distance AS FLOAT
DECLARE norm AS FLOAT

day = 1
distance = 10
norm = 10

PRINT "Введите номер дня (N): "
INPUT N

FOR day = 2 TO N
    norm = norm + (norm * 0.1)
    distance = distance + norm
NEXT day

PRINT "Пройденный путь в " + STR$(N) + "-ый день: " + STR$(distance) + " км"

В этой программе мы используем переменные `day` для отслеживания текущего дня, `distance` для отслеживания пройденного пути и `norm` для отслеживания дневной нормы.

Программа начинает с первого дня, где спортсмен пробежал 10 км. Затем, с помощью цикла `FOR`, мы увеличиваем дневную норму на 10% каждый день, используя формулу `norm = norm + (norm * 0.1)`. Затем мы добавляем эту норму к пройденному пути `distance`.

После завершения цикла, программа выводит пройденный путь в N-ый день.

Пример работы программы:

Введите номер дня (N): 5 Пройденный путь в 5-ый день: 61.05 км

Примечание: Обратите внимание, что в программе используется функция `STR$()`, чтобы преобразовать числа в строки для вывода на экран.