Пять букв английского алфавита закодированы кодами различной длины. Эти коды представлены в таблице. Какое сообщение в этой кодировке не содержит ошибок и может быть корректно декодировано?
существуют две разновидности программы – более старая (2003 года и ранее) и более новая (2007-2010). Они несколько отличаются друг от друга, поэтому в этом уроке мы научимся вставлять таблицы и в более старой программе Word, и в современной. Но и в том, и в другом случае для начала нужно указать то место на листе, где должна быть таблица. То есть мигающий курсор (мигающая палочка) должна быть в том месте, куда Вы хотите вставить таблицу. чтобы сместить мигающий курсор вниз, нужно нажать кнопку Enter на клавиатуре. А чтобы поднять его выше – нажать Backspace (кнопку удаления). В программе Microsoft Word более старой версии (2003 года и ранее) для вставки таблиц есть специальный пункт в самом верху программы с правой стороны. Называется он «Таблица». А в программе Word более современной версии (2007-2010) для того, чтобы вставить таблицу, нужно нажать на надпись «Вставка» в левом верхнем углу программы. Когда Вы нажмете на эту надпись, появятся новые кнопки редактирования. Среди них есть кнопка (надпись) «Таблица». Если Вы нажмете на надпись (кнопку) «Таблица», откроется список, в котором программа Word предлагает несколько вставки таблиц. Для начала поговорим о классическом Вставить таблицу...» (Вставить – Таблица). Нажмите на пункт «Вставить таблицу...» (Вставить – Таблица) – откроется небольшое окошко. В верхней части этого окошка нужно напечатать, сколько столбцов и строк должно быть в нашей таблице. Я, например, указал три столбца и четыре строки. Также обратите внимание на нижнюю часть окошка. Точка должна стоять на пункте «Постоянная», и в соседнем белом поле должно быть указано значение «Авто». Другие настройки ширины столбцов применяются крайне редко, в исключительных случаях, и рассматривать их в рамках данного урока мы не будем. И, наконец, нажмите на кнопку ОК. Таблица с указанным нами количеством столбцов и строк должна вставиться в документ (на лист). В моем случае вставилась вот такая таблица:
Write('Введите целое число от 1 до 1000: '); Readln(m); if (m < 1) or (m > 1000) then Writeln('Шутки шутим?') else if m = 1000 then Writeln('Одна тысяча ') else begin { сотни } n := m div 100; if n > 0 then begin Write(ms[n]); flag := true end; { десятки } m := m mod 100; if m = 0 then Writeln(' ') else begin if (m > 10) and (m < 20) then begin if flag then Write(' '); Writeln(m1[m]) end else if m > 0 then begin n := m mod 10; m := m div 10; if m > 0 then begin if flag then Write(' ') else flag := true; Write(md[m]) end; if n <> 0 then begin { единицы } if flag then Write(' '); Write(me[n]); end end end end end.
Тестовое решение: Введите целое число от 1 до 1000: 429 Четыреста двадцать девять
m, n: integer;
ms: array[1..9] of string;
md: array[1..9] of string;
m1: array[11..19] of string;
me: array[1..9] of string;
flag: boolean;
begin
flag := false; { Пока ничего не выведено }
ms[1] := 'сто'; ms[2] := 'двести'; ms[3] := 'триста'; ms[4] := 'Четыреста';
ms[5] := 'пятьсот'; ms[5] := 'пятьсот'; ms[6] := 'шестьсот'; ms[7] := 'семьсот';
ms[8] := 'восемьсот'; ms[9] := 'девятьсот';
md[1] := 'десять'; md[2] := 'двадцать'; md[3] := 'тридцать'; md[4] := 'сорок';
md[5] := 'пятьдесят'; md[6] := 'шестьдесят'; md[7] := 'семьдесят';
md[8] := 'восемьдесят'; md[9] := 'девяносто';
m1[11] := 'одиннадцать'; m1[12] := 'двенадцать'; m1[13] := 'тринадцать';
m1[14] := 'четырнадцать'; m1[15] := 'пятнадцать'; m1[16] := 'шестнадцать';
m1[17] := 'семнадцать'; m1[18] := 'восемнадцать'; m1[19] := 'девятнадцать';
me[1] := 'один'; me[2] := 'два'; me[3] := 'три'; me[4] := 'четыре'; me[5] := 'пять';
me[6] := 'шесть'; me[7] := 'семь'; me[8] := 'восемь'; me[9] := 'девять';
Write('Введите целое число от 1 до 1000: ');
Readln(m);
if (m < 1) or (m > 1000) then Writeln('Шутки шутим?')
else
if m = 1000 then Writeln('Одна тысяча ')
else
begin
{ сотни }
n := m div 100;
if n > 0 then
begin
Write(ms[n]);
flag := true
end;
{ десятки }
m := m mod 100;
if m = 0 then Writeln(' ')
else
begin
if (m > 10) and (m < 20) then
begin
if flag then Write(' ');
Writeln(m1[m])
end
else
if m > 0 then
begin
n := m mod 10;
m := m div 10;
if m > 0 then
begin
if flag then Write(' ') else flag := true;
Write(md[m])
end;
if n <> 0 then
begin
{ единицы }
if flag then Write(' ');
Write(me[n]);
end
end
end
end
end.
Тестовое решение:
Введите целое число от 1 до 1000: 429
Четыреста двадцать девять