Сложная задача!

[Pashok6]

7 вариант, паскаль, делал через 5-ый, не получилось! Пожалуйста,помогите!

[Stilet]

var r,t:double;
begin
 t:=b;while t<=2 do begin
  r:=atan((2*t-3)/(t+15))+ln(abs(t));
  if r<0 then writeln(t:10:5;r:10:5);
  t:=t+h;
 end;
 readln;
end.

Добавь описание h и b и проверь есть ли в твоем паскале atan() и запускай

[Mad_Cat]

есть ли в твоем паскале atan()

Arctan есть в Math
и тип double; лучше заменить на real;

[Pashok6]

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

var r,t:double;
begin
 t:=b;while t<=2 do begin
  r:=atan((2*t-3)/(t+15))+ln(abs(t));
  if r<0 then writeln(t:10:5;r:10:5);
  t:=t+h;
 end;
 readln;
end.

Добавь описание h и b и проверь есть ли в твоем паскале atan() и запускай

Arctan нужно, он есть. double надо заменить на real. А описание в h и b, что нужно добавить ?

[Pashok6]

Ну помогите мне, кто-нибудь, пожалуйста !!!

[Zer0]

Вы задание вообще читали? h и b - даны в условии (b - начало отрезка, h-шаг), их нужно ввести с клавиатуры, или это так сложно?

[Pashok6]

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

Вы задание вообще читали? h и b - даны в условии (b - начало отрезка, h-шаг), их нужно ввести с клавиатуры, или это так сложно?

Я знаю, что (b - начало отрезка, h-шаг), как это записать в программе ?

[kuy]

как это записать в программе ?

write('Input b:'); readln(b);

b - real or integer. с h также само)

[Pashok6]

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

write('Input b:'); readln(b);

b - real or integer. с h также само)

Напишите программу, от начала до конца, пожалуйста!

[Mad_Cat]

Напишите программу, от начала до конца, пожалуйста!

Надо ж быть таким Бар...ном (и пропущена ни фига не буква "и" а буква "А")

uses Math;
var r,t,h,b:real;
begin
readln(b,h);
 t:=b;while t<=2 do begin
  r:=arctan((2*t-3)/(t+15))+ln(abs(t));
  if r<0 then writeln(t:10:5;r:10:5);
  t:=t+h;
 end;
 readln;
end.