Другие языки программирования и технологии

Даны натуральное число n, действительные числа a1,.,an. Вычислить: |a1|,|a1+a2|,.,|a1+.+an|; delphi

|a1|,|a1+a2|,.,|a1+.+an|
Анатолий Никифоров
Анатолий Никифоров
604 
 PROGRAM q233587367; 

{$AppType CONSOLE} 

 

VAR 

    n, i : Integer; 

    sum, ai : Real; 

 

BEGIN 

 

    Write('n = ? '); ReadLn(n); 

 

    sum := 0; 

 

    for i := 1 to n do begin 

 

        Write('a_',i,' = ? '); ReadLn(ai); 

 

        sum := sum + ai; 

 

        case i of

            1 : Write('|a_1| = ');

            2 : Write('|a_1 + a_2| = ');

            else

                Write('|a_1 + ... + a_',i,'| = ');

            end;

         

        WriteLn(abs(sum)); 

         

        end; 

 

END.
СИ
Салават Исмуханов
92 168
Лучший ответ
Вот пример кода на Delphi для вычисления выражения |a1|, |a1+a2|, ..., |a1+...+an|:

delphi
program AbsoluteSums;

uses
SysUtils;

var
n, i: Integer;
a, sums: array of Real;

begin
Write('Введите значение n: ');
ReadLn(n);

SetLength(a, n);
SetLength(sums, n);

for i := 0 to n - 1 do
begin
Write('Введите значение a', i + 1, ': ');
ReadLn(a[i]);
end;

sums[0] := Abs(a[0]);
WriteLn('Суммы абсолютных значений:');
WriteLn('|a1| = ', sums[0]);

for i := 1 to n - 1 do
begin
sums[i] := Abs(sums[i - 1] + a[i]);
WriteLn('|a1 + ... + a', i + 1, '| = ', sums[i]);
end;

ReadLn;
end.

В этом примере мы используем массивы `a` и `sums` для хранения входных чисел и результатов соответственно. Мы считываем значение `n` с клавиатуры и создаем массивы нужного размера.

Затем мы заполняем массив `a` значениями, вводимыми пользователем.

Далее мы вычисляем последовательно суммы абсолютных значений и выводим их на экран.

После завершения вычислений программа ожидает ввода любой клавиши перед закрытием.
Егор Варюшин
Егор Варюшин
14 368

Похожие вопросы