Question

составить программу на языке qbasic "запуск космического корабля" помогите срочно надо

Answer 1

  1. 
Составить структурную схему алгоритма и программу на языке Qbasic для вычисления f:
a=-1
b=4
f1(x) x<a
f2(x) a<=x<b
f3(x) x>=b
f1(x)=(a-x)/(2+3x^2) ; f2(x)=(a+b)x-x^2-ab; f3(x)=(b-x)/(5+x^2)
2. 
Составить структурную схему алгоритма и программу на языке Qbasic
m=17
задание на программирование: составить программу вычисления m значений переменной Xk по рекурентной формуле 
Xk=(далее выражение под корнем)2*(Xk-1)^2-7(Xk-1)+9
для k=1,2,3,...,m
3.
Составить структурную схему алгоритма и программу на языке Qbasic 
a=4
b=12
Задание на программирование:
диффиренциал от a до b x^2*bx
4.
Составить блок схему алгоритма и программу на языке Qbasic при решении диффиренциального уравнения методом Эйлера:
(dy/dt)*2y+t=0
при y0=25; t0=0; tk=30; n=30
5.
Составить программу для вычисления основных статистических показателей выработки 2^x попарносвязанный значени x и y. РАсчитать основные статистические показатели для выработки:
x y
23 8
21 9
20 10
7 18
2 1
13 6  

Answer 2

К сожалению, я не могу предоставить полную программу на языке QBasic для "запуска космического корабля", так как задача довольно абстрактна, и требуется больше деталей. Однако я могу предложить вам основную структуру программы, которую вы можете использовать в качестве отправной точки и дополнить ее в соответствии с вашими потребностями.

SCREEN 12  ' Устанавливаем графический режим (режим экрана)

DO
    CLS  ' Очищаем экран

' Рисуем космический корабль (пример)
    CIRCLE (320, 240), 20, 14  ' Корпус корабля
    LINE (320, 240)-(370, 240), 14  ' Передняя часть корабля
    LINE (320, 240)-(300, 220), 14  ' Левая часть корабля
    LINE (320, 240)-(340, 220), 14  ' Правая часть корабля

' Обновляем экран
    SLEEP 50  ' Задержка для плавной анимации

' Перемещение корабля (пример)
    IF INKEY$ <> "" THEN
        SELECT CASE INKEY$
            CASE "a"
                ' Двигаем корабль влево
                x = x - 5
            CASE "d"
                ' Двигаем корабль вправо
                x = x + 5
            CASE "w"
                ' Двигаем корабль вверх
                y = y - 5
            CASE "s"
                ' Двигаем корабль вниз
                y = y + 5
        END SELECT
    END IF

' Очищаем экран перед следующим кадром
    CLS

LOOP UNTIL INKEY$ = CHR$(27)  ' Выход при нажатии клавиши Esc

Это базовая программа, которая создает простой графический интерфейс с космическим кораблем, который можно управлять с помощью клавиш "a", "d", "w", "s". Вы можете доработать программу, добавив более сложные элементы, такие как анимации, звуковые эффекты, обработку столкновений и т. д. в зависимости от ваших конкретных требований.