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

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; // это ваша функция

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

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

• При загрузки картинки в ComboBox как изменить его высоту?
• Состояние клавиш мыши
• Срабатывание разных макросов при изменении разных диапазонов на листе
• Как оптимизировать макрос VBA в Microsoft Office Excel?
• Чтение всех ключей из секции INI-файла в Делфи
• Подключение к БД Firebird в локальной сети
• Скачать текстовый файл с сайта, и добавить в memo
• Сумма столбца, в котором находится минимальный элемент StringGrid
• Canvas + Zoom
• Пример запроса на изменение времени у даты в access