Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.51/47: Рейтинг темы: голосов - 47, средняя оценка - 4.51
0 / 0 / 0
Регистрация: 25.11.2011
Сообщений: 15

По названию страны вывести название её столицы

26.11.2011, 14:02. Показов 10153. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача: написать программу которая по названию страны выводит название её столицы(5-7 названий). Не совсем понимаю какой тип брать(char не подходит).Напишите свое решение пожалуйста.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.11.2011, 14:02
Ответы с готовыми решениями:

По введённому названию страны выводит на экран название столицы
Помогите сделать эту программу. По названию страны (переменная типа Country) присвоить переменной типа Capital название столицы этой...

Вывод столицы по названию страны
rogram stran; const strana:array of string=('Avstria','Bolgariya','Greciya', 'Italiya', 'Norvegiya', 'Franciya'); cap:array of...

По названию страны определить название континента
Имеются описания: Type country=(Germany,Cuba,Laos,Monaco,B angladesh,Ukraine); Continent=(Asia,America,Europe); var s:country; ...

3
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
26.11.2011, 14:16
Цитата Сообщение от bolshakovinka Посмотреть сообщение
Не совсем понимаю какой тип брать
А в каком разделе задача? На какой тип?
Можно просто создать 2 строковых массива, государств и их столиц.
При вводе страны ищем ее в первом массиве, если есть, выводим столицу из ячейки с таким же номером второго массива.

Добавлено через 46 секунд
Можно создать массив записей с двумя полями.
0
0 / 0 / 0
Регистрация: 25.11.2011
Сообщений: 15
26.11.2011, 14:26  [ТС]
Надо обязательно с оператором case.
должно выглядеть где-то так:
Pascal
1
2
3
4
 
case d of 
'Россия':writeln('Москва'); 
и т.д
а не получается так как не знаю что писать в строке
Pascal
1
var d:?
0
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
26.11.2011, 15:11
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Самое простое так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var w:char;
begin
clrscr;
writeln('Выберните страну ');
writeln('1-Россия 2-Украина 3-Германия 4-Польша 5-CША');
readln(w);
case w of
'1':write('Москва');
'2':write('Киев');
'3':write('Берлин');
'4':write('Варшава');
'5':write('Нью-Йорк');
else write('Такой страны нет в списке');
end;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.11.2011, 15:11
Помогаю со студенческими работами здесь

Определить название континента (Азия,Америка,Африка,Европа) по названию страны.
Ничо нету (

Ввести первую букву страны. Вывести название ее столицы
Помогите с задачой в паскале: Составить программу для решения следующих параметров задачи двумя способами, используя: 1) команду case;...

По заданной стране вывести название столицы этой страны. Для решения взять 8 любых стран
1.По заданной стране вывести название континента, где эта страна находится. Для решения взять 8 любых стран. 2.По заданной стране...

Ввести первую букву названия страны, вывести название ее континента
ввести первую букву названия страны, вывести название континента? включая оператор выбора CASE

По названию страны определить ее столицу
tupe страна = (Австрия, Болгария, Греция, Россия, Италия, Германия); столица = *Вена, София, Афины, Москва, Рим, Берлин); По названию...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru