Xn, xk, hx : real;

BEGIN

WRITELN (' ');

READ(XN, XK, HX);

WRITELN ('XN=', XN : 3 :1);

WRITELN ('XK=', XK : 3 :1);

WRITELN ('HX=', HX : 3 :1);

WRITELN (' ');

WRITELN (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');

WRITELN (' I X I Y = LN (X) I ' );

WRITELN (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');

REPEAT

WRITELN('I I I');

WRITELN (' I ', XN :3 :1, ' I ', LN(XN) :5 :3, ' I');

XN := XN +HX;

UNTIL XN > XK;

WRITELN(' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');

END.

Результаты выполнения программы

XN=1.0

XK=3.0

HX=0.5

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

I X I Y=LN(X) I

– – – – – – – – – – – – – – – – – –

I I I

I 1.0 I 0.000 I

I I I

I 1.5 I 0.405 I

I I I

I 2.0 I 0.693 I

I I I

I 2.5 I 0.916 I

I I I

I 3.0 I 1.099 I

– – – – – – – – – – – – – – – – – –

В результате выполнения программы выводятся границы диапазона изменения переменной X и шаг ее изме­нения. Горизонтальные линии в таблице представлены символом "подчерк"(_), вертикальные - символом I латинского алфавита. Аргумент XN и значения функ­ции LN(XN) печатаются в отдельных столбцах таблицы в форме XN :3 :1 и LN(XN) :5 :3 соответственно. Строки таблицы печатаются внутри цикла, заклю­ченного в операторные скобки REPEAT...UNTIL.

6.4. Контрольные вопросы

1. Назовите процедуру ввода информации.

2. Каково назначение процедур write и writeln?

3. Следующую последовательность операторов ввода замените одним операто­ром: read(x1): read(y2); геаd(х3); read(x4).

4. Сколько аргументов могут иметь процедуры read и readln?

5. Сколько процедур read может быть в программе?

6. Чем различаются процедуры read и readln?

7. Пусть в программе есть процедура read(xl, х2, . . . , xn). Должны ли переменные списка ввода иметь одинаковый тип?

8. Как набираются на клавиатуре значения переменных xl, х2, ..., хn для опера­тора read(x1, х2, . . . , хn)?

9. Какой оператор используется для того, чтобы вводимые данные читались с новой строки?

10. Может ли быть пустым список ввода?

11. Надо ли описывать тип переменных, входящих в список ввода?

12. Какое соответствие должно быть между типами переменных списка ввода и типами данных, вводимых с терминала?

13. С помощью каких стандартных процедур осуществляется вывод на дисплей?

14. Замените следующую последовательность операторов вывода одним опера­тором: write('Зарплата отца = '); write(z); writeln.

15. Может ли элементом списка вывода быть константа?

16. Можно ли с помощью процедуры write напечатать значение выражения?

17. Из элементов какого типа состоит список вывода операторов процедур WRITE и WRITELN?

18. Каким образом можно вывести на экран прямую линию?

19. Можно ли значения символьной константы записать в списках операторов WRITE и WRITELN?

20. Какие значения будут иметь переменные x и y после выполнения последовательности операторов

Read (x, y); t:=x; x:=y; y:=t; write (x, y, t);

если последовательность исходных данных была составлена из двух чисел: 5.2 и 18.7?

21. Какие значения будут выведены в результате выполнения последовательности операторов

Read (x, y); x:=x+y; y:=x-y; x:=x-y; write (x, y);

если последовательность исходных данных была составлена из двух чисел: а) 3.5 и 2.4; б) 6.7 и -10.1?