Программирование в среде паскаль. Придётся немного попотеть, 1.38,1.40,1.54.

Question

Программирование в среде паскаль. Придётся немного попотеть, 1.38,1.40,1.54.

---

Answer 1

№1.38

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,h):=ReadReal3('Длины оснований и высота трапеции:');
  if ab всегда
  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

Answer 2

1.38)   BeginVar a:=ReadInteger('введите 1 сторону');Var b:=ReadInteger('введите 2 сторону');Var c:=ReadInteger('введите 3 сторону');Var p:=a+b+c;write(p);end.
1.40)Все по шаблону

Comments

Begin
Var x:=Readreal('введите возраст Тани');
Var y:=Readreal('введите Возраст Мити');
Var c:=(x+y)/2;
if c>x then x:=c-x
else x:=x-c;
writeln('РазницаВозраста Тани=',+x);
if c>y then y:=c-y
else y:=y-c;
writeln('Разница возраста Мити=',+y);
end.

---

PascalABC.NET