Здравствуйте, нужна учителя информатики. У нашей девочки ( 6 класс) не зачтено д\з. Я (опекун девочки) в сомнении. Проверьте как специалист, я в силу своего возраста не могу её в этой области знаний. Вопрос Укажите входы и выходы для системы "компьютер". ЕЁ ответ: Входы: 1. электроэнергия; 2.СD.DVD привод 3.Сканирование 4.ввод информации с клавиатуры 5. поступление информации из интернета. ВЫХОДЫ: 1.вывод на печать 2. выход в интернет 3,звук, 4. свет 5. изображение 6. информация с сайтов.
var ch:integer;
begin
writeln('Введите число: ');
readln (ch);
case ch of
1:begin writeln ('понедельник'); writeln ('Литература'); writeln ('История'); writeln ('Алгебра'); writeln ('Английский'); writeln ('ОБЖ'); writeln ('Геометрия'); end;
2:begin writeln ('вторник '); writeln ('Обществознание '); writeln ('Информатика'); writeln ('Физика'); writeln ('Химия '); writeln ('География'); writeln ('Английский'); writeln ('Физкультура');end;
3:begin writeln ('среда '); writeln ('Физика'); writeln ('Физкультура'); writeln ('Алгебра'); writeln ('Алгебра'); writeln ('Французский'); writeln ('Русский'); writeln ('История');end;
4:begin writeln ('четверг ');writeln ('Французский'); writeln ('Алгебра'); writeln ('Геометрия'); writeln ('Английский'); writeln ('Английский'); writeln ('География'); writeln ('Физкультура');end;
5:begin writeln ('пятница '); writeln ('Информатика'); writeln ('Обществознание'); writeln ('Физика'); writeln ('Астрономия'); writeln ('Русский'); writeln ('Литература'); writeln ('Биология');end;
6:begin writeln ('суббота '); writeln ('- в этот день занятий нет'); end;
7:begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end;
else writeln('Ошибка ввода');
end;
end.
Пример:
Введите число 5
пятница
Информатика
Обществознание
Физика
Астрономия
Русский
Литература
Биология