Program n_1; Var a, b, x, y: real; Begin Writeln('Введите a') readln (x); Writeln('Введите b') readln (b); y:=3xx+x-4; While x<=b do begin x:=x+0,1; Writeln('x=',x:3:2); -что будет на экране после выполнения этого оператора? y:=3xx+x-4; Writeln ('y=',y:3:2) end end.
После выполнения оператора Writeln('x=',x:3:2); на экране будет выводиться значение переменной x с точностью до двух знаков после запятой. В данном случае будет выводиться значение переменной x увеличенное на 0.1 каждый шаг цикла, начиная с исходного значения, которое было введено пользователем.
Давайте рассмотрим программу построчно и поймем, что она делает, а затем разберем, что будет выведено на экран.
Программа начинается с объявления переменных:
Var a, b, x, y: real;
Здесь объявлены четыре переменные типа real (вещественные числа).
Далее начинается основной блок программы:
Begin
Программа выводит сообщение:
Writeln('Введите a');
и затем считывает значение переменной x (хотя надпись говорит "Введите a", считывается значение в x):
readln(x);
Затем аналогично выводит сообщение:
Writeln('Введите b');
и считывает значение переменной b:
readln(b);
Теперь вычисляется значение y при текущем значении x:
y := 3 * x * x + x - 4;
Цикл while выполняется до тех пор, пока x меньше или равно b:
While x
