Программа на языке VBs
Известны диагонали ромба. Создайте программу, вычисляющую площадь ромба.
Откроем Блокнот, запишем программу, сохраним как тип файла vbs. Двойной щелчок запускает выполнение сценария.
Имя файла: Program.vbs
'Программа для вычисления площади ромба по длине вводимых диагоналей
a= inputbox("Введите длину диагонали a","Ввод аргумента") 'Ввод a
Do While (a="") ' Внутренний цикл проверки на наличие содержимого
MSgBox "Ничего не введено. Вводим заново" , vbCritical, "Сообщение"
a= inputbox("Введите длину диагонали a","Ввод аргумента") 'Ввод a
loop 'Конец цикла
a= csng(a) ' Преобразвание в число одинарной точности
'проверка на отрицательность или нулевую величину
If a <= 0 Then
MSgBox "Не может диагналь быть отрицательной или равняться нулю . Расчет окончен" , vbCritical, "Сообщение"
WScript.Quit ' Завершение работы скрипта
end if 'Конец условия
b= inputbox("Введите длину диагонали b","Ввод аргумента") 'Ввод b
Do While (b="") ' Внутренний цикл проверки на наличие содержимого
MSgBox "Ничего не введено. Вводим заново" , vbCritical, "Сообщение"
b= inputbox("Введите длину диагонали b","Ввод аргумента") 'Ввод b
loop 'Конец цикла
b= csng(b) ' Преобразвание в число одинарной точности
If b <= 0 Then
MSgBox "Не может диагональ быть отрицательной или равняться нулю . Расчет окончен" , vbCritical, "Сообщение"
WScript.Quit 'Завершение работы скрипта
end if 'Конец условия
'Вычисление площади
s=0.5*a*b
'Печать результата
MSgBox " Площадь ромба равна " & s
Откроем Блокнот, запишем программу, сохраним как тип файла vbs. Двойной щелчок запускает выполнение сценария.
Имя файла: Program.vbs
'Программа для вычисления площади ромба по длине вводимых диагоналей
a= inputbox("Введите длину диагонали a","Ввод аргумента") 'Ввод a
Do While (a="") ' Внутренний цикл проверки на наличие содержимого
MSgBox "Ничего не введено. Вводим заново" , vbCritical, "Сообщение"
a= inputbox("Введите длину диагонали a","Ввод аргумента") 'Ввод a
loop 'Конец цикла
a= csng(a) ' Преобразвание в число одинарной точности
'проверка на отрицательность или нулевую величину
If a <= 0 Then
MSgBox "Не может диагналь быть отрицательной или равняться нулю . Расчет окончен" , vbCritical, "Сообщение"
WScript.Quit ' Завершение работы скрипта
end if 'Конец условия
b= inputbox("Введите длину диагонали b","Ввод аргумента") 'Ввод b
Do While (b="") ' Внутренний цикл проверки на наличие содержимого
MSgBox "Ничего не введено. Вводим заново" , vbCritical, "Сообщение"
b= inputbox("Введите длину диагонали b","Ввод аргумента") 'Ввод b
loop 'Конец цикла
b= csng(b) ' Преобразвание в число одинарной точности
If b <= 0 Then
MSgBox "Не может диагональ быть отрицательной или равняться нулю . Расчет окончен" , vbCritical, "Сообщение"
WScript.Quit 'Завершение работы скрипта
end if 'Конец условия
'Вычисление площади
s=0.5*a*b
'Печать результата
MSgBox " Площадь ромба равна " & s