Jater

Kri_listed_type

Nov 27th, 2012
108
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type
  2.     land = (Australia, Bulgaria, Greece, Italy, Norway, France, Germany);
  3.     capital = (Vene, Sophie, Aphine, Rome, Oslo, Paris, Berlin);
  4. var
  5.     st: land;
  6.     cap: capital;{По значению переменной st(названию страны)присвоить переменной сар название столицы этой страны.}
  7.     n: 0..6;
  8. begin
  9.     write('Vvedite stranu (0-Australia, 1-Bulgaria, 2-Greece, 3-Italy, 4-Norway, 5-France, 6-Germany): ');
  10.     read(n);
  11.     for st:=Australia to Germany do
  12.         if n=ord(st) then break;
  13.     case st of
  14.         Australia: writeln('Vene');
  15.         Bulgaria: writeln('Sophie');
  16.         Greece: writeln('Aphine');
  17.         Italy: writeln('Rome');
  18.         Norway: writeln('Oslo');
  19.         France: writeln('Paris');
  20.         Germany: writeln('Berlin');
  21.     end;
  22.     read;
  23. End.
RAW Paste Data