Вопрос по информатике:
Помогите перевести из 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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.09.2018 18:29
- Информатика
- remove_red_eye 10451
- thumb_up 34
Ответы и объяснения 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
- 20.09.2018 05:46
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.