Предмет: Информатика,
автор: mishka121
Надо срочно решить
Задания делать в Pascal ABC
Приложения:
Ответы
Автор ответа:
0
// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Похожие вопросы
Предмет: Русский язык,
автор: ekaterinagasviani237
Предмет: Физика,
автор: 58egorkreed58
Предмет: Українська література,
автор: zamshevadaria
Предмет: Информатика,
автор: helperprogram