Периметр прямоугольника: P=2(a+b). Площадь: S=ab
Косинусы углов в треугольнике:
cosA=(b²+c²-a²)/(2bc); cosB=(a²+c²-b²)/(2ac); cosC=(a²+b²-c²)/(2ab)
var
a,b:real;
begin
Write('Введите a,b: ');
Read(a,b);
Write('P=',2*(a+b),', S=',a*b)
end.
Тестовое решение
Введите a,b: 12.2 8
P=40.4, S=97.6
var
a,b,c,cosA,cosB,cosC:real;
begin
Write('Введите a,b,c: ');
Read(a,b,c);
cosA:=(b*b+c*c-a*a)/(2*b*c);
cosB:=(a*a+c*c-b*b)/(2*a*c);
cosC:=(a*a+b*b-c*c)/(2*a*b);
Write('cosA=',cosA,', cosB=',cosB,', cosC=',cosC)
end.
Тестовое решение
Введите a,b,c: 15.3 8 14.2
cosA=0.138864436619718, cosB=0.855495719414526, cosC=0.393995098039216
var
n : integer;
S : decimal;
function fac(n : integer) : decimal;
begin
result := 1;
for var i := 1 to n do result := result * i;
end;
begin
write('введите n = ');
readln(n);
for var i := 1 to n do S := S+fac(i);
writeln('S=', S);
end.
Uses GraphABC;
var n,i,a1,a2,r:integer;
begin
a1:=0;
write('Количество частей: ');
readln(n);
r:=round(360/n);
for i:=1 to n do
begin a2:=a1+r;
if i=n then a2:=360;
Brush.Color := clRandom;
Pie(300,250,200,a1,a2);
a1:=a2;
end
<span>end.
Если ввведено число, на которое 360 без остатка не делится, то один из секторов из-за округления получается больше, чем другие. Устранять это не стал, т.к. это привело бы к усложнению программы.</span>
Дано:
V*4 с=608 Мб
K=2048*1024
I=8 бит=1 байт
Найти:
частота — ?
Решение:
V=608 : 4=152 Мб (за 1 сек) * 1024=155648 Кб * 1024=159 383 552 байт
V=K*I*частота
частота=V/(K*I)
частота=159 383 552/(2048*1024*1)=76 Гц
Ответ: 76 Гц
