PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var k:=4; var a:=MatrRandom(k+1,k+1,-99,99); for var i:=0 to k do a[i,i]:=-1; a.Println(4); Writeln(4*k*'-'); var s:=a.ElementsByRow; // последовательность, памяти не занимает Writeln('Количество элементов, оканчивающихся на ноль: ', s.Where(t->t mod 10=0).Count); Writeln('Количество отрицательных элементов: ', s.Where(t->t<0).Count); Writeln('Количество нулевых элементов: ', s.Where(t->t=0).Count); Write('Сумма элементов побочной лиагонали: '); var sum:=0; for var i:=0 to k do sum+=a[i,4-i]; Writeln(sum) end.
В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:'); if a>c then Swap(a,c); if b>c then Swap(b,c); if c*c=a*a+b*b then Writeln('Треугольник прямоугольный') else Writeln('Треугольник не прямоугольный') end.
Пример Введите через пробел или Enter стороны: 6 8 10 Треугольник прямоугольный
const
a=-6; b=6; h=1;
begin
for var x:=a to b do Writeln('x=',x:2,', y=',ln(sqr(x)-9)/x)
end.
Результат выполнения программы:
x=-6, y=-0.549306144334055
x=-5, y=-0.554517744447956
x=-4, y=-0.486477537263828
x=-3, y=бесконечность
x=-2, y=NaN
x=-1, y=NaN
x= 0, y=NaN
x= 1, y=NaN
x= 2, y=NaN
x= 3, y=-бесконечность
x= 4, y=0.486477537263828
x= 5, y=0.554517744447956
x= 6, y=0.549306144334055
Примечание: NaN система выдает, если не может выполнить какое-то действие. В данном случае под знаком логарифма оказывается неположительное число.