Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
29 / 0 / 0
Регистрация: 27.02.2015
Сообщений: 231
1

Составить программу, определяющую какой стране относится указанная столица

04.03.2015, 23:41. Показов 1745. Ответов 1
Метки нет (Все метки)

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

Столица страны и страна. Вывод столицы по введенной стране
Столица страны и страна. Вывод столицы по введенной стране.

Составить программу, определяющую: какой пакет тяжелее - первый или второй
Разминка_4 Рис расфасован в два пакета. Масса первого — n кг, второго — m кг. Составить...

Составить программу, определяющую, какой банк выбрать, чтобы выгодно обменять доллары на рубли
Помогите написать программу пожалуйста! Программа на массивы. У вас есть доллары. Вы хотите...

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

__________________
1
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
05.03.2015, 08:55 2
Лучший ответ Сообщение было отмечено artem55555p как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
Type country=(Aust, Bolg, Grec, Ital, Norw, Fran);
     capital=(Vena, Sofia,Afiny, Rim, Oslo, Pariz);
Const strana:array[0..5] of string=
             ('Австрия', 'Болгария', 'Греция', 'Италия', 'Норвегия', 'Франция');
      stolica:array[0..5] of string=
              ('Вена', 'София', 'Афины', 'Рим', 'Осло', 'Париж');
var st: country;
    cap: capital;
    k:byte;
begin
writeln('Выберите столицу 0-Вена 1-София 2-Афины 3-Рим 4-Осло 5-Париж');
repeat
readln(k);
until k in [0..5];
cap:=capital(ord(k));
st:=country(ord(k));
write(stolica[ord(st)],' столица* страны ',strana[ord(cap)]);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2015, 08:55

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

Рис расфасован в 2 пакета. вес 1 - m кг, 2 - n кг. составить программу,определяющую какой пакет тяжелее и его вес
1.рис расфасован в 2 пакета. вес 1 - m кг, 2 - n кг. составить программу,определяющую: а) какой...

Составить словарь, где для каждого города указать, в какой стране он находится
Дан список стран и городов каждой страны(.Russia:Moscow Petersburg Novgorod Kaluga,Ukraine:Kiev...

Составьте программу, которая определяет к какой группе относится введенный символ
Составьте программу, которая определяет к какой группе относится введенный символ (с) – к цифрам,...

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


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

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

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