Помогите перевести из Turbo Pascal в Visual basic var a: real; begin Write('Введите a больше =1:'); Readln(a); if a меньше 1 then Writeln('Ошибка: а меньше 1') else begin if 1/a больше sin(a) then Writeln('1/a...
Помогите перевести из Turbo Pascal в Visual basic
var
a: real;
begin
Write('Введите a>=1:'); Readln(a);
if a<1 then Writeln('Ошибка: а<1')
else begin
if 1/a>sin(a) then Writeln('1/a больше, чем sin(a)');
if 1/a end;
Readln;
end.
Гость
Ответ(ы) на вопрос:
ГостьDim a As Double
a = InputBox("Введите a>=1:")
If a < 1 Then
MsgBox ("Ошибка: à<1")
Else
If (1 / a) > Sin(a) Then MsgBox ("1/a больше, чем sin(a)")
End If
Не нашли ответ?
Похожие вопросы