Регистрация Вход · Почистить куки
Страницы: 1
RSS
Помогите с Basic-ом
Сразу хочу извинится , что вопрос,а точнее просьба, не относятся к моделизму,но все же прошу у вас помощи.Кто "шарит" в программировании в Basic-е , нужна ваша помощь,даже очень...
Необходимо следующее: Составить программы описывающие алгоритмы решения задач:
1.Нахождения объема цилиндра.Радиус- R, высота- h.
2.Нахождение площади кольца образованного двумя окружностями с радиусами R1 и R2.
3.Нахождение наименьшего,наибольшего и занимающего среднее значение из 3 чисел.
P.s.Заранее спасибо!!!
Первая здесь  http://www.studfiles.ru/dir/cat32/subj1259/file11619/view104737.html
Огромное спасибо!!!Остались еще две задачки))
Третья частично:
Определение наибольшего из 3 чисел

Ввод исходных данных
INPUT "Введите А,В,C ", a, b, c

Вычисление MAX
IF a > b THEN
           max = a
        ELSE
           max = b
END IF
IF c > max THEN max = c

Вывод результатов
PRINT "A="; a, "B="; b, "C="; c
PRINT "MAX="; max
END
Определение наименьшего из 3 чисел
Ввод исходных данных
INPUT "Введите А,В,C ", a, b, c

Вычисление MAX
IF a < b THEN
           min = a
        ELSE
           min = b
END IF
IF c < min THEN min = c

Вывод результатов
PRINT "A="; a, "B="; b, "C="; c
PRINT "MIN="; min
END
Вторая здесь  http://borland.ru/mathemat/ploshad-kolca/
Михаил,огромное вам спасибо за помощь!!!Я уже отчаялся, а тут вы и коллега с другого форума!Еще раз большое спасибо!!!! :)}}}
вообще, на любом языке меньшее большее и среднее определяется одинаково.
для начала за большее принимаем какое то число, потом сравниваем со вторым, если второе больше, то оно становится бОльшим. далее сравниваем второе с третьим, если третье больше, то оно становится вторым, и сравниваем первое и второе также, а если третье не больше, то выводим результат.
пузырьковая перестановка - это самый простой вариант
Изменено: zachem_A - 22.12.2012 18:36:07
А не могли бы с такой задачкой помочь: Даны два целых числа: А, В. Проверить, верно ли утверждение: «Каждое из чисел А и В нечетное". Заранее спасибо и если можно напишите полный код.
если на бэйсике, то код я написать не смогу, ибо тупо не помню бэйсик, но вообще алгоритм такой: число делится нацело на 2, если остаток от деления = 0, то число четное, если нет, то нечетное
input "Введите A, B", a, b

if (a/2 != cvar(cint(a/2))) and (b/2 != cvar(cint(b/2))) then print "Оба числа чётные"
else print "Одно из чисел или оба - чётные"


Подробней о предпоследней непонятной строчке.

Изначально обе переменных типа variant, т.к. тип не был указан явно, и могут хранить и целые и дробные значения.
Значение операции a/2 остаётся типа variant, может оказаться дробным.
cint(a/2) - округляем значение деления, избавляясь от дробной доли при её наличии.
cvar(cint(a/b)) - приводим обратно к variant, чтобы сравнивать значения одного типа.

a/2 будет иметь целое значение только если a - чётное.
cint(a/b), а с ним и cvar(cint(a/b)) будет иметь целое значение в любом случае.
Соответственно, если a нечётное, то (a/2 != cvar(cint(a/2)))

Абсолютно аналогично для b.
В конце концов проверяем, чтобы обе переменных были нечётными:
if (a/2 != cvar(cint(a/2))) and (b/2 != cvar(cint(b/2)))
Удача сопутствует дерзким
Страницы: 1


«В небе над сакурой» — интернет-магазин сборных моделей

Реклама на Каропке
Не показывать чат