Question

Паскаль. Розгалудження.Скласти програму, яка дає довідку про назву столиці (St) та про кількість населення (nas, у мільйонах) деякої країни( kr) з такого переліку: Угорщина, Італія, Україна.

Answer 1

Const
  St: array[1..3] of string = ('Будапешт', 'Рим', 'Киев');
  Nas: array[1..3] of real = (9.9, 61.5, 44.3);
  Kr: array[1..3] of string = ('Венгрия', 'Италия', 'Украина');
  {Сведения о численности населения приведены по данным ресурса
   CountryMeters по состоянию на 03.07.2014}

var
  i: integer;

begin
  write('Введите 1-Венгрия, 2-Италия, 3-Украина -> ');
  readln(i);
  if i in [1..3] then
    writeln('Страна- ', Kr[i], ', столица- ', St[i], ', население (млн.чел.)- ', Nas[i])
  else
    writeln('Неверный ввод!')
end.

Тестовое решение:

Введите 1-Венгрия, 2-Италия, 3-Украина -> 2
Страна- Италия, столица- Рим, население (млн.чел.)- 61.5

Answer 2

Програма на Pascal:

program CountryInfo; var St: string; nas: real; kr: string; begin writeln('Введіть назву країни (Угорщина, Італія, Україна): '); readln(kr); if kr = 'Угорщина' then begin St := 'Будапешт'; nas := 9.7; end else if kr = 'Італія' then begin St := 'Рим'; nas := 60.4; end else if kr = 'Україна' then begin St := 'Київ'; nas := 41.9; end else begin writeln('Країна не знайдена'); exit; end; writeln('Назва столиці ', kr, ': ', St); writeln('Кількість населення ', kr, ' (у мільйонах): ', nas); end.