Как ввести название города и вывести его население и площадь

@ИгорьССС · Регистрация: 01.01.2014

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, решить задачу по бейсику,только поподробнее пожалуйста.Я месяц в больнице пролежал, вообще этот Select Case не понимаю.
p. s. простите, за мой русский

составить программу для решения приведённой ниже задачи, используя команду Select Case. задать данные так, чтобы выбор был из четырех-пяти альтернатив. Использовать две переменные соответствующих типов для величин, которые надо определить и вывести их значения на экран в конце кода, то есть команду вывода применять только один раз после команды Select Case (в теле команды Select Case команды вывода не писать)
ввести название города, вывести население и площадь города

@Pro_grammer · 01.01.2014, 07:17

Сообщение от ИгорьССС

вывести население и площадь города

Ух, начну этот год с доброго дела!

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
Private Sub Command1_Click()
Dim Area As Single, Population As Single
Form1.Cls
City$ = InputBox("Киев, Полтава, Умань, Кременчуг, Миргород", "Введите название грода", "Киев")
Select Case City$
Case "Киев"
Area = 839: Population = 2849
Case "Полтава"
Area = 112.5: Population = 296
Case "Умань"
Area = 44.87: Population = 86.9
Case "Кременчуг"
Area = 96: Population = 228
Case "Миргород"
Area = 30: Population = 42.7
Case Else
MsgBox "", vbCritical, "Нет такого города в базе!"
Exit Sub
End Select
Form1.Print "Город - " & City$
Form1.Print "Площадь = " & Area & " тыс. кв. км."
Form1.Print "Население = " & Population & " тыс. чел."
 
End Sub

P.S.
Данные по городам могут не соответствовать действительности, писал почти по Википедии

@Апострофф · 01.01.2014, 08:06

С новым Годом!

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
Option Explicit
 
