// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Матрица А ***'); var a:=MatrRandom(n,n,-50,50); a.Println(4); Writeln('*** Матрица B ***'); var b:=MatrRandom(n,n,-50,50); b.Println(4); Writeln('*** Матрица C ***'); var c:=MatrRandom(n,n,-50,50); c.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** (|A|+|B|)x|C| ***'); var t:=new integer[n,n]; // временная иатрица для суммы for var i:=0 to n-1 do for var j:=0 to n-1 do t[i,j]:=a[i,j]+b[i,j]; // сумма матриц var r:=new integer[n,n]; // матрица-результат for var i:=0 to n-1 do for var j:=0 to n-1 do begin var s:=0; for var k:=0 to n-1 do s+=t[i,k]*c[k,j]; r[i,j]:=s end; r.Println(8) end.
var n:integer; a,b,r,x,y,z,p,s:real;
begin
writeln('Введите номер фигуры: 1) прямоугольник; 2) круг; 3) треугольник:');
readln(n);
case n of
1: begin
write('a, b: '); readln(a,b);
s:=a*b;
writeln('s = ',s);
end;
2: begin
write('r = '); readln(r);
s:=pi*r*r;
writeln('s = ',s);
end;
3: begin
write('x, y, z: '); readln(x,y,z);
p:=(x+y+z)/2; s:=sqrt(p*(p-x)*(p-y)*(p-z)); writeln('s = ',s);
end;
else writeln('Ошибка ввода');
end;
end.
Пример:
Введите номер фигуры: 1) прямоугольник; 2) круг; 3) треугольник:
3
x, y, z: 3 4 5
s = 6