Разложение числа на простые множители
begin
write('Введите целое число x (x>1): ');
var x := ReadInteger;
assert(x>1);
var i := 2;
write(x, ' = 1');
repeat
if x mod i = 0 then
begin
write(' * ', i);
x := x div i;
end
else i += 1;
until x = 1;
end.
Табулирование функции f(x) на отрезке в точках, разбивающих отрезок на N частей
Дан отрезок [a,b]
function f(x: real): real;
Begin
result := sin(x)*x;
end;
Var
N: integer;
a, b: real;
Begin
write(' Введите N: ');
N := ReadInteger;
Assert(N>0);
write(' Введите a и b: ');
a := ReadReal;
b := ReadReal;
var h := (b-a)/N;
var x := a;
for var i:=0 to N do
Begin
writeln(x:5:2,f(x):10:4);
x += h;
end;
End.
Разрыв раздела →
Вопрос №1 16 булевых функций:
0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 |
0 | 1 | 0 | 0 | 0 | 0 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 1 | 1 | 1 | 1 |
1 | 0 | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 1 |
1 | 1 | 0 | 1 | 0 | 1 | 0 | 1 | 0 | 1 | 0 | 1 | 0 | 1 | 0 | 1 | 0 | 1 |
[З. М. Д.1]!?
устно
[ЛЕ2]Такие клевые штучки :3
Я о них не знала :D
[З. М. Д.3]Выделены основные. Учитывать «7» формулу при ответе
[ЛЕ4]Думаю, это можно описать более кратко, но тут приведу всё, в качестве ликбеза. Крюков этот вопрос к «широким» не относит. Сказал, что там кратенько все. + Блок-схемы из лекций.
[ЛЕ5]То же самое. Прочитать и переварить.
|
|
[ЛЕ6]Ну и тут.
Дата добавления: 2019-07-15; просмотров: 225; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!