Журналист
Иеремия 24 октября 2019 в 08:28

Помогите перевести из 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("Введите agt;=1:")

If a lt; 1 Then
    MsgBox ("Ошибка: àlt;1")
Else
    If (1 / a) gt; Sin(a) Then MsgBox ("1/a больше, чем sin(a)")
End If
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте