Напечатать таблицу значений функции - Free Pascal

Узнай цену своей работы

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

Напечатать таблицу значений функции f(x)=10x для x [a,b] с шагом h=(b-a)/n, если a=1, b=1.5, n=10

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

textual
Листинг программы
var x, h: real;
    i: integer;
begin
  h := 0.05;
  for i := 0 to 10 do
    begin
      x := 1 + i * h;
      writeln('10^(', x:4:2, ') = ', exp(x * ln(10)):0:15)
    end;
  readln
end.

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

  1. В первой строке объявляются переменные x, h и i типа real и integer соответственно.
  2. Переменная h инициализируется значением 0.05.
  3. В цикле for переменной i от 0 до 10 присваиваются значения от 0 до 10.
  4. Внутри цикла выполняется присвоение переменной x значения 1 + i * h.
  5. С помощью функции writeln выводится значение переменной x в формате '10^(10^X) = 10^X' где X - текущее значение переменной x.
  6. С помощью функции readln считывается значение с консоли.

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы