Работа с Case of

[LittleMonkey]

Задано меню выбора из трьох пунктов: ''Integer'', ''Word'', ''LongInt'' и начальный номер пункта меню N. Составить программу, если:
- вывести на экран указанное меню
- ввести один из символов R, L, W
- если символ R , то увеличить N на единицу и вывести на экран название пункта меню за этим номером
- если символ L , то уменьшить N на единицу и вывести на экран название пункта меню за этим номером
- если символ W , то вывести на экран название и диапазон значений типа данных, название которого соответствует пункту меню за номером N
Например, если начальный номер N=1 и введен символ R, то N примет значение 2, на экран выведется слово Integer; если N=1 и введен символ L, то N примет значение 3, на экран выведется слово LongInt; если N=2 и введен символ W, то N примет значение 2, на экран выведется слово Word(0..65636).

[min@y™]

Это следующая лаба, штоль?
Скажи, неужели в твоей группе нету ни одного толкового чувака, который лабы за пиво решает? Хотя, возможно, ты и есть "тот самый чувак (жiнка)". Остальные из wot, вконтактов и цензора не вылазят.

Word(0..65636)

Да-да-да! В военное время значение косинуса может достигать четырёх! (© бородатый анекдот)

[LittleMonkey]

И снова здравствуйте)
Да, это моя очередная лаба)
Меня не тянет торчать часами и лайкать чьи-то записи, хочу научиться чему-то новому, интересному)
А Вы мне очень помогаете в моих начинаниях, спасибо!
К сожалению, никто из одногрупников не может мне помочь с этим заданием, ни у кого не получилось, да и варианты у всех разные..
Надеюсь на Вас)

[min@y™]

Не научишься, если мы тут за тебя лабы делать будем.

К сожалению, никто из одногрупников не может мне помочь

Не может или не хочет?
Чо вы за студенты такие, а? Когда я учился, мы друг другу помогали всегда, у нас разделение труда было, кто во что горазд. Так и учились, никто не вылетел, за исключением парочки совсем уж отмороженных двоечников, не обезображенных интеллектом.

[Aranea tela telam]

Если что не так то извиняюсь утро понедельник неблагоприятное время для мозгов

var a:Char;
n:Integer;
diapozon:Boolean;
begin
  Readln(a);
  n:=1;
  diapozon:=False;
  case a of
    'R' : begin Inc(n); if n > 3 then n:=1; end;
    'L' : begin dec(n); if n < 1 then n:=3; end;
    'W' : diapozon:=true;
  else writeln('Неправильная  каманда!')
  end;
  if diapozon=true then
  case n of
    1:Writeln('Integer(-32 768…32 767)');
    2:Writeln('longint(-2 147 483 648…2 147 483 647)');
    3:Writeln('Word(0…65 535)');
  end else
  case n of
    1:Writeln('Integer');
    2:Writeln('longint');
    3:Writeln('Word)');
  end;
  diapozon:=False;
end;

[Poma][a]

Если что не так то извиняюсь утро понедельник

Только между нами : сегодня вторник..

[Aranea tela telam]

Сообщение от Poma][a

Только между нами : сегодня вторник..

нада кодироваться)