PascalABC.Net const m=8; n=11; var a,b,c:array[1..m,1..n] of integer; i,j:integer; begin Randomize; Writeln('Исходный массив A'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('Исходный массив B'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=Random(41)-20; Write(b[i,j]:4) end; Writeln end; Writeln('Результирующий массив С'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[m-i+1,n-j+1]; Write(c[i,j]:4) end; Writeln end end.
небольшие пометки: 1. писал в ABC.net паскале команда power(x,2) - возведение Х во 2 степень, если писать в других оболочках паскаля, возможно можно будет использовать запись x^2
2. Формула сферы (x-x0)²+(y-y0)²+(z-z0)² = R² где x0, y0, z0 - координаты начала (т.к. у нас начало в центре получаются эти координаты 0 0 0) и получаем формулу сферы x²+y²+z²=R² причем эта формула для поверхности сферы, по условию задачи нужно найти точки внутри сферы, поэтому ставим не =, а < (если же понадобятся еще точки лежащие на поверхности сферы, нужно из < сделать <=)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку