Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
heyHOLLA
0 / 0 / 0
Регистрация: 28.10.2013
Сообщений: 49
1

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

01.03.2014, 20:58. Просмотров 2650. Ответов 4
Метки нет (Все метки)

составить программу,которая по введённому названию страны Европы будет выводить на экран название столицы(например вводим греция выводит афины), что не правильно здесь???
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program zad1;
var a: byte;
begin
writeln('введте название страны');
readln(a);
case a of
Австрия:WriteLn('Вена');
Азербайджан:WriteLn('Баку');
Албания:WriteLn('Тирана');
Андорра:WriteLn('Андорра-Ла-Велья');
Белоруссия:WriteLn('Минск');
Бельгия:WriteLn('Брюссель');
Болгария:WriteLn('София');
Босния и Герцеговина:WriteLn('Сараево');
Ватикан:WriteLn('Ватикан');
Великобритания:WriteLn('Лондон');
Венгрия:WriteLn('Будапешт');
else
WriteLn('такой страны нет в нашем списке');
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2014, 20:58
Ответы с готовыми решениями:

По введённому названию страны Европы будет выводить на экран название столицы
var a:string; begin writeln('Введите название страны'); readln(a) case a of ...

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

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

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

Составить программу, которая бы выдавала по названию страны название столицы этой страны (использовать не менее 6-7 названий).
Составить программу, которая бы выдавала по названию страны название столицы этой страны...

4
ildwine
Супер-модератор
3120 / 1999 / 1248
Регистрация: 04.03.2013
Сообщений: 4,859
Записей в блоге: 1
01.03.2014, 21:14 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
program zad1;
const 
  state : array [1..11] of String = ('Австрия', 'Азербайджан', 'Албания', 'Андорра',
    'Белоруссия', 'Бельгия', 'Болгария', 'Босния и Герцеговина', 'Ватикан',
    'Великобритания', 'Венгрия');
  cap : array [1..11] of String = ('Вена', 'Баку', 'Тирана', 'Андорра-Ла-Велья',
    'Минск', 'Брюссель', 'София', 'Сараево', 'Ватикан', 'Лондон', 'Будапешт');
var
  a, i: byte;
  s: string; 
  f : boolean;
begin
  writeln('введте название страны');
  readln(s);
  f := false;
  for i := 1 to 11 do
  begin
    if s = state[i] then
    begin
      writeln(cap[i]);
      f := true;
      break
    end
  end;
  if f = false then WriteLn('такой страны нет в нашем списке');
readln
end.
1
SmartProgramist
12 / 12 / 13
Регистрация: 28.12.2013
Сообщений: 52
01.03.2014, 21:41 3
Тут только 2 ошибки.
-Var a:string (а не byte)
-с каждым названием страны ты не сделал апостроф ( ' )
Например,'Австрия': Writeln('Вена'); и так далее
0
ildwine
Супер-модератор
3120 / 1999 / 1248
Регистрация: 04.03.2013
Сообщений: 4,859
Записей в блоге: 1
01.03.2014, 21:54 4
Лучший ответ Сообщение было отмечено heyHOLLA как решение

Решение

SmartProgramist, не будет работать так как вы предлагаете... case работает только с byte, integer, char...

Добавлено через 3 минуты
Можно еще так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program zad1;
var a: string;
begin
writeln('введте название страны');
readln(a);
if a = 'Австрия' then WriteLn('Вена') else
  if a='Азербайджан' then WriteLn('Баку') else
    if a='Албания' then WriteLn('Тирана') else
      if a='Андорра' then WriteLn('Андорра-Ла-Велья') else
        if a= 'Белоруссия' then WriteLn('Минск') else
          if a='Бельгия' then WriteLn('Брюссель') else
            if a='Болгария' then WriteLn('София') else
              if a='Босния и Герцеговина' then WriteLn('Сараево') else
               if a='Ватикан' then WriteLn('Ватикан') else
                if a='Великобритания' then WriteLn('Лондон') else
                  if a='Венгрия' then WriteLn('Будапешт') else
WriteLn('такой страны нет в нашем списке');
readln
end.
1
SmartProgramist
12 / 12 / 13
Регистрация: 28.12.2013
Сообщений: 52
01.03.2014, 21:55 5
а я подумал String работает. Нуу я не профи прост подумал работает char и работает string
0
01.03.2014, 21:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2014, 21:55

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

Определить название столицы по заданному названию страны
Помогите разработать программу с использованием оператора-переключателя switch. Определить...

Программа предлагает выбрать название страны и выводит на экран её название столицы
Программа предлагает выбрать название страны и выводит на экран её название столицы. C++ ...


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

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

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