Go To

[pavloff_049]

Ребят...неделю писал программу метод касательных через процедуру Go to, наконец то заработала, но препод увидев ее ругаться начала на мою бездарность, говорит что вызов процедуры нерационально...кто может подскажите как это исправить, вот моя задача

Program MHK;
Uses CRT;
var a, b, Y: real;
function f(x: real): real;
var func: real;
begin
func:=x*x-20*sin(x);
f:=func;
end;
function f1(x: real): real;
var func: real;
begin
func:=2*x-20*cos(x);
f1:=func;
end;
function f2(x: real): real;
var func: real;
begin
func:=2+20*sin(x);
f2:=func;
end;
procedure schet (a, b: real; var res: real);
var k, E, O, x0, x, r: real;
label m1;
begin
E:=0.00001;
k:=0;
IF f(a)*f2(a)>0
THEN
begin
x0:=a;
GOTO m1;
end
ELSE
x0:=b;
GOTO m1;
m1:
k:=k+1;
x:=x0-f(x0)/f1(x0);
O:=x0-x;
writeln ('k:',k:2:0,' x:',x0:2:5,' f(x):',x:2:5,' E:',O:2:5);
O:=x-x0;
IF O>=0 Then O:=O Else O:=-O;
IF O>=E
THEN
begin
x0:=x;
GOTO m1;
end
ELSE
res:=x;
end;
BEGIN
a:=0.001;
b:=4;
schet (a,b,Y);
writeln ('Otvet:',Y:2:5);
END.

заранее спасибо=)))

[Guy]

вместо к примеру функции f

function f(x: real): real;
var func: real;
begin
func:=x*x-20*sin(x);
f:=func;
end;

в коде заменить к примеру
x:=x0-f(x0)/f1(x0);

на
x:=x0-(x0*x0-20*sin(x0))/(x0*x0-20*sin(x0));

А так это бред какой то хер поймёшь что он делает...

[ZuBy]

var
  a, b, y: real;

function f(x: real): real;
begin
  f := (x * x - 20 * sin(x)) * (2 + 20 * sin(x));
end;

function f1(x: real): real;
begin
  f1 := (x * x - 20 * sin(x)) / (2 * x - 20 * cos(x));
end;

procedure schet(a, b: real; var res: real);
var
  k, E, O, x0, x: real;
label
  m1;
begin
  E := 0.00001;
  k := 0;
  if f(a) > 0 then
  begin
    x0 := a;
    GOTO m1;
  end
  else
    x0 := b;
  GOTO m1;
m1:
  k := k + 1;
  x := x0 - f1(x0);
  O := x0 - x;
  writeln('k:', k:2:0, ' x:', x0:2:5, ' f(x):', x:2:5, ' E:', O:2:5);
  O := x - x0;
  if O >= 0 then
    O := O
  else
    O := -O;
  if O >= E then
  begin
    x0 := x;
    GOTO m1;
  end
  else
    res := x;
end;

[hon]

1. Например вместо функции f можно поставить один оператор:
f:=x*x-20*sin(x)
2. Оформи код для удобночитаемости. Вот неправильное оформление кода:

var i:integer;
begin
i:=6;
Writeln('testProgram');
if i>6 then
begin
Writeln('i>6')
Writeln(':-)');
end;
else Writeln(':-(')
...
end;

А вот правильное:

var i:integer;
begin
   i:=6;
   Writeln('testProgram');
   if i>6 then
      begin
      Writeln('i>6')
      Writeln(':-)');
      end;
   else Writeln(':-(')
...
end;

Из книги:

Где можно поставить один пробел, можно поставить несколько.

Турбо Паскаль 7.0 Самоучитель


Код трудночитаем и имеет глупые процедуры и способы исчисления.
Сократи код убрав ненужные функции и переменные.

Итого:
1. Оформи код.
2. Построй код правильнее.

[Serge_Bliznykov]

я уже молчу про использование меток (вполне можно (И НУЖНО) обойтись без них!),
но вот этот участок кода меня шокировал:

 if f(a) > 0 then
  begin
    x0 := a;
    GOTO m1;
  end
  else
    x0 := b;
  GOTO m1;
m1:
  k := k + 1;

это полная бессмыслица - переходить туда, куда и так перейдёт управление.
этот кусочек кода должен быть записан так (с полным сохранением функциональности!):

 if f(a) > 0 then
    x0 := a
  else
    x0 := b;
m1:
  k := k + 1;