Program task8; var dn: string; ch,p: integer; begin writeln('введите число'); readln (ch); if ch > 8 then break; 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 ('- в этот день занятий нет'); 7: begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end; end.
272
398
Ответы на вопрос:
Program task8; 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пятницаинформатикаобществознаниеастрономия биология
Не работает потому что: 1. оператор break вызывает выход из цикла, а цикла в месте, где употреблен break, нет. по смыслу программы её требовалось прервать и в языке паскаль для этого используется exit. 2. после меток 6: и 7: следует begin, а парного к ним end нет. 3. это не ошибка, но переменные dn и p в программе не используются и их можно не указывать.
Популярно: Информатика
-
Kate052630.04.2023 08:12
-
esmeraldadoctor03.12.2021 15:45
-
fnnifnnr14.12.2022 01:33
-
Волна161023.05.2021 02:25
-
Deelay08.07.2021 04:49
-
влад192208.07.2022 02:14
-
keshacold69105.02.2020 18:17
-
annafa504.08.2020 14:07
-
паша53518.07.2020 05:21
-
gern74p01ako05.08.2022 09:19