Напечатать таблицу значений функции у=ln х-х*х на отрезке [0,5, 1,5] с шагом 0,1.

@Karamelka · Регистрация: 16.03.2009

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

Помогите записать на паскале!!!

Задача: Напечатать таблицу значений функции у=ln х-х*х на отрезке [0,5, 1,5] с шагом 0,1.

@Puporev · 16.03.2009, 09:09

Pascal

uses crt;
Var x,xn,xk,dx,y:real;
begin
clrscr;
xn:=0.5;
xk:=1.5;
dx:=0.1;
x:=xn-dx;{отступим на шаг назад, иначе не попадаем точно в хк}
while x<=xk do{пока не перешли через хк}
  begin
   x:=x+dx;{наращиваем х}
   y:=ln(x)-x*x;{считаем}
   writeln('x=',x:4:1,'    y=',y:8:4);{выводим в таблицу}
  end;
readln
end.

@Karamelka · 16.03.2009, 09:22 **[ТС]**

Спасибо огромное!!! Вы не представляете как меня выручили!!!

@Karamelka 0 / 0 / 0 Регистрация: 16.03.2009 Сообщений: 6
		1
	Напечатать таблицу значений функции у=ln х-хх на отрезке [0,5, 1,5] с шагом 0,1. 16.03.2009, 01:33. Показов* 2523. Ответов 2 Метки нет (Все метки) Помогите записать на паскале!!! Задача: Напечатать таблицу значений функции у=ln х-х*х на отрезке [0,5, 1,5] с шагом 0,1. 0

@Karamelka 0 / 0 / 0 Регистрация: 16.03.2009 Сообщений: 6
	16.03.2009, 09:22 [ТС]	3
	Спасибо огромное!!! Вы не представляете как меня выручили!!! 0

Опции темы

Напечатать таблицу значений функции у=ln х-х*х на отрезке [0,5, 1,5] с шагом 0,1.

Решение