Составить блок схему в turbo pascal алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью:
пример выполнения
program prak;
uses crt, printer;
const
c = 4.67;
var
alpha, y: real;
a, b: real;
begin
clrscr;
write(‘введите alpha’);
readln(alpha);
a : = ln(alpha)/(2 + cos(alpha * sqr(alpha));
b : = sqrt(abs(sqr(sin(alpha)) * sin(alpha)) - exp(alpha));
y : = a + b + c;
writeln(‘исходные данные’);
writeln(‘alpha = ‘, alpha: 11: 4);
writeln(‘промежуточные данные’);
writeln(‘a = ‘, a: 10: 3, ‘ b = ‘, b: 10: 3);
writeln(‘результат’);
writeln(‘ y = ‘, y: 12: 5);
end.
1. mod - команда, при которой компьютер выводит на экран остаток (mOd, тип O - остаток :))
Это означает, что c= 500 mod 23 , c=17 - ответ
div - команда, при которой компьютер выводит на экран целое число от деления (dIv, типааа i - integer (число с английского) :))
Это означает, что a= 500 div 3 , a=166 - ответ
2. 5 -> 127
Можно составить алгоритм такой:
22122 - это порядок команд и ответ. Не трудно посчитать, как это получилось.
3. Длина цепочки ТОРГ равна 4, значит мы дублируем левый символ (Т).
У нас получается ТОРГТ, а оно не чётное, так как длина цепочки равна 5, значит добавляем к цепочке символ (М) в начало самой цепочки.
Получилось: МТОРГТ - ответ
3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке)
137 / 2 = 68 ( остаток 1)
68 / 2 = 34 (остаток 0)
34 / 2 = 17 (остаток 0)
17 / 2 = 8 (остаток 1)
8 / 2 = 4 (0)
4 / 2 = 2 (0)
2 / 2 = 1 (0)
Теперь записываем остатки в обратном порядке = 10001001
4) Как я понял 8 и 16 это систему счисления, если да то:
а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105
б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44