Вопрос № 92507: задано натуральное число n вычислить сколько чисел больше нуля в матрице А, если каждый её элемент исчисляется по формуле аij=sin(i+j/2), i,j=1..n
i и j это порядковый номер элемента в матрице тоесть задаем n а прога берет все целые числа от 1 до...Вопрос № 92515: недавно задавал вопрос по лабораторке в которой нада вычеслить сумму ряда S = x + x<sup>2</sup>/2! + x<sup>4</sup>/4! + ... + x<sup>2n</sup>/2n! ,n є N. но препод сказал што лаба работает неправильно потому как если взять х=1 и т=1 то должен и ответ ...
Вопрос № 92.507
задано натуральное число n вычислить сколько чисел больше нуля в матрице А, если каждый её элемент исчисляется по формуле аij=sin(i+j/2), i,j=1..n
i и j это порядковый номер элемента в матрице тоесть задаем n а прога берет все целые числа от 1 до n и подставляет в формулу вроде так,
прогу писать надо с помощью массивов желательно многомерных
Отправлен: 22.06.2007, 16:50
Вопрос задал: Dragonhalf (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Градов Юрий Михайлович
Здравствуйте, Dragonhalf!
Решение задачи в приложении
Удачи!!!
Приложение:
--------- Глаза боятся - руки делают!
Ответ отправил: Градов Юрий Михайлович (статус: Практикант)
Ответ отправлен: 22.06.2007, 17:11
Вопрос № 92.515
недавно задавал вопрос по лабораторке в которой нада вычеслить сумму ряда S = x + x2/2! + x4/4! + ... + x2n/2n! ,n є N. но препод сказал што лаба работает неправильно потому как если взять х=1 и т=1 то должен и ответ біть равен 1 а он равен 1,5 помогите исправить плз (код лабы прилагаетсо)
Отправлен: 22.06.2007, 18:59
Вопрос задал: Dragonhalf (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Gh0stik
Здравствуйте, Dragonhalf!
Поскольку реализация факториала при помощи операции shl меня несильно привлекла и при исправлении я запутался, то представляю свой вариант решения задачи:
function step(q:real;w:integer):real;
var e:real;
z:integer;
begin
e:=q;
for z:=1 to w-1 do e:=e*q;
step:=e;
end;
function fact(t:integer):longint;
begin
if t=0 then fact:=1
else fact:=t*fact(t-1);
end;
var i,n:integer;
x,s:real;
begin
write('n='); readln(n);
write('x='); readln(x);
s:=x; i:=2;
if n < > 1 then
while i < 2*n-1 do
begin
s:=s+step(x,i)/fact(i);
inc(i,2);
end;
writeln('s=',s:5:5);
Readln;
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 22.06.2007, 21:07
