Question

Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer): real; var i: integer; k: real; begin k:=1; for i := 1 to n do k := k * x; stup := k; end; begin writeln ('Введите x (число должно быть положительным'); readln (x); if x >= 0 then begin na := 6; nb := 3; nc := 5; xb := x-5; xc := 2*x+1; a := stup (x,na); b := stup (xb, nb); c := stup ( xc, nc); y := (a*b)/c; Writeln ('y=', y:5:2); end; end.

Answer 1

Var
  a,b,c,y,x,:real;

function stup(x:real;n:integer):real;
var
  i:integer;
  k:real;
begin
  k:=1;
  for i:=1 to n do k:=k*x;
  stup:=k;
end;

begin
  writeln ('Введите x (число должно быть положительным)'); readln (x);
  if x>=0 then begin
    a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
    y:=(a*b)/c;
    Writeln ('y=',y:5:2);
    end
end.

Answer 2

Вот сокращенная версия программы:

pascalCopy code
program sr;

var
  x, xb, xc: real;
  na, nb, nc: integer;

function stup(x: real; n: integer): real;
var
  i: integer;
  k: real;
begin
  k := 1;
  for i := 1 to n do
    k := k * x;
  stup := k;
end;

begin
  writeln('Введите x (число должно быть положительным): ');
  readln(x);

  if x >= 0 then
  begin
    na := 6;
    nb := 3;
    nc := 5;
    xb := x - 5;
    xc := 2 * x + 1;
    
    writeln('y=', (stup(x, na) * stup(xb, nb)) / stup(xc, nc):5:2);
  end;
end.

Изменилось несколько вещей:

1. Убраны переменные a, b, c и y, так как они использовались только для временных расчетов, и вычисления можно было сразу производить в выводе.
2. Убраны неиспользуемые переменные xb, xc.
3. Убрано лишнее условие считывания if x >= 0 then, так как оно не имеет смысла для чисел, введенных пользователем, и не влияет на результат программы.