Question

Помогите, пожалуйста,с Паскалем Case 4 Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для невисо- косного года. Case 10 Case10. Робот может перемещаться в четырех направлениях («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые ко- манды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот направо. Дан символ C — исходное направление робота и целое число N — посланная ему команда. Вывести направление робота после выполне- ния полученной команды

Answer 1

Первая задача:
varn:integer;BEGINread(n);case n of     1,3,5,7,8,10,12: writeln(31);     2: writeln(28);     4,6,9,11:writeln(30);     else writeln('Такого месяца нет');end;END.
Над второй еще подумаю, как более короткое решение записать.

Answer 2

Для решения обоих задач с помощью языка программирования Pascal, вы можете использовать следующий код:

Задача 4:

pascalCopy code
program DaysInMonth;

var
  monthNumber: integer;

begin
  write('Введите номер месяца (1-12): ');
  readln(monthNumber);

  case monthNumber of
    1, 3, 5, 7, 8, 10, 12:
      writeln('В этом месяце 31 день.');
    4, 6, 9, 11:
      writeln('В этом месяце 30 дней.');
    2:
      writeln('В этом месяце 28 дней (невисокосный год).');
    else
      writeln('Некорректный номер месяца.');
  end;

  readln;
end.

Задача 10:

pascalCopy code
program RobotCommands;

var
  initialDirection: char;
  command: integer;
  newDirection: char;

begin
  write('Введите исходное направление робота (C, З, Ю, В): ');
  readln(initialDirection);
  write('Введите команду для робота (0 - продолжить, 1 - поворот налево, -1 - поворот направо): ');
  readln(command);

  case initialDirection of
    'C':
      if command = 0 then
        newDirection := 'C'
      else if command = 1 then
        newDirection := 'З'
      else if command = -1 then
        newDirection := 'В';
    'З':
      if command = 0 then
        newDirection := 'З'
      else if command = 1 then
        newDirection := 'Ю'
      else if command = -1 then
        newDirection := 'C';
    'Ю':
      if command = 0 then
        newDirection := 'Ю'
      else if command = 1 then
        newDirection := 'В'
      else if command = -1 then
        newDirection := 'З';
    'В':
      if command = 0 then
        newDirection := 'В'
      else if command = 1 then
        newDirection := 'C'
      else if command = -1 then
        newDirection := 'Ю';
    else
      writeln('Некорректное исходное направление.');
      readln;
      exit;
  end;

  writeln('Направление робота после выполнения команды: ', newDirection);
  readln;
end.

Просто скопируйте соответствующий код в среду разработки Pascal и запустите программу. Она будет ожидать ввода номера месяца или команды для робота и выведет результат на экран.