Как решить данную задачу на ЯП "Pascal" ? Напишите процедуру – заставку к программе вычисления
математических функций в виде
*
Программа
* вычисления математических функций
*
Автор: Фамилия. И.О.
Заставка должна выводиться на очищенный экран, оставаться на экране в
течение 3 сек. С последующей очисткой экрана. Вызовите процедуру Zastavka в
начале программы.
а) (1+1) - дизъюнкция, результат 1
(1+0) - дизъюнкция, результат 1
1+1 - дизъюнкция, результат 1
б) Если А = 1
(1*1) = 1 конъюнкция
(¬А*0) = (0*0) = 0 конъюнкция
(1*А)+(¬А*0) = 1+0 = 1 дизъюнкция
((1*А)+(¬А*0))+1 = 1+1 = 1 дизъюнкция
Если А = 0
(1*0) = 0 конъюнкция
(¬А*0) = (1*0) = 0 конъюнкция
(1*А)+(¬А*0) = 0+0 = 0 дизъюнкция
((1*А)+(¬А*0))+1 = 0+1 = 1 дизъюнкция
Объяснение:
+ дизъюнкция (логическое сложение) - истина когда хотя бы один аргумент истинный
* конъюнкция (логическое умножение) - истина, когда оба аргумента истинны
¬ инверсия - превращает 1 в 0 и 0 в 1
Программа:
Python:
5)
from random import randint
arr = [randint(-10, 10) for i in range(10)]
print(arr[::-1])
7)
from random import randint
arr = [randint(-10, 10) for i in range(10)]
arr1_sum_plus = arr1_sum_minus = arr1_ser_plus = arr1_ser_minus = arr1_plus = arr1_minus = 0
for i in arr:
if i > 0:
arr1_sum_plus += i
arr1_plus += 1
if i < 0:
arr1_sum_minus += i
arr1_minus += 1
arr1_ser_plus = arr1_sum_plus / arr1_plus
arr1_ser_minus = arr1_sum_minus / arr1_minus
for i in range(10):
arr[i] = arr[1] * 2
arr2_sum_plus = arr2_sum_minus = arr2_ser_plus = arr2_ser_minus = arr2_plus = arr2_minus = 0
for i in arr:
if i > 0:
arr2_sum_plus += i
arr2_plus += 1
if i < 0:
arr2_sum_minus += i
arr2_minus += 1
arr2_ser_plus = arr2_sum_plus / arr2_plus
print('Сума додатних елементів змінилася на:', arr2_sum_plus - arr1_sum_plus)
print("Сума від'ємних елементів змінилася на:", arr2_sum_minus - arr1_sum_minus)
print('Середнє арифметичне додатних елементів змінилося на:', arr2_ser_plus - arr1_ser_plus)
print("Середнє арифметичне від'ємних елементів змінилося на:", arr2_ser_minus - arr1_ser_minus)