Помощь - Поиск - Пользователи - Календарь
Полная версия: If-> Then -> Else
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
DZZRtt
Я написал работающую программу, которая определяет принадлежит ли точка кругу с заданным радиусом

Код

l;=sqrt(sqr(x1-x2)+sqr(y1-y2));

if l<=r then
begin
writeln ('точка принадлежит кругу');
end
else
begin
writeln ('точка не принадлежит кругу');
end;



если после then и else убрать begin. a после writeln end. То выдается сообщение об ошибке
error in statement
но после того как я написал свою наткнулся в сети на похожую програмку в которой begin и end отсутствуют
и при этом она работает нормально. Пожалуйста объясните почему
Felix Miller
А можно увидеть весь текст программы?
volvo
Цитата
Пожалуйста объясните почему
Потому, что ПЕРЕД Else точки быть не должно, а у тебя (если ты просто уберешь Begin/End) она будет...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.