Помогите перевести из 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.

Question

Информатика

Муля

10 мая, 18:43

Помогите перевести из 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.

+5

Ответы (1)

Знаете ответ на вопрос?

Милий · Answer 1

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

Помогите перевести из Turbo Pascal в Visual basicvara: real;beginWrite ('Введите a>=1:') ; Readln (a) ;if a<1 then Writeln ('Ошибка: а<1')else beginif 1/a>sin (a) then Writeln ('1/a больше, чем sin (a) ') ;if 1/a end;Readln;end.

Помогите перевести из 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.