|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.03.2009, 19:43 | #1 |
Пользователь
Регистрация: 02.03.2009
Сообщений: 24
|
Задача - Определить, какая из двух фигур – круг или квадрат – имеет большую площадь.
Определить, какая из двух фигур – круг или квадрат – имеет большую площадь. Из-вестно, что сторона квадрата имеет длину а, радиус круга – r. Вывести название и значение площади большей фигуры.
|
03.03.2009, 21:24 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Вы читали правила форума?
С такими задачами вам путь в раздел Помощь студентам... А с таким названием тема уже давно должна быть закрыта. Хорошо, я смотрю, Вы тут устроились - уже даже вопросов не задаёте. Просто скидываете условие задачи, и всё - пусть умные дяди сами думают, что и как сделать... |
03.03.2009, 21:26 | #3 |
Пользователь
Регистрация: 02.02.2009
Сообщений: 59
|
Формула длинная, поэтому посмотрите прикрепленный файл. Именованные формулы.
С уважением, Александр. Последний раз редактировалось Sh_Alex; 03.03.2009 в 21:39. |
03.03.2009, 21:31 | #4 | |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Цитата:
Лучше день потерять — потом за пять минут долететь!©
|
|
03.03.2009, 21:52 | #5 | |
Пользователь
Регистрация: 02.03.2009
Сообщений: 24
|
Цитата:
Sh_Alex, Вы скинули как сделать через Ексел, а мне нада функция в ВБА, которая всё будет это подсчитывать. Public Sub prog() Dim r As Double, s As Double, a As Double r = Val(InputBox("Введите r")) Pi = 3.14 s = Pi * r * r a = Val(InputBox("Введите a")) s = A2 вот функция на нахождения площади круга и площади квадрата, А вот как вывести название и значение площади большей фигуры - без понятий - помогите |
|
03.03.2009, 22:36 | #6 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Ну это хоть что-то. Держите, юноша.
Код:
Лучше день потерять — потом за пять минут долететь!©
|
03.03.2009, 23:33 | #7 |
Пользователь
Регистрация: 02.03.2009
Сообщений: 24
|
IIf(Pi * r ^ 2 > a ^ 2, "Площадь круга больше. Она равна " & Round(Pi * r ^ 2, 2), "Площадь квадрата больше. Она равна " & Round(a ^ 2, 2)) - Что здесь означает это IIf , Round?
vbOKOnly + vbInformation - что это значит? п.с. viter.alex, спасибо тебе огромное за помощь |
05.03.2009, 11:36 | #8 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Неужели трудно прочитать справку?
IIf — это Immediate If, т.е. мгновенный If. Синтаксис записи такой: Код:
vbOKOnly определяет, что в сообщении нужно показать только кнопку OK, а vbInformation — показывает в сообщении слева значок с облачком и буквой i
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 05.03.2009 в 11:56. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
какая база данных имеет расширение .adb | студентка | Софт | 2 | 02.10.2009 12:30 |
Как определить, какая кнопка нажата? | Paul Hindenburg | Компоненты Delphi | 1 | 19.02.2009 23:15 |
как написать в excel квадрат или куб числа? | BEYLERBEYİ2009 | Microsoft Office Excel | 16 | 17.02.2009 16:18 |
Задача на большую строку | Witaliy | Помощь студентам | 4 | 10.02.2009 18:26 |
Найти площадь треугольник (задача в делфи) | YO$YA | Помощь студентам | 5 | 19.11.2008 21:29 |