Дата публикации:

Программа в паскале.

Программа в паскале.

Вот пример программы на языке Pascal, которая решает вашу задачу:

program Schedule;

var
  subjects: array[1..3] of string = ('математика', 'информатика', 'физика');
  days: array[1..7] of string = ('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресенье');
  subjectCode: char;
  subjectIndex: integer;

begin
  writeln('Введите первую букву названия предмета или номер в списке:');
  readln(subjectCode);

  if subjectCode in ['1'..'3'] then
  begin
    subjectIndex := ord(subjectCode) - ord('0');
    writeln('Предмет: ', subjects[subjectIndex]);
    writeln('День проведения: ', days[subjectIndex]);
  end
  else
  begin
    case subjectCode of
      'м': writeln('Предмет: математика');
      'и': writeln('Предмет: информатика');
      'ф': writeln('Предмет: физика');
      else writeln('Такой дисциплины нет');
    end;
  end;

  readln;
end.

Программа использует два массива: subjects для хранения названий предметов и days для хранения дней недели. Затем программа считывает первую букву названия предмета или номер в списке и проверяет, является ли она числом от 1 до 3. Если да, то программа выводит название предмета и день его проведения, используя индекс из массива subjects. Если первая буква не является числом, программа проверяет ее значение с помощью оператора case и выводит соответствующее сообщение.