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