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

@ИгорьССС · Регистрация: 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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

Решение

Решение

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

	Как ввести название города и вывести его население и площадь 01.01.2014, 01:43. Показов 1872. Ответов 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