PROGRAM Kolobok; USES CRT; VAR Zver:CHAR; BEGIN WRITELN('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya'); WRITELN('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke'); WRITELN('Kolobok katitsya, a navstrechu yemu zver'); WRITELN('Vvod zverya'); READLN(Zver); IF lisa THEN WRITELN('Kolobok poyot pesenku dva raza'); WRITELN('Proshchay, Kolobok ...'); ELSE WRITELN('Kolobok poyot pesenku'); WRITELN('Katitsya dalshe'); END. не работает программа
PROGRAM Kolobok; USES CRT; VAR Zver:CHAR; BEGIN WRITELN('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya'); WRITELN('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke'); WRITELN('Kolobok katitsya, a navstrechu yemu zver'); WRITELN('Vvod zverya'); READLN(Zver); IF Zver = 'l' // Проверяем, является ли введенное зверем лиса THEN BEGIN WRITELN('Kolobok poyot pesenku dva raza'); WRITELN('Proshchay, Kolobok ...'); END ELSE BEGIN WRITELN('Kolobok poyot pesenku'); WRITELN('Katitsya dalshe'); END; END.
В этом исправленном варианте программы была добавлена проверка на то, является ли введенное значение Zver равным символу 'l', что предполагает, что zver - лиса. Теперь программа должна корректно работать.
Исправленный вариант программы:
PROGRAM Kolobok;USES CRT;
VAR
Zver:CHAR;
BEGIN
WRITELN('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
WRITELN('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
WRITELN('Kolobok katitsya, a navstrechu yemu zver');
WRITELN('Vvod zverya');
READLN(Zver);
IF Zver = 'l' // Проверяем, является ли введенное зверем лиса
THEN
BEGIN
WRITELN('Kolobok poyot pesenku dva raza');
WRITELN('Proshchay, Kolobok ...');
END
ELSE
BEGIN
WRITELN('Kolobok poyot pesenku');
WRITELN('Katitsya dalshe');
END;
END.
В этом исправленном варианте программы была добавлена проверка на то, является ли введенное значение Zver равным символу 'l', что предполагает, что zver - лиса. Теперь программа должна корректно работать.