Program TRAPECIYA;
var x1, x2 ,y1, y2, P, S:real;
begin
writeln("Введите значение верхнего основания");
readln(y1);
writeln("Введите значение нижнего основания");
<span> readln(y2);
</span> writeln("Введите значение левой грани");
<span> readln(x1);
</span> writeln("Введите значение правой стороны");
<span> readln(x2);
</span>P:=y1+y2+x1+x2;
S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))
writeln(P);
writeln(S);
end
1)-горе
2)-страус
3)-кресло
4)-Михаил
5)-Марина
Var s,h:integer;
begin
a:=5;
for x:=2 to 9 do writeln(x,'x',a,'=',x*a);
end.
Sub MyTest()
Dim a As Variant, i As Integer
a = Range("A1:B5")
For i = 1 To 5
Cells(i, 3) = S(a(i, 1), a(i, 2))
Next i
End Sub
Function S(ByVal x As Double, ByVal y As Double) As Double
Dim i As Integer
If x < y Then
S = 0
For i = 1 To 20
S = S + x ^ i * y ^ (i + 1)
Next i
ElseIf x > y Then S = (x * y) ^ 2
Else: S = x * x + y * y
End If
End Function
x - по колонке A1:A5, y - по колонке B1:B5, результат в C1:C5
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger(ReadlnInteger).Reverse.Println
end.