program n_9;
var x,a,b:real;
begin
writeln('определение принадлежности точки отрезку');
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите x');
readln(x);
if ((x>=a) and (x<=b)) then writeln('точка принадлежит отрезку')
else writeln('точка не принадлежит отрезку');
end.
Объяснение:
нужна была тчк с запятой после действия в else, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)
а это советы на будущее:
нормальные скобки в условиях.
a=2 и b=3
Объяснение:
Смотрим, наблюдаем.
Что происходит в коде?
// - это означает комментарий, который никак не читается компилятором
Program pl; // Называем программу "pl"
Var a,b:integer; // Объявляем переменные. То есть, например, a -это место в памяти компа, мы присвоили ей тип интеджер, что дает нам права присваивать этой переменной исклчительно целочисленные значения, например, 2, -8
procedure fl (x,y:integer); // Создаем процедуру под названием fl. Что такое процедура? Набор действий, которые позже можно выполнить из этой процедуры.
begin
y:=2*x+3;
end;
procedure f2 (var x, y:integer);
begin
x:=3*y+1;
end;
begin
fl(b,a); Мы вызвали эту процедуру (fl) x присваиваем значение b, у значение а. Но так как к данному моменту а и b пусты, ничего не происходит...
end;
a:=2; b:=3;
writeln (‘а=,a,’ b=’,b) // Так как ваш препод не смог грамотно построить задачу, а, по-прежнему, равно 2, а б, по-прежнему, равно 3.
end.
