Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.12.2015 13:30
- Информатика
- remove_red_eye 10595
- thumb_up 13
Ответы и объяснения 1
Const
m = 5;
n = 5;
var
x: array[1..m, 1..n] of real;
i, k: integer;
s: real;
begin
writeln('исходный массив');
for i := 1 to m do
begin
for k := 1 to n do
begin
x[i, k] := (cos(k) + sin(i)) / (sqrt(k) + sqr(i));
write(x[i, k]:9:5)
end;
writeln
end;
writeln('Суммы элементов матрицы по четным колонкам');
k := 2;
while k <= n do
begin
s := 0;
for i := 1 to m do s := s + x[i, k];
k := k + 2;
write(s:11:5)
end;
writeln
end.
Результаты работы программы:
исходный массив
0.69089 0.17618 -0.05436 0.06261 0.34769
0.28992 0.09108 -0.01408 0.04261 0.19130
0.06814 -0.02641 -0.07910 -0.04659 0.03781
-0.01274 -0.06736 -0.09851 -0.07836 -0.02595
-0.01610 -0.05206 -0.07291 -0.05972 -0.02479
Суммы элементов матрицы по четным колонкам
0.12144 -0.07946
- 21.12.2015 09:41
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.