program task8; var dn:string; ch,p:integer; begin writeln(039;Введите число039;); readln
Program task8;
var dn:string; ch,p:integer;
begin
writeln('Введите число');
readln (ch);
if ch gt; 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.
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 в программке не употребляются и их можно не указывать.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.