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

Информатика

Тора

25 августа, 13:10

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

+1

Ответы (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.