Sub main()
Dim ss As String
Dim n, s 'As Double
'Open "d:\g.txt" For Input As 1 'http://ru.wikipedia.org/wiki/Список_городов_России_с_территорией_больше_100_квадратных_километров
'  ss = Input$(LOF(1), 1)
'Close 1
'Dim a, aa
'a = Split(ss, vbCrLf)
'For n = 0 To UBound(a)
'  aa = Split(Replace(a(n), ",", "."), vbTab)
'  Debug.Print "case """ & aa(1) & """: S=val(""" & aa(2) & """)"
'Next n
s = "Не знаю такого города."
n = "Несколько?"
ss = InputBox("Введите имя города -")
Select Case ss 'InputBox("Введите имя города -")
Case "Москва": s = Val("2550.00[1]"): n = 11979529
Case "Санкт-Петербург": s = Val("1439.00"): n = 5028000
Case "Волгоград": s = Val("859.353[2]"): n = 1018790
Case "Пермь": s = Val("799.68*[3]"): n = 1013887
Case "Уфа": s = Val("700*[4] — 707.93*[5]"): n = 1077719
Case "Казань": s = Val("614.16[6]")
Case "Воронеж": s = Val("596.51[7]")
Case "Орск": s = Val("580[8]")
Case "Омск": s = Val("572.9")
Case "Самара": s = Val("541.382*[9]")
Case "Чита": s = Val("538")
Case "Новосибирск": s = Val("506.67")
Case "Челябинск": s = Val("501.57[10]")
Case "Махачкала": s = Val("468.13")
Case "Екатеринбург": s = Val("468[12]")
Case "Березники": s = Val("431.118[13] или 524.51[14]")
Case "Братск": s = Val("428[15]")
Case "Новокузнецк": s = Val("424.27")
Case "Дзержинск": s = Val("421.53*[16][17][18]")
Case "Нижний Новгород": s = Val("410.68*[17][19] — 466.5[20]")
Case "Саратов": s = Val("393.975[21]")
Case "Курган": s = Val("393.03")
Case "Магнитогорск": s = Val("392.35")
Case "Хабаровск": s = Val("388.735[22]")
Case "Саранск": s = Val("383.27")
Case "Улан-Удэ": s = Val("377.12")
Case "Петропавловск-Камчатский": s = Val("362.14[24][4][25]")
Case "Сургут": s = Val("353.976[26]")
Case "Красноярск": s = Val("353.9[23]")
Case "Ростов-на-Дону": s = Val("348.5[27]")
Case "Ханты-Мансийск": s = Val("337.76")
Case "Владивосток": s = Val("331.16[28]")
Case "Липецк": s = Val("330[4] — 330.13[29]")
Case "Комсомольск-на-Амуре": s = Val("325.10[30]")
Case "Грозный": s = Val("324.16[31]")
Case "Барнаул": s = Val("322.01[32]")
Case "Благовещенск": s = Val("320.97[33][4]")
Case "Ульяновск": s = Val("316.9[4]")
Case "Ижевск": s = Val("315.6")
Case "Тольятти": s = Val("314.79")
Case "Нижний Тагил": s = Val("298.47[35]")
Case "Томск": s = Val("297.2")
Case "Магадан": s = Val("295[36]")
Case "Архангельск": s = Val("294.42")
Case "Бийск": s = Val("291.67")
Case "Владикавказ": s = Val("290.61")
Case "Пенза": s = Val("290.38[37]")
Case "Кемерово": s = Val("282.285")
Case "Иркутск": s = Val("277.35[38]")
Case "Лесосибирск": s = Val("277.00")
Case "Ставрополь": s = Val("276.689")
Case "Нижневартовск": s = Val("271.319[39]")
Case "Оренбург": s = Val("259[40]")
Case "Новоульяновск": s = Val("253.67")
Case "Чебоксары": s = Val("250.87*[4][25][41]")
Case "Копейск": s = Val("236.71[42]")
Case "Тюмень": s = Val("234.54")
Case "Брянск": s = Val("230.00*")
Case "Рязань": s = Val("224.163[4][25][43]")
Case "Калининград": s = Val("223.03")
Case "Белово": s = Val("219.34[44]")
Case "Астрахань": s = Val("208.69[11]")
Case "Ярославль": s = Val("205.8[46][4]")
Case "Чапаевск": s = Val("200.5")
Case "Старый Оскол": s = Val("199.1[4]")
Case "Краснодар": s = Val("192.19[47]")
Case "Златоуст": s = Val("190.4")
Case "Курск": s = Val("188.75[48] — ок. 189[4][25]")
Case "Баксан": s = Val("180.12")
Case "Сочи": s = Val("176.77[49]")
Case "Шадринск": s = Val("173.66")
Case "Набережные Челны": s = Val("171")
Case "Кумертау": s = Val("169.6")
Case "Биробиджан": s = Val("169.38[51][4][25]")
Case "Киров": s = Val("169.73[50]"): n = 483176
Case "Калуга": s = Val("168.5[4] — 170.5[52]")
Case "Волгодонск": s = Val("168.82")
Case "Соликамск": s = Val("166.55[53]")
Case "Смоленск": s = Val("166[4][25] — 166.35[54]")
Case "Южно-Сахалинск": s = Val("164.66[55]")
Case "Выборг": s = Val("160.847[56]")
Case "Красноармейск": s = Val("160.7")
Case "Каменск-Шахтинский": s = Val("159.99")
Case "Шахты": s = Val("159.08")
Case "Сибай": s = Val("154.31")
Case "Мурманск": s = Val("154.6")
Case "Нефтеюганск": s = Val("153.79")
Case "Белгород": s = Val("153.1[4]")
Case "Сыктывкар": s = Val("152[58]")
Case "Тверь": s = Val("152.22[4][57]")
Case "Волжский": s = Val("150[4] — 229.12[59]")
Case "Нефтекамск": s = Val("147.25*[60]")
Case "Тула": s = Val("145.8[4] — 153.52[61]")
Case "Кострома": s = Val("144.5[4]")
Case "Новошахтинск": s = Val("138.09")
Case "Петрозаводск": s = Val("134.98")
Case "Новочеркасск": s = Val("127.94")
Case "Находка": s = Val("127[63]")
Case "Владимир": s = Val("124.59[34]")
Case "Якутск": s = Val("122[4][25] — 129.87[62]")
Case "Орёл": s = Val("121[4][25] — 121.21[64]")
Case "Череповец": s = Val("120.94")
Case "Северодвинск": s = Val("120.51")
Case "Сызрань": s = Val("117[65]")
Case "Камышин": s = Val("117.97")
Case "Вологда": s = Val("115.73")
Case "Воткинск": s = Val("112.18")
Case "Железногорск (Курская область)": s = Val("112.03*[66]")
Case "Химки": s = Val("110.2[4][67]")
Case "Донецк (Ростовская область)": s = Val("110.34")
Case "Мыски": s = Val("108.7[68]")
Case "Стерлитамак": s = Val("108.52[4][25][69]")
Case "Иваново": s = Val("104.5")
Case "Ишимбай": s = Val("103.47[71]")
Case "Пятигорск": s = Val("103.73")
Case "Димитровград": s = Val("103.97")
Case "Мамоново": s = Val("102.69")
Case "Рыбинск": s = Val("101.42[74][4]")
Case "Невинномысск": s = Val("100.397[75]")
Case "Салават": s = Val("100.397[4][25][70]")
Case "Йошкар-Ола": s = Val("100.39*[72] — 101.80*[73]")
Case "Балашиха": s = Val("38.72[4] — 218.59*[4")
End Select
MsgBox ss & ": площадь " & s & " Население " & n & " человек."
End Sub

@ИгорьССС · 01.01.2014, 17:35 **[ТС]**

СПАСИБО ОГРОМНОЕ!
Желаю Вам в новом году всего наилучшего, и таких же отзывчивых люде по жизни!!
Ещё раз спасибо!!

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

Как ввести название города и вывести его население и площадь

Решение

Решение

@ИгорьССС 0 / 0 / 0 Регистрация: 01.01.2014 Сообщений: 2

	Как ввести название города и вывести его население и площадь 01.01.2014, 01:43. Показов 1928. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста, решить задачу по бейсику,только поподробнее пожалуйста.Я месяц в больнице пролежал, вообще этот Select Case не понимаю. p. s. простите, за мой русский составить программу для решения приведённой ниже задачи, используя команду Select Case. задать данные так, чтобы выбор был из четырех-пяти альтернатив. Использовать две переменные соответствующих типов для величин, которые надо определить и вывести их значения на экран в конце кода, то есть команду вывода применять только один раз после команды Select Case (в теле команды Select Case команды вывода не писать) ввести название города, вывести население и площадь города 0

@ИгорьССС 0 / 0 / 0 Регистрация: 01.01.2014 Сообщений: 2
	01.01.2014, 17:35 [ТС]
	СПАСИБО ОГРОМНОЕ! Желаю Вам в новом году всего наилучшего, и таких же отзывчивых люде по жизни!! Ещё раз спасибо!! 0