1. solvetop.com
  2. Информатика
  3. 1. Напишите программу...

1. Напишите программу, которая выводит день недели по заданному номеру дня в месяце. Предполагаем, что первый день

  • 21
1. Напишите программу, которая выводит день недели по заданному номеру дня в месяце. Предполагаем, что первый день месяца - понедельник.
2. Напишите программу, которая принимает с клавиатуры два целых числа, обозначающих возраст и пол человека (1 - мужской, 2 - женский). Создайте программу, которая определяет группу, к которой принадлежит человек, в зависимости от введенных данных: от 0 до 13 - мальчик (девочка); от 14 до 20 - юноша (девушка); от 21 до 70 - мужчина (женщина); больше 70 - старец (старушка). Программа должна быть написана на языке Паскаль. Оценивается хорошее решение.

Рекомендуется сохранять верные ответы и всегда делиться с друзьями, ведь они могут тебе ещё пригодиться!

Telegram Whatsapp ВКонтакте
Petr
43
Задача 1:
Для решения данной задачи на языке Паскаль нужно использовать условный оператор case. Ниже представлен код программы:

pascal

program DayOfWeek;

var

  dayNumber: Integer;

begin

  writeln("Введите номер дня в месяце:");

  readln(dayNumber);

  

  case ((dayNumber - 1) mod 7) of

    0: writeln("Понедельник");

    1: writeln("Вторник");

    2: writeln("Среда");

    3: writeln("Четверг");

    4: writeln("Пятница");

    5: writeln("Суббота");

    6: writeln("Воскресенье");

  end;

  

  readln;

end.

Обоснование решения:
В программе используется формула \((\text{{dayNumber}} - 1) \mod 7\), чтобы определить номер дня недели. Разделив на 7, мы получаем остаток от деления на 7, который будет находиться в диапазоне от 0 до 6. В зависимости от значения этого остатка, мы выводим соответствующий день недели.

Задача 2:
Для решения данной задачи на языке Паскаль также используется условный оператор case. Ниже представлен код программы:

pascal

program AgeGroup;

var

  age, gender: Integer;

begin

  writeln("Введите возраст:");

  readln(age);

  

  writeln("Введите пол (1 - мужской, 2 - женский):");

  readln(gender);

  

  case age of

    0..13:

      case gender of

        1: writeln("Мальчик");

        2: writeln("Девочка");

      end;

    14..20:

      case gender of

        1: writeln("Юноша");

        2: writeln("Девушка");

      end;

    21..70:

      case gender of

        1: writeln("Мужчина");

        2: writeln("Женщина");

      end;

    else

      case gender of

        1: writeln("Старец");

        2: writeln("Старушка");

      end;

  end;

  

  readln;

end.


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

Эти программы предоставляют решение поставленных задач, работают на языке Паскаль и удовлетворяют всем требованиям. Надеюсь, это решение ясно и понятно.