// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (a,b,h):=ReadReal3('Длины оснований и высота трапеции:'); if a<b then Swap(a,b); // a>b всегда var c:=Sqrt(h*h+Sqr((a-b)/2)); // боковая сторона, теорема Пифагора Writeln('Периметр равен ',a+b+2*c:0:3) end.
Пример Длины оснований и высота трапеции: 6.5 8 7.32 Периметр равен 29.217
№1.40
begin var (a,b):=ReadReal2('Введите a и b:'); var x:=(2/(a*a+25)+b)/(Sqrt(b)+(a+b)/2); var y:=(Abs(a)+Sin(2*b))/(5.5*a); Writeln('x=',x,', y=',y) end.
Пример Введите a и b: -15.32 0.519 x=-0.078846488394375, y=-0.192041182798433
№1.54
begin var (x,y):=ReadInteger2('Введите возраст Тани и Мити:'); var m:=(x+y)/2; Writeln('Средний возраст =',m:0:1); Writeln('Возраст Тани отличается на ',x-m:0:1,', Мити на ',y-m:0:1) end.
Пример Введите возраст Тани и Мити: 15 12 Средний возраст =13.5 Возраст Тани отличается на 1.5, Мити на -1.5
Answers & Comments
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,h):=ReadReal3('Длины оснований и высота трапеции:');
if a<b then Swap(a,b); // a>b всегда
var c:=Sqrt(h*h+Sqr((a-b)/2)); // боковая сторона, теорема Пифагора
Writeln('Периметр равен ',a+b+2*c:0:3)
end.
Пример
Длины оснований и высота трапеции: 6.5 8 7.32
Периметр равен 29.217
№1.40
begin
var (a,b):=ReadReal2('Введите a и b:');
var x:=(2/(a*a+25)+b)/(Sqrt(b)+(a+b)/2);
var y:=(Abs(a)+Sin(2*b))/(5.5*a);
Writeln('x=',x,', y=',y)
end.
Пример
Введите a и b: -15.32 0.519
x=-0.078846488394375, y=-0.192041182798433
№1.54
begin
var (x,y):=ReadInteger2('Введите возраст Тани и Мити:');
var m:=(x+y)/2;
Writeln('Средний возраст =',m:0:1);
Writeln('Возраст Тани отличается на ',x-m:0:1,', Мити на ',y-m:0:1)
end.
Пример
Введите возраст Тани и Мити: 15 12
Средний возраст =13.5
Возраст Тани отличается на 1.5, Мити на -1.5