Вычислить значение функции для отрицательных элементов массива и подсчитать их количество - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

дан одномерный массив P, который состоит из 32 элементов. вычислить значение функции для отрицательных элементов массива и подсчитать их количество

Решение задачи: «Вычислить значение функции для отрицательных элементов массива и подсчитать их количество»

textual
Листинг программы
var n,i,k: integer; b, A: real;
a:array [1..n] of real;
 
begin
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
n:=32; k:=0; b:=-3.85;
for i:=1 to n do 
readln(a[i]);
 
for i:=1 to n do 
if (a[i]<0) then begin
k:=k+1;
A= ((sqr(log(a[i])^i))+b)/(0.7*(a[i])^i -b);
writeln(A); end;
writeln(k);
end.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные n, i, k, b и A, которые будут использоваться для выполнения задач.
  2. Переменная n инициализируется значением 32.
  3. Переменная k инициализируется значением 0.
  4. Переменная b инициализируется значением -3.85.
  5. Затем происходит чтение данных из файла input.txt в переменную a[1..n] с помощью цикла for.
  6. После чтения данных происходит проверка каждого элемента массива a[i] на отрицательность. Если элемент отрицательный, то переменная k увеличивается на 1, а переменная A вычисляется по формуле ((sqr(log(a[i])^i))+b)/(0.7*(a[i])^i -b).
  7. Вычисленное значение A записывается в файл output.txt с помощью функции writeln.
  8. В конце выводится значение переменной k, которое представляет количество отрицательных элементов в массиве.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы