Вопрос по информатике:
Помогите надо сделать программу на PASCAL ABC:
1)Вставить наименьший элемент массива вещественных чисел на 7 место.
2)Вычислить: 3/(1*2)+6/(2*4)+9/(3*6)+12/(4*8)+…(программа нужна для ее решения)
3)Проверить тождество: 1^2+2^2+3^2+…+n^2=n*(n+1)*(2*n+1)/6(программа нужна для ее решения)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.11.2016 12:21
- Информатика
- remove_red_eye 834
- thumb_up 16
Ответы и объяснения 1
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandomReal(10,-99,99);
var c:=mas.Select(t->round(t*100) / 100).ToArray; c.Println;
var b:=c.Min;
c[7]:=b;
c.Println;
end.
Program m2
begin
var n:=readinteger('Введите количество n=');
var (b,a,c):=(3,1,2);
var k:real:=0;
for var i:=1 to n do
begin
k:=k+b/(a*c);
b:=b+3;a:=a+1;
c:=c+2;
end;
Writeln('Сумма=',k);
end.
Program m3;
begin
var n:=readinteger('Введите количество n=');
var c:real:=0;
var b:=1;
for var i:=1 to n do
begin
c:=c+b**2;
b:=b+1;
end;
var y:=n*(n+1)*(2*n+1)/6;
if c=y then
writeln('тождество верно')
else writeln('тождество не верно')
end.
- 21.11.2016 10:00
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.