Программа в паскале.
Программа в паскале.
Вот пример программы на языке 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
и выводит соответствующее сообщение.