Question

Нид хелп с Паскалем, ребяты. Не тяну эту хрень вообще ни разу. В общем, нужно сделать программы по данному алгоритму: Y = Сигма, наверху n=10, внизу i=3, /i/

Answer 1

Помог отметь как лучший ответ!

uses crt;
var k,n,i,p,sum : integer;
function f(n:integer):integer;
begin
f:=(abs(n));
end;
begin
writeln ('vvedite konechnui index') ;
readln(p);
sum:=0;
for k:=1 to p do
sum:=sum+f(k);
writeln(sum);
readln;
end.

 

Answer 2

Привет! Я могу помочь с программированием на Паскале. Чтобы я мог точно понять, что нужно сделать по данному алгоритму, давай разберемся с каждым шагом.

1. Y = Сигма: В данном случае, "Сигма" означает сумму. То есть, нам нужно посчитать сумму определенного ряда чисел.

2. Наверху n = 10: Здесь указано, что верхняя граница ряда чисел, по которому нужно посчитать сумму, равна 10.

3. Внизу i = 3: Это указывает на шаг, с которым мы будем переходить от одного числа к другому в ряду. В данном случае, шаг равен 3.

4. /i/: Это означает, что мы будем делить каждое число в ряду на 3.

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

program PascalAlgorithm;
var
  Y, i, n: Integer;
begin
  Y := 0;
  n := 10;
  i := 3;

for i := 1 to n do
  begin
    Y := Y + i;
  end;

Y := Y / i;

writeln('Сумма ряда чисел: ', Y);
end.

В этом примере мы используем цикл `for` для прохода через каждое число в ряду от 1 до 10. Мы добавляем каждое число к переменной `Y`, чтобы посчитать сумму. Затем мы делим полученную сумму на `i`, чтобы выполнить требуемое деление.

Надеюсь, это поможет! Если у тебя возникнут еще вопросы, не стесняйся задавать.