Question

Использую подпрограмму вычисления степени (можно оформить её как процедуру или как функцию), напишите на Паскале программу расчёта выражения: y=x^2+ x^4+… +x^n Значения x и n вводятся с клавиатуры

Answer 1

Ответ:

#python

x = float(input("x = "))

n = float(input("n = "))

i = 2

y = 0

while i < n:

   if i%2 == 0:

       y += pow(x,i)

   i += 1

print("y =", y)

#pascal

uses Math;

var

   x,y,n: real;

   i :integer;

begin

   i:= 2;

   y:= 0;

   write('x = ');

   readln(x);

   write('n = ');

   readln(n);

   while i < n do begin

       if i mod 2 = 0 then begin

           y:= y + Power(x,i);

       end;

       i:= i+1;

   end;

   write('y = ',y:0:2);

end.

   

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая вычисляет выражение y = x^2 + x^4 + ... + x^n:

pascalCopy code
program PowerCalculation;

var
  x, n, i: Integer;
  y: Integer;

function Power(base, exponent: Integer): Integer;
var
  result, j: Integer;
begin
  result := 1;
  for j := 1 to exponent do
    result := result * base;
  Power := result;
end;

begin
  writeln('Введите значение x:');
  readln(x);
  
  writeln('Введите значение n:');
  readln(n);

  y := 0;
  for i := 2 to n step 2 do
    y := y + Power(x, i);

  writeln('Результат: ', y);
end.

При запуске программы вы будете приглашены ввести значения x и n с клавиатуры. Затем программа вычислит значение y по заданному выражению и выведет результат на экран. В этом примере предполагается, что x и n являются целыми числами.