Question

Что надо вписывать в скобках чтоб программа получилась в приложении паскаль? program n_9;var x,a,b:real;beginwriteln('определение принадлежности точки отрезку');write('введите a, b>>');readln(a,b);write('введите x>>');readln(x);if (x>=a) and (x<=b)thenwriteln('точка принадлежит отрезку')else writeln('точка не принадлежит отрезку')end.

Answer 1

Ответ:

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, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)

а это советы на будущее:

нормальные скобки в условиях.

Answer 2

Чтобы программа получилась в приложении Pascal, необходимо скопировать и вставить следующий код:

pascalCopy code
program n_9;

var
  x, a, b: real;

begin
  writeln('определение принадлежности точки отрезку');
  write('введите a, b>>');
  readln(a, b);
  write('введите x>>');
  readln(x);

  if (x >= a) and (x <= b) then
    writeln('точка принадлежит отрезку')
  else
    writeln('точка не принадлежит отрезку');

end.

Программа проверяет, принадлежит ли значение x отрезку, заданному границами a и b. Если x лежит внутри этого отрезка (включая границы), то выводится сообщение "точка принадлежит отрезку". В противном случае, выводится сообщение "точка не принадлежит отрезку".