danulpopov// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
10) function return_square(a, b, alpa :real):real; begin var pi := arccos(-1); return_square:= 0.5*a*b*sin(alpa*pi/180); end;
begin var n:= readInteger('N ='); for var i:= 1 to n do Writeln('S = ', return_square(ReadReal('a ='), ReadReal('b ='),ReadReal('angle ='))) end.
Там , где площадь и периметр N прямоугольников begin var n:= readInteger('N ='); for var i:= 1 to n do begin var (a,b):=ReadReal2('a, b ='); Writeln('S = ', a*b); Writeln('P = ', 2*(a+b)); end; end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
10)
function return_square(a, b, alpa :real):real;
begin
var pi := arccos(-1);
return_square:= 0.5*a*b*sin(alpa*pi/180);
end;
begin
var n:= readInteger('N =');
for var i:= 1 to n do
Writeln('S = ', return_square(ReadReal('a ='),
ReadReal('b ='),ReadReal('angle =')))
end.
Там , где площадь и периметр N прямоугольников
begin
var n:= readInteger('N =');
for var i:= 1 to n do begin
var (a,b):=ReadReal2('a, b =');
Writeln('S = ', a*b);
Writeln('P = ', 2*(a+b));
end;
end.