Вычислить таблицу значений функции - Turbo Pascal (29718)

Формулировка задачи:

Вычислить таблицу значений функции: Z(x,y)=(ln|x|+(y^1/3))/((e^x)+(y^1/2)), x=3i+4 y=x*i+3 i=1...12 Печать организовать так, чтобы три числа x,y,z располагались в одной строке и каждая строка на печати имела свой порядковый номер i: i x y z

Решение задачи: «Вычислить таблицу значений функции»

Листинг программы

uses crt;
var x,y,i:integer;
    z:real;
begin
clrscr;
writeln('----------------------------------');
writeln('| N |  x  |  y  |        z       |');
writeln('----------------------------------');
for i:=1 to 12 do
 begin
  x:=3*i+4;
  y:=x*i+3;
  z:=(ln(x)+exp(ln(y)/3))/(exp(x)+sqrt(y));
  writeln('|',i:2,' |',x:5,'|',y:5,'|',z:16:14,'|');
 end;
writeln('----------------------------------');
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
Затем объявляются переменные x, y и i типа integer, а также переменная z типа real.
С помощью функции clrscr() очищается экран.
Выводится заголовок таблицы с помощью функции writeln().
В цикле for i:=1 to 12 do происходит вычисление значений переменных x, y и z по формуле, заданной в задаче.
Для каждой итерации цикла выводится значение переменной i, значение переменной x, значение переменной y и значение переменной z с помощью функции writeln().
После завершения цикла выводится завершающий заголовок таблицы с помощью функции writeln().
С помощью функции readln() происходит чтение ввода с клавиатуры.