1г

Delphi, вещественный массив

Разработать приложение в среде Delphi, позволяющее для последовательности элементов вещественного массива M с использованием циклов вычислить значение Z, определяемое из таблицы. Значения массива M и необходимых параметров задаются самостоятельно при выполнении тестового примера. Количество элементов массива должно быть не меньше 10. Элементы массива должны содержать нули и положительные и отрицательные вещественные числа
Z=A+10.134/(B+2)C
A – сумма элементов со значениями из интервала [K, L]
В – 4 элемент массива
C – последний положительный элемент

По дате

По рейтингу

lekha_mironov_79

Мастер

1г

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758

 program ComputeZValue; 
 
{$APPTYPE CONSOLE} 
 
uses 
  SysUtils; 
 
const 
  K = -5; 
  L = 5; 
 
var 
  M: array of Real; 
  A, B, C, Z: Real; 
  i, j: Integer; 
 
begin 
  // Задайте длину массива
  SetLength(M, 10); 
 
  // Заполните массив случайными значениями
  for i := 0 to Length(M) - 1 do 
  begin 
    M[i] := RandomRange(-10, 10); 
    WriteLn('M[', i, '] = ', M[i]); 
  end; 
 
  // Вычислить значение
  A := 0; 
  for i := 0 to Length(M) - 1 do 
  begin 
    if (M[i] >= K) and (M[i] <= L) then 
      A := A + M[i]; 
  end; 
 
  // Вычислить значение B
  B := M[3]; 
 
  // Вычислить значение C
  C := 0; 
  for i := Length(M) - 1 downto 0 do 
  begin 
    if M[i] > 0 then 
    begin 
      C := M[i]; 
      Break; 
    end; 
  end; 
 
  // Вычислить значение Z
  Z := A + 10.134 / ((B + 2) * C); 
 
  // Выведите результат
  WriteLn('Z = ', Z); 
 
  // Дождитесь ввода данных пользователем
  ReadLn; 
end.