Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2017, 17:34   #1
ParkerVans
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 25
По умолчанию Дан целочисленный массив {bi}, i = 1, 2, ... , n. Вычислить S= b1+ b2^2 + ... + bn^n

Здравствуйте! Проверьте пожалуйста решение задачи. (Вложенные циклы)
Дан целочисленный массив {bi}, i = 1, 2, ... , n. Вычислить S= b1+ b2^2 + ... + bn^n
Код:
program massiv;
const
  n = 2;
var                              
  b: array [1..2 * n] of integer;
  i: integer;
begin
  randomize;
  writeln('Исходная последовательность:');
  for i := 1 to 2 * n-1 do
  begin
    b[i] := random(20);//диапазон значений массива
    write(b[i]:5)
  end;
  writeln;
  writeln('Результат последовательности:');
  for i := 1 to 2 * n-1 do 
  begin
  write(b[i]+b[i+1]*b[i+1]+b[n]*n)//вычисление суммы по формуле 
  end;
end.

Последний раз редактировалось ParkerVans; 25.10.2017 в 17:36. Причина: Выделил код
ParkerVans вне форума Ответить с цитированием
Старый 25.10.2017, 17:40   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

1 вариант
Код:
program massiv;

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

const
   n = 4;
var
   b: array [1..n] of integer;
   i,s: integer;
begin
   randomize;
   writeln('Исходная последовательность:');
   for i := 1 to n do
   begin
      b[i] := random(20);//диапазон значений массива
      write(b[i]:5)
   end;
   writeln;
   writeln('Результат последовательности:');
   s:=b[1];
   For i:=2 to n do
      s:=s+step(b[i],i);
   Writeln(s);
   Readln;
end.
2 вариант
Код:
program massiv;
const
   n = 4;
var
   b: array [1..n] of integer;
   i,j,s,s1: integer;
begin
   randomize;
   writeln('Исходная последовательность:');
   for i := 1 to n do
   begin
      b[i] := random(20);//диапазон значений массива
      write(b[i]:5)
   end;
   writeln;
   writeln('Результат последовательности:');
   s:=b[1];
   For i:=2 to n do
   begin
      s1:=b[i];
      For j:=2 to i do
         s1:=s1*b[i];
      s:=s+s1;
   end;
   Writeln(s);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]

Последний раз редактировалось newerow1989; 25.10.2017 в 17:44.
newerow1989 вне форума Ответить с цитированием
Старый 26.10.2017, 18:15   #3
ParkerVans
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 25
По умолчанию

А если пользователю самому вводить количество элементов массива?
ParkerVans вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан целочисленный массив размера N. Преобразовать массив - C# fr0st1k123 C# (си шарп) 2 17.09.2016 21:39
Дан целочисленный массив A(N) manyhin Помощь студентам 5 03.04.2015 09:31
дан целочисленный массив tragtor Помощь студентам 2 13.03.2014 09:16
Дан одномерный целочисленный массив А(N) cjcezar Помощь студентам 2 12.11.2011 21:11