Подсчитайте объем данных передаваемых в секунду от видеопамяти к монитору в режиме 1024 x 768 пикселей с глубиной цвета 16 битов и частотой обновления экрана 17 гэц
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,1,50); a.Println(3); Writeln(3*a.ColCount*'-'); // начало расчетов var s:=0; for var i:=0 to n-1 do s+=a[i,n-i-1]; Writeln('1: S=',s); Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn; Write('3: Произведение элементов: '); a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn; var p:BigInteger:=1; for var i:=0 to n-1 do p*=a[i,i]; Writeln('4: П=',p); end.
a, b, c, d: real;
begin
write('Введите коэффициенты a,b,c ');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d = 0 then
writeln('Корень один x = ', (-b / (2 * a))
else if d >0 then
writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
else writeln('Действительных корней нет');
end.
Тест №1
Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2
Тест №2
Введите коэффициенты a,b,c 1 2 3
Действительных корней нет
Тест №3
Введите коэффициенты a,b,c 1 0 0
Корень один x = 0