Подпрограммы и массивы

Posted by obzor under Delphi

Написать функцию, которая вычисляет сумму и произведение ненулевых элементов массива X(N). С помощью подпрограммы подсчитать вычисляет сумму и произведение ненулевых элементов массивов A(8), B(6), C(10). Элементы массивов A, B, C вычисляются по формулам:
Ai=0.15isin(0.5i^2)+1,
Bk=0.6kcos(0.1k^2+12k),
CL=0.2(L-5)^2+0.5(L-4)+2.

type_Oleg

А динамические массивы вы проходили ?
Или с ними тоже прям беда.

program RaccoonRocket;

{$APPTYPE CONSOLE}
type tMass=array of Double; // динамический массив

procedure procSumPro(mas:tMass;var sum,pr:Double); // это ваша процедура
var n,i:Byte;
begin
 sum:=0;
 pr:=0;
 n:=Length(mas);
 if n=0 then Exit;  // если массив пустой, то и нечего считать
 pr:=1;
 for i:=0 to n-1 do
  if mas[ i]<>0 then
   begin
    sum:=sum+mas[ i];
    pr:=pr*mas[ i];
   end;
end;

begin
 // а собственно саму программу сами пишите
 // вызывайте в ней процедуру procSumPro , и т.д. 
end.

Вообщем, двигайтесь в сторону — почитать про динамические массивы и вызов процедур.
PS В принципе, в качестве подпрограммы можете использовать не процедуру, а функцию :

function sum(mas:tMass;var pr:Double):Double; // это ваша функция

тема на форуме

Случайные статьи

• Уменьшить размер букв в зависимости от ширины GroupBox
• Защита картинки в ячейке от выделения кликом левой и правой кнопкой мыши
• Различия в работе программы на Win 10 и Win Server
• Исходники игры крестики нолики
• “Умная” футболка
• Операционная система unix, термины и понятия
• Как показывать PopupMenu под кнопкой в FireMonkey?
• Рассылка. Выпуск 161
• Рассылка. Выпуск 171
• Графика. Вывод узора на экран