Рассмотри код программы которая определяет простые число или нет и выводит на экран сообщение. Исправь ошибки так что бы программа стала работать правильно. В ответ запиши только исправленные строки. Рассмотри текст программы дополните пустые фрагменты и заполните таблицу трассировки. 2 задание по возможности ответы не по теме бан!
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.
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