Вычислить таблицу значений функции - 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
Решение задачи: «Вычислить таблицу значений функции»
textual
Листинг программы
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() происходит чтение ввода с клавиатуры.