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

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

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

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

• СТАТЬЯ 6. НАЧАЛО ЖИЗНИ САЙТА
• Как получить список доступных языков ввода
• Запретить клавишу ESC при вводе значения в textbox на форме
• Быстрое написание программ на WinAPI
• Как сделать чтобы делая клик по одному из секторов окружности он выделялся определённым цветом?
• Сохранение столбца в секции ini файла
• Сортировка в обе стороны при повторном нажатии на заголовок
• Теги в теле письма (php)
• Как запретить пользователю изменять размер формы?
• Шифрование данных [обсуждение]