// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99); x.Println; var a:=x.Where(p->p>0).Sum; var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99); y.Println; var b:=y.Where(p->p>0).Sum; var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99); t.Println; var c:=t.Where(p->p>0).Sum; Writeln('Z=',Ln(a)+Power(Cos(b),3)+c) end.
Пример Число элементов массива х: 8 56 59 24 -5 -13 -24 9 -86 Число элементов массива y: 11 0 6 25 -69 86 34 -92 72 -39 -64 96 Число элементов массива t: 6 -54 24 -15 50 0 19 Z=97.999309110524
Sub PS() Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double Dim x3 As Double, y3 As Double x1 = Cells(2, 2): y1 = Cells(2, 3) x2 = Cells(3, 2): y2 = Cells(3, 3) x3 = Cells(4, 2): y3 = Cells(4, 3) a = L(x1, y1, x2, y2) b = L(x2, y2, x3, y3) c = L(x3, y3, x1, y1) P = a + b + c Cells(6, 2) = P p2 = P / 2 S = Sqr(p2 * (P - a) * (P - b) * (P - c)) Cells(7, 2) = S End Sub
Function L(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double L = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2) End Function
якщо (происходе дія) то повторити 10 разів, а якщо ні(або інакше) то повторити 20 разів