VPF::[Pascal] Изощрённое использование оператора case

Positiv

Дата 29.9.2006, 16:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 17.9.2006

Репутация: нет
Всего: нет

Код


Program laba3;
Var
X:char;
begin
Writeln('Введите первую букву месяца');
Readln(x);
Case x of
'я':writeln('Январь');
'ф':Writeln('Февраль');
'м':writeln('Март');
'а':writeln('Апрель');
'м':writeln('Май');
'и':writeln('Июнь');
'и':writeln('Июль');
'а':writeln('Август');
'с':writeln('Сентябрь');
'о':writeln('Октябрь');
'н':writeln('Ноябрь');
'д':writeln('Декабрь');
end;
readln;
end.

Суть проблемы вот в чем.
Допустим вводим мы "м"-программа выдает нам март, т.к он стоит выше, но есть еще и МАЙ,
тоже на "м".
Так вот как сделать, чтобы в case мы вводили один символ,а программа выдавала бы сообщение-
типа какой месяц вам нужен(для месяцев начинающихся на один и тот же символ).
Заранее всем спасибо.Кто поможет, буду очень благодарен!

Это сообщение отредактировал(а) Positiv - 29.9.2006, 16:07

volvo877

Дата 29.9.2006, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Извращение, конечно, но все же smile

(может, кому-то пригодится):

Код

Program laba3;

type
  month = (
    jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec
  );
  T = set of month;
const
  month_names: array[month] of string = (
    'январь', 'февраль', 'март', 'апрель', 'май', 'июнь',
    'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь'
  );

{ Это можно сделать с еще одним циклом внутри, читаемость ухуднится, но размер уменьшится... }
function select(m: T): string;
var
  i: month;
  count, answer: integer;
begin
  writeln('Какой месяц нужен?');
  count := 0;
  for i := low(T) to high(T) do
    if i in m then begin
      inc(count);
      writeln(count, ': ', month_names[i]);
    end;
  write('введите соответствующий номер: '); readln(answer);
  count := 0;
  for i := low(T) to high(T) do
    if i in m then begin
      inc(count);
      if count = answer then begin
        select := month_names[i];
        exit;
      end;
    end;
end;

Var
  X:char;
begin
  Write('Введите первую букву месяца > '); Readln(x);
  Case x of
    'я':writeln('Январь');
    'ф':writeln('Февраль');
    'м':writeln(select([mar, may]));
    'а':writeln(select([apr, aug]));
    'и':writeln(select([jun, jul]));
    'с':writeln('Сентябрь');
    'о':writeln('Октябрь');
    'н':writeln('Ноябрь');
    'д':writeln('Декабрь');
  end;
  readln;
end.

KL911

Дата 29.9.2006, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

Мощно...
А проще ведь тоже будет правильно?: smile

Код


program laba3;
Var X:char;
begin  
  Writeln('Введите первую букву месяца');
  Readln(x);
  Case x of
   'я':writeln('Январь');
   'ф':Writeln('Февраль');
   'м':begin
         writeln('Какой месяц вам нужен:');
         writeln('1 - Март');
         writeln('2 - Май');
         readln(x);
         case x of
          '1':writeln('Март');
          '2':writeln('Май');
         end;
        end; 
   'а':begin
         writeln('Какой месяц вам нужен:');
         writeln('1 - Апрель');
         writeln('2 - Август');
         readln(x);
         case x of
          '1':writeln('Апрель');
          '2':writeln('Август');
         end;
        end;
   'и':begin
         writeln('Какой месяц вам нужен:');
         writeln('1 - Июнь');
         writeln('2 - Июль');
         readln(x);
         case x of
          '1':writeln('Июнь');
          '2':writeln('Июль');
         end;
        end;
   'с':writeln('Сентябрь');
   'о':writeln('Октябрь');
   'н':writeln('Ноябрь');
   'д':writeln('Декабрь');
end;
readln;
end.

P.S.:Operator 'Exit" is not very good.

Это сообщение отредактировал(а) KL911 - 29.9.2006, 17:00

volvo877

Дата 29.9.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(KL911 @ 29.9.2006, 16:54

)

Operator 'Exit" is not very good.

Ты забыл добавить "по-моему"... Это - твое мнение...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »