Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Parenek
1

Определить город, в котором стоимость 1 кв. метра минимальная

28.02.2012, 20:56. Просмотров 1164. Ответов 1
Метки нет (Все метки)


Здравствуйте! Передо мной встал вопрос о решении задачи в системе VBA. Но возникли трудности, я попросту не знаю как написать код и блок схему.

Условие таковы:
По результатам продажи жилья за полгода администрацией области получена следующая информация:

Город: Кемерово
Кол-во проданных квартир: 634
Кол-во кв.м: 62800
Сумма от продажи (тыс.руб0 - 6781.70

Напечатать исходные данные в виде таблицы и определить город, в котором стоимость 1 кв.метра минимальная.

Помогите пожалуйста. Начала та знаю как делать. а вот дальше ступр.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2012, 20:56
Ответы с готовыми решениями:

Определить город, в котором разница между температурой воздуха и воды минимальная
У массиве Tair(10) хранится информация про средние арифметические значения температуры воздуха в...

Определить стоимость бензина, затраченного на поездку в другой город
1)Стоимость бензина , затраченного на поездку в другой город. 2)Дано натуральное число n. Поменять...

Массив: Определить город, в котором цены поднялись в максимальное число раз.
Для десяти городов имеются данные о ценах на бензин в предыдущем и текущем месяцах. Определить...

Дано натуральное число, в котором все цифры различны. Определить, какая цифра расположена в нем левее: максимальная или минимальная
помогите решить эту задачку.на вижуал бейсик 2008. Дано натуральное число, в котором все цифры...

1
Parenek
29.02.2012, 12:08 2
Лучший ответ Сообщение было отмечено как решение

Решение

вот есть скрипт

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Пример()
Dim N, i As Integer
Dim G() As String
Dim P() As Integer
Dim K() As Single
Dim S() As Single
Dim Sr() As Single
N = InputBox("количество обследуемых городов")
ReDim G(N) As String
ReDim P(N) As Integer
ReDim K(N) As Single
ReDim S(N) As Single
ReDim Sr(N) As Single
For i = 1 To N
G(i) = InputBox("название города")
P(i) = InputBox("количество проданных квартир в")
K(i) = InputBox("количество кв. м.")
S(i) = InputBox("Введите стоимость 1 кв.м в городе")
Next
For i = 1 To N
Next
Debug.Print "город"; Tab(30); "количество проданных квартир"; Tab(50); "количество кв. м."; Tab(70); "Стоимость 1 кв.м"
For i = 1 To N
Debug.Print G(i); Tab(30); P(i); Tab(50); K(i); Tab(70); S(i)
Next
End Sub
Вот мне нужно сделать так, чтобы выводилась самое маленькое значение S(i), а рядом название города. Подскажите пожалуйста как это реализовать!?
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.02.2012, 12:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Минимальная стоимость поездки на такси.
Макс встретил старых друзей и гулял с ними до поздней ночи. Когда пришло время возвращаться домой,...

Определить план смешения компонентов, при котором будет достигнута максимальная стоимость всей продукции.
Привет всем! Ребят огромная просьба к вам, помогите решить задачу на делфи!!!! Задача:...

Посчитать минимальную стоимость пути из города А в город Б
Есть массив городов .Из каждого города есть маршруты к другим городам .Выглядит этот массив так ...

Макрос не считает суммарную стоимость всех рейсов в заданный город
Здравствуйте вообще столкнулся с такой проблемой vba не хочет считать сумму , вроде правильно пишу...

Как узнать город, в котором находится посетитель сайта по IP?
Ребят, кто знает, подскажите как это сделать или где можно почитать

Определить амплитуду тока и напряжения в точке, отстоящей от конца линии на расстоянии 1 метра
Разомкнутая двухпроводная линия, имеющая волновое сопротивление р = 500 Ом, подключена к источнику...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.