Найти все значения функции y=ln(x)-3x^2 +8x в промежутке от 1 до n, где значение n задает пользователь

@danilf · Регистрация: 10.09.2018

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

помогите пожалуйста

@ZX Spectrum-128 · 31.12.2018, 12:15

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

y=ln(x)-3x^2 +8x

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

в промежутке от 1 до n

А причем здесь n?

@danilf · 31.12.2018, 22:19 **[ТС]**

это х

@ZX Spectrum-128 · 01.01.2019, 10:38

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var
  n,x,y:real;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    readln(n);
    x:=1;
    while x<=n do
      begin
        y:=ln(x)-3*x*x +8*x;
        writeln(x:16:4,y:16:4);
        x:=x+1;
      end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

@danilf 0 / 0 / 0 Регистрация: 10.09.2018 Сообщений: 31
		1
	Найти все значения функции y=ln(x)-3x^2 +8x в промежутке от 1 до n, где значение n задает пользователь 31.12.2018, 11:52. Показов 1303. Ответов 3 Метки нет (Все метки) помогите пожалуйста 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	31.12.2018, 12:15	2
	Сообщение от danilf y=ln(x)-3x^2 +8x Сообщение от danilf в промежутке от 1 до n А причем здесь n? 0

@danilf 0 / 0 / 0 Регистрация: 10.09.2018 Сообщений: 31
	31.12.2018, 22:19 [ТС]	3
	это х 0

	01.01.2019, 10:38

Опции темы