Разработать алгоритм и программу табулирования функции

@Clayy · Регистрация: 22.05.2015

Author24 — интернет-сервис помощи студентам

Разработать алгоритм и программу табулирования функции

e=10ⁿ/lg(n+2)

при изменении n от 1 до 20 с шагом 0.5. Вычисление функции lg(n+2) выполнить в подпрограмме-функции.

@Clayy · 22.05.2015, 22:05 **[ТС]**

Что может не так ?

Pascal

var
n,e : real;
 
function lg(x : real) : real;
begin
lg := ln(x)/ln(10);
end;
 
begin
n := 1;
 
while n <= 20 do
begin
e := exp(n*ln(10))/lg(n+2);
writeln(n:0:1,'|', e:0:6);
n := n + 0.5;
end;
end.

@Cyborg Drone · 24.05.2015, 14:09

Не по теме:

Сообщение от Clayy

Что может не так ?

Правила форума не соблюдаете, вот что не так, для начала. Фотографии текста запрещены. Ещё раз перечитайте правила и соблюдайте их. В следующий раз фотографию с текстом буду просто блокировать, а не заменять на текст.

Да всё так, на самом-то деле.

Разве что, по заданию требуется описать функцию lg(n+2), Вы же описали функцию lg(n). Но это, по-моему, казуистика. А вообще лучше перепишите функцию и её вызов.

Ну, ещё вывод я бы сделал по-другому:

Pascal

15	writeln(n:4:1,' \| ', e);

:4:1 чтобы табличка была ровной, а "e" в экспоненциальной форме - для красоты, потому что из-за усечения чисел с плавающей точкой, начиная с n=9, выводится не совсем правда: нули в конце числа, которые обязаны быть не нулями. Глаза режет.

Для повышения разрядности вывода "e" объявил бы

Pascal

1 2	var n,e : double;

и у функции аргумент и возвращаемое значение тоже double. Хотя можно не париться и оставить как есть, то бишь real (везде).

И ещё: если Вам не удаётся увидеть результата работы Вашей программы (чё-то там моргнуло и исчезло), добавьте перед последней строкой ("end.") строку "readln", тогда программа закроется не сразу после окончания вычислений, а только после того, как будет нажата клавиша <Enter>.

@Clayy · 02.06.2015, 15:37 **[ТС]**

Можно по подро6нее

@Cyborg Drone · 02.06.2015, 16:33

??? подробнее некуда. Подробнее только учебник. Вы не сами программу писали, да? Вот мой вариант:

Pascal

function lgp(x: double) : double;
begin
  lgp := ln(x + 2)/ln(10)
end;
 
var n, e: double;
 
begin
  n := 1;
  while n <= 20 do
    begin
      e := exp(n * ln(10)) / lgp(n);
      writeln(n:4:1, ' | ', e);
      n := n + 0.5
    end;
  readln
end.

@Clayy 0 / 0 / 0 Регистрация: 22.05.2015 Сообщений: 3
		1
	Разработать алгоритм и программу табулирования функции 22.05.2015, 21:27. Показов 1586. Ответов 4 Метки нет (Все метки) Разработать алгоритм и программу табулирования функции e=10ⁿ/lg(n+2) при изменении n от 1 до 20 с шагом 0.5. Вычисление функции lg(n+2) выполнить в подпрограмме-функции. 0

@Clayy 0 / 0 / 0 Регистрация: 22.05.2015 Сообщений: 3
	02.06.2015, 15:37 [ТС]	4
	Можно по подро6нее 0

	02.06.2015, 16:33

Опции темы

Разработать алгоритм и программу табулирования функции

Решение