34

Ребят, помогите перевести данный код на язык Visual Basic Program…

andreaskotin 12 августа 2022

Ребят, помогите перевести данный код на язык Visual Basic Program prim; Var a,r,s1,s2: real; BeginWrite ('введите площадь круга и квадрата'); Readln (s1, s2); A: =sqrt (s2); R: =sqrt (s/3,14); If (r (4*r) then writeln ('квадрат уместится в круге') Else Writeln ('квадрат не уместится в круге'); ReadlnEnd.


93

Известны площадь круша и квадрата. Определить: Уместится ли круг в квадрате и уместиться ли квадрат в круге что ли?

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике
12 августа 2022
(Время: 1 сек. Память: 16 Мб Сложность: 28%) Сложно найти человека, который любит решать однообразные задачки по математике. В последнее время школьникамстало легче, ведь с появлением компьютеров почти в каждой квартире стало существенно проще проверять себя. Но программы, в которых решение уравнений является стандартной функцией, установлены не везде. Напишите программу, которая сможет решить уравнениеax2+bx+c=0 при заданных коэффициентах a, b и c. Входные данныеЕдинственная строка входного файла INPUT.TXT содержит три целых числа a, b и c, каждое из которых не превосходит по модулю 30000. Числа разделяются пробелами. Выходные данныеНа первой строке выходного файла OUTPUT.TXT выведите число действительных корней заданного уравнения. Затем выведите сами корни по одному на строке с ошибкой, не превосходящей 10-4. Если для заданных коэффициентов корней бесконечно много, на единственной строке выходного файла выведите -1. Примеры№INPUT.TXTOUTPUT.TXT11 -3 221,0000002,00000020 -1 616,000000

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...