Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Chowder
0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 15
1

По введённому названию страны выводит на экран название столицы

20.03.2014, 07:37. Просмотров 1043. Ответов 1
Метки нет (Все метки)

Помогите сделать эту программу.
По названию страны (переменная типа Country) присвоить переменной типа Capital название столицы этой страны.
Pascal
1
2
3
Type
Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, Германия);
Capital = (Вена, София, Афины, Рим, Осло, Париж, Берлин);
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2014, 07:37
Ответы с готовыми решениями:

По названию страны вывести название её столицы
Задача: написать программу которая по названию страны выводит название её столицы(5-7 названий). Не...

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

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

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

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

1
Puporev
Модератор
58143 / 44228 / 30549
Регистрация: 18.05.2008
Сообщений: 105,904
20.03.2014, 08:41 2
Наверное можно так.
Pascal
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
uses crt;
Type
Country = (av,bl,grc,it,nr,fr,grm);
Capital = (vn,sf,af,rm,os,pr,br);
var
x:Capital;
k:byte;
begin
clrscr;
repeat
writeln('Введите номер страны');
writeln('0-Австрия 1-Болгария 2-Греция 3- Италия 4-Норвегия 5-Франция 6-Германия');
readln(k);
until k in [0..6];
x:=Capital(k);
write('Столица ');
case x of
vn:write('Вена');
sf:write('София');
af:write('Афины');
rm:write('Рим');
os:write('Осло');
pr:write('Париж');
br:write('Берлин');
end;
readln
end.
Добавлено через 3 минуты
Нет, как-то не так, не используется первый тип. Запутанная это штука насильственное использование перечислимого типа...

Добавлено через 16 минут
Может так переделать
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
x:Capital;
y:Country;
k:byte;
begin
clrscr;
repeat
writeln('Ââåäèòå íîìåð ñòðàíû');
writeln('0-Àâñòðèÿ 1-Áîëãàðèÿ 2-Ãðåöèÿ 3- Èòàëèÿ 4-Íîðâåãèÿ 5-Ôðàíöèÿ 6-Ãåðìàíèÿ');
readln(k);
until k in [0..6];
y:=Country(k);
x:=Capital(ord(y));
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2014, 08:41

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

Составить программу, которая запрашивает название государства и его столицы, а затем выводит сообщение "Столица государства — город
Составить программу, которая 1) запрашивает название государства и его столицы, а затем выводит...

По введённому названию страны Европы будет выводить на экран название столицы
составить программу,которая по введённому названию страны Европы будет выводить на экран название...


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

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

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