написать программы в Паскале. Задание 1
Как правильно выполнять задания при изучении раздела информатики “Алгоритмизация”.
Написать код программы на Паскале и составить блок схему для решения задачи.
Дана треугольная пирамида. Высота пирамиды равна 15 см. Все боковые грани с плоскостью основания образуют равные двугранные углы ϕ (величину угла задать самостоятельно путем ввода с клавиатуры). Вычисли высоты боковых граней пирамиды.
На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы. Оформить блок схему на бланке задания или в текстовом документе.
Задание 2
Написать программу на Паскале, в которой переменной Y присваивается значение наибольшей из четырех величин A, B, C и D. Входные данные задать с оператора ввода с клавиатуры.
На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.
Задание 3
Написать программу на Паскале для решения задачи.
Найти сумму n элементов следующего ряда чисел:
7, 14, 21, 28, ...
Количество элементов (n) ввести с клавиатуры.
На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.
Задание 4
Написать программу на Паскале для решения задачи.
Вычислить произведение модулей элементов одномерного массива из 10 чисел, расположенных после первого отрицательного элемента. Входные данные задать самостоятельно. Предусмотреть наличие положительных и отрицательных значений элементов массива.
На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.
domains treetype = tree(integer, treetype, treetype); empty
predicates
max_t(treetype, integer)
min_t(treetype, integer)
max(integer,integer,integer)
min(integer,integer,integer)
clauses
max(M,N,N) :- N>=M, !.
max(M,N,M) :- M>=N, !.
min(M,N,N) :- N<=M, !.
min(M,N,M) :- M<=N, !.
max_t(tree(X,empty,empty),X) :- !.
max_t(tree(X,empty,R),Q) :- max_t(R,N), max(X,N,Q). max_t(tree(X,L,empty),Q) :- max_t(L,N), max(X,N,Q).
max_t(tree(X,L,R),Q) :- max_t(L,LM), max_t(R,RM), max(RM,LM,QM), max(X,QM,Q).
min_t(tree(X,empty,empty),X) :- !.
min_t(tree(X,empty,R),Q) :- min_t(R,N), min(X,N,Q). min_t(tree(X,L,empty),Q) :- min_t(L,N), min(X,N,Q).
min_t(tree(X,L,R),Q) :- min_t(L,LM), min_t(R,RM), min(RM,LM,QM), min(X,QM,Q).
K = Количество символов в тексте
i = информационный вес символа
Т.е чтобы посчитать объем информации в тексте, нужно посчитать количество символов и умножить на информационный вес символа.
V = K*i
i - известно, ищем K:
K = 48*40*64 = 122 880 количество символов.
V= 122 880*8 = 983 040 Бит(для перевода бит в байты нужно разделить на 8) = 122880 Байт(для перевода байтов в килобайты нужно делить на 1024) = 120 Кбайт (Если бы было бы больше 1024 килобайта, то можно было бы перевести в Мегабайты, разделив на 1024).