Условный оператор и оператор выбора. Возможные ошибки: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) |
Mikst (обсуждение | вклад) |
||
Строка 31: | Строка 31: | ||
=== Неверная расстановка скобок в сложном логическом выражении === | === Неверная расстановка скобок в сложном логическом выражении === | ||
<source lang="Delphi">var x: integer; | |||
begin | |||
readln(x); | |||
if x>1 and x<10 then // ошибка: отсутствуют скобки | |||
write(x); | |||
end.</source> | |||
== Ссылки == | == Ссылки == | ||
[[Алгоритмы_для_начинающих_на_примерах|Алгоритмы для начинающих]] | [[Алгоритмы_для_начинающих_на_примерах|Алгоритмы для начинающих]] |
Версия от 00:28, 19 ноября 2009
Неверная расстановка begin end
var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
begin // ошибка: операторные скобки должны использоваться по ветке then оператора if
if x>y then
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
Отсутствие begin end
var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
v := x; // ошибка: операторные скобки отсутствуют, поэтому по ветке then выполняется только этот оператор
x := y; // эти операторы выполняются ПОСЛЕ оператора if в любом случае
y := v //
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
Неверная расстановка скобок в сложном логическом выражении
var x: integer;
begin
readln(x);
if x>1 and x<10 then // ошибка: отсутствуют скобки
write(x);
end.