помогите составить программу!пожалуйста!!!!ооочень надо
10-11 класс
|
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Решение на VB
Sub Rocket()
Dim x As Single
x = InputBox("Введите скорость ракеты в км/с")
Select Case x
Case Is < 7.91
MsgBox "Ракета упадет на Землю"
Case 7.91
MsgBox "Ракета будет вращаться вокруг Земли по круговой орбите"
Case Is < 11.2
MsgBox "Ракета будет вращаться вокруг Земли по эллиптической орбите"
Case Is < 16.4
MsgBox "Ракета будет способна перемещаться в пределах Солнечной системы"
Case Else
MsgBox "Ракета покинет Солнечную систему"
End Select
End Sub
var v:real;
begin
write('Введите скорость в км/c: ');
readln(v);
if v<7.9 then
writeln('Ракета упадет на Землю');
if v=7.9 then
writeln('Ракета будет двигаться вокруг Земли по круговой орбите');
if (v>7.9) and (v<11.2) then
writeln('Ракета будет двигаться вокруг Земли по эллиптической орбите');
if v=11.2 then
writeln('Ракета будет двигаться вокруг Солнца по круговой орбите');
if (v>11.2) and (v<16.4) then
writeln('Ракета будет двигаться вокруг Солнца по эллиптической орбите');
if v>16.4 then writeln('Ракета покинет Солнечную систему');
end.
Потому что 16.4 это в км/с!
в задании написано км.час
Вранье! При 16,4 км/ч ракета взлетит даже с Земли!! Это скорость велосипеда!
ну может опечатка,а если в секунду
программу то можно составить?
Другие вопросы из категории
Вычислить сумму элементов каждой строки, вводимого С КЛАВИАТУРЫ ДВУМЕРНОГО массива. Обязательно с клавиатуры. Напишите программу пожалуйста.
Читайте также
(X1,Y1)(X2,Y2)(X3,Y3)(X4,Y4)(X5,Y5) соответственно. Найти площадь этого пятиугольника используя в качестве подпрограммы a) функцию
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.
2. Составить программу для упорядоченное двух элементов по убыванию.
возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